From 956f043eb5b044cc9e43c7999a2be6c63ec5e6f9 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Thu, 16 Feb 2012 13:16:34 -0500
Subject: [PATCH] Added Internet options

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

diff --git a/mystic/bbs_cfg_main.pas b/mystic/bbs_cfg_main.pas
index ff50879..26ce5cf 100644
--- a/mystic/bbs_cfg_main.pas
+++ b/mystic/bbs_cfg_main.pas
@@ -238,6 +238,7 @@ Begin
               End;
             End Else
               Case Res of
+                'I' : Configuration_Internet;
                 'X' : Break;
               Else
                 MenuPtr := 0;
diff --git a/mystic/bbs_cfg_syscfg.pas b/mystic/bbs_cfg_syscfg.pas
index 71de3c8..0ee6039 100644
--- a/mystic/bbs_cfg_syscfg.pas
+++ b/mystic/bbs_cfg_syscfg.pas
@@ -10,6 +10,7 @@ Procedure Configuration_OptionalFields;
 Function  Configuration_EchomailAddress (Edit: Boolean) : Byte;
 Procedure Configuration_FileSettings;
 Procedure Configuration_QWKSettings;
+Procedure Configuration_Internet;
 
 Implementation
 
@@ -287,4 +288,33 @@ Begin
 
 End;
 
+Procedure Configuration_Internet;
+Var
+  Box   : TAnsiMenuBox;
+  Form  : TAnsiMenuForm;
+  Topic : String[80];
+Begin
+  Topic := '|03(|09Internet Servers|03) |01-|09> |15';
+
+  Box  := TAnsiMenuBox.Create;
+  Form := TAnsiMenuForm.Create;
+
+  Box.Header := ' Internet Servers ';
+
+  Box.Open (16, 9, 64, 15);
+
+  VerticalLine (31, 11, 13);
+
+  Form.AddStr  ('D', ' Domain',          23, 11, 33, 11,  8, 25, 25, @Config.inetDomain, Topic + 'Internet domain name');
+  Form.AddBol  ('B', ' IP Blocking',     18, 12, 33, 12, 13, 3, @Config.inetIPBlocking, Topic + 'Enable IP blocking');
+  Form.AddBol  ('L', ' IP Logging',      19, 13, 33, 13, 12, 3, @Config.inetIPLogging, Topic + 'Enable IP logging');
+
+  Form.Execute;
+
+  Form.Free;
+
+  Box.Close;
+  Box.Free;
+End;
+
 End.