From 13a99d461533f61eeaae186678461f0b2f429083 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Sat, 18 Feb 2012 01:52:26 -0500
Subject: [PATCH] POP3 options added to System Configuration

---
 mystic/bbs_cfg_main.pas   |  1 +
 mystic/bbs_cfg_syscfg.pas | 32 ++++++++++++++++++++++++++++++++
 2 files changed, 33 insertions(+)

diff --git a/mystic/bbs_cfg_main.pas b/mystic/bbs_cfg_main.pas
index 297ce14..efc6e0c 100644
--- a/mystic/bbs_cfg_main.pas
+++ b/mystic/bbs_cfg_main.pas
@@ -241,6 +241,7 @@ Begin
                 'I' : Configuration_Internet;
                 '1' : Configuration_TelnetServer;
                 '2' : Configuration_FTPServer;
+                '3' : Configuration_POP3Server;
                 'X' : Break;
               Else
                 MenuPtr := 0;
diff --git a/mystic/bbs_cfg_syscfg.pas b/mystic/bbs_cfg_syscfg.pas
index dddb2e6..6c9de5c 100644
--- a/mystic/bbs_cfg_syscfg.pas
+++ b/mystic/bbs_cfg_syscfg.pas
@@ -13,6 +13,7 @@ Procedure Configuration_QWKSettings;
 Procedure Configuration_Internet;
 Procedure Configuration_FTPServer;
 Procedure Configuration_TelnetServer;
+Procedure Configuration_POP3Server;
 
 Implementation
 
@@ -381,4 +382,35 @@ Begin
   Box.Free;
 End;
 
+Procedure Configuration_POP3Server;
+Var
+  Box   : TAnsiMenuBox;
+  Form  : TAnsiMenuForm;
+  Topic : String[80];
+Begin
+  Topic := '|03(|09POP3 Server|03) |01-|09> |15';
+
+  Box  := TAnsiMenuBox.Create;
+  Form := TAnsiMenuForm.Create;
+
+  Box.Header := ' POP3 Server ';
+
+  Box.Open (27, 8, 53, 17);
+
+  VerticalLine (45, 10, 15);
+
+  Form.AddBol  ('U', ' Use Server',      33, 10, 47, 10, 12, 3, @Config.inetPOP3Use, Topic + 'Enable POP3 server');
+  Form.AddWord ('P', ' Server Port',     32, 11, 47, 11, 13, 5, 0, 65535, @Config.inetPOP3Port, Topic + 'POP3 Server port');
+  Form.AddByte ('N', ' Max Connections', 28, 12, 47, 12, 17, 3, 1, 255, @Config.inetPOP3Max, Topic + 'Max Connections');
+  Form.AddByte ('I', ' Dupe IP Limit',   30, 13, 47, 13, 15, 3, 1, 255,   @Config.inetPOP3Dupes, Topic + 'Max connections with same IP');
+  Form.AddWord ('T', ' Timeout',         36, 14, 47, 14,  9, 5, 0, 65535, @Config.inetPOP3Timeout, Topic + 'Connection timeout (seconds)');
+  Form.AddBol  ('D', ' Delete',          37, 15, 47, 15,  8, 3, @Config.inetPOP3Delete, Topic + 'Delete email on retreive');
+
+  Form.Execute;
+  Form.Free;
+
+  Box.Close;
+  Box.Free;
+End;
+
 End.