From 6679dc7dae0f7f38f0e6c2995ee7482892441912 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Mon, 27 Feb 2012 12:52:00 -0500
Subject: [PATCH] Added NTTP server options

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

diff --git a/mystic/bbs_cfg_main.pas b/mystic/bbs_cfg_main.pas
index 54b5c37..17f4fa6 100644
--- a/mystic/bbs_cfg_main.pas
+++ b/mystic/bbs_cfg_main.pas
@@ -244,6 +244,7 @@ Begin
                 '2' : Configuration_FTPServer;
                 '3' : Configuration_POP3Server;
                 '4' : Configuration_SMTPServer;
+                '5' : Configuration_NNTPServer;
                 'X' : Break;
               Else
                 MenuPtr := 0;
diff --git a/mystic/bbs_cfg_syscfg.pas b/mystic/bbs_cfg_syscfg.pas
index 72d982a..9e20ad4 100644
--- a/mystic/bbs_cfg_syscfg.pas
+++ b/mystic/bbs_cfg_syscfg.pas
@@ -15,6 +15,7 @@ Procedure Configuration_FTPServer;
 Procedure Configuration_TelnetServer;
 Procedure Configuration_POP3Server;
 Procedure Configuration_SMTPServer;
+Procedure Configuration_NNTPServer;
 
 Implementation
 
@@ -445,4 +446,34 @@ Begin
   Box.Free;
 End;
 
+Procedure Configuration_NNTPServer;
+Var
+  Box   : TAnsiMenuBox;
+  Form  : TAnsiMenuForm;
+  Topic : String[80];
+Begin
+  Topic := '|03(|09NNTP Server|03) |01-|09> |15';
+
+  Box  := TAnsiMenuBox.Create;
+  Form := TAnsiMenuForm.Create;
+
+  Box.Header := ' NNTP Server ';
+
+  Box.Open (27, 8, 53, 16);
+
+  VerticalLine (45, 10, 14);
+
+  Form.AddBol  ('U', ' Use Server',      33, 10, 47, 10, 12, 3, @Config.inetNNTPUse, Topic + 'Enable NNTP server');
+  Form.AddWord ('P', ' Server Port',     32, 11, 47, 11, 13, 5, 0, 65535, @Config.inetNNTPPort, Topic + 'Server port');
+  Form.AddByte ('N', ' Max Connections', 28, 12, 47, 12, 17, 3, 1, 255, @Config.inetNNTPMax, Topic + 'Max Connections');
+  Form.AddByte ('I', ' Dupe IP Limit',   30, 13, 47, 13, 15, 3, 1, 255,   @Config.inetNNTPDupes, Topic + 'Max connections with same IP');
+  Form.AddWord ('T', ' Timeout',         36, 14, 47, 14,  9, 5, 0, 65535, @Config.inetNNTPTimeout, Topic + 'Connection timeout (seconds)');
+
+  Form.Execute;
+  Form.Free;
+
+  Box.Close;
+  Box.Free;
+End;
+
 End.