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

POP3 options added to System Configuration

This commit is contained in:
mysticbbs 2012-02-18 01:52:26 -05:00
parent eeccc8cc93
commit 13a99d4615
2 changed files with 33 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

@ -241,6 +241,7 @@ Begin
'I' : Configuration_Internet;
'1' : Configuration_TelnetServer;
'2' : Configuration_FTPServer;
'3' : Configuration_POP3Server;
'X' : Break;
Else
MenuPtr := 0;

32
mystic/bbs_cfg_syscfg.pas
View File

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