eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added Internet options

This commit is contained in:
mysticbbs 2012-02-16 13:16:34 -05:00
parent fd8678020f
commit 956f043eb5
2 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
mystic/bbs_cfg_main.pas
View File

@ -238,6 +238,7 @@ Begin
End;
End Else
Case Res of
'I' : Configuration_Internet;
'X' : Break;
Else
MenuPtr := 0;

30
mystic/bbs_cfg_syscfg.pas
View File

@ -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.