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

Added Uplink addresses, echomail domains, and fixed up the configuration for them

This commit is contained in:
mysticbbs 2012-02-28 16:19:22 -05:00
parent 9e6fc3857e
commit 68c7b1dc1b
4 changed files with 30 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
mystic/109to110.pas
View File

@ -502,6 +502,9 @@ Begin
Config.Origin := Origin; Config.Origin := Origin;
FillChar (Config.NetAddress, SizeOf(Config.NetAddress), #0); FillChar (Config.NetAddress, SizeOf(Config.NetAddress), #0);
FillChar (Config.NetDesc, SizeOf(Config.NetDesc), #0);
FillChar (Config.NetDomain, SizeOf(Config.NetDomain), #0);
FillChar (Config.NetUplink, SizeOf(Config.NetUplink), 0);
For A := 1 to 20 Do Begin For A := 1 to 20 Do Begin
Config.NetAddress[A].Zone := NetAddress[A].Zone; Config.NetAddress[A].Zone := NetAddress[A].Zone;

2
mystic/bbs_cfg_main.pas
View File

@ -190,7 +190,7 @@ Begin
Form.AddNone ('3', ' 3 New User Optional Fields', 5, 10, 28, ''); Form.AddNone ('3', ' 3 New User Optional Fields', 5, 10, 28, '');
Form.AddNone ('F', ' F File Base Settings', 5, 11, 28, ''); Form.AddNone ('F', ' F File Base Settings', 5, 11, 28, '');
Form.AddNone ('M', ' M Message Base Settings', 5, 12, 28, ''); Form.AddNone ('M', ' M Message Base Settings', 5, 12, 28, '');
Form.AddNone ('E', ' E Echomail Addresses', 5, 13, 28, ''); Form.AddNone ('E', ' E Echomail Networks', 5, 13, 28, '');
Form.AddNone ('O', ' O Offline Mail Settings', 5, 14, 28, ''); Form.AddNone ('O', ' O Offline Mail Settings', 5, 14, 28, '');
Res := Form.Execute; Res := Form.Execute;

28
mystic/bbs_cfg_syscfg.pas
View File

@ -138,19 +138,31 @@ Function Configuration_EchomailAddress (Edit: Boolean) : Byte;
Form : TAnsiMenuForm; Form : TAnsiMenuForm;
Topic : String; Topic : String;
Begin Begin
Topic := '|03(|09Echomail Address|03) |01-|09> |15'; Topic := '|03(|09Echomail Network|03) |01-|09> |15';
Box := TAnsiMenuBox.Create; Box := TAnsiMenuBox.Create;
Form := TAnsiMenuForm.Create; Form := TAnsiMenuForm.Create;
Box.Open (21, 8, 60, 16); Box.Open (14, 6, 66, 17);
VerticalLine (36, 10, 14); VerticalLine (29, 9, 12);
VerticalLine (29, 14, 15);
VerticalLine (54, 9, 12);
Form.AddWord ('Z', ' Zone' , 30, 10, 38, 10, 6, 5, 0, 65535, @Config.NetAddress[Num].Zone, Topic + 'Network Zone number'); WriteXY (21, 8, 112, 'Address');
Form.AddWord ('N', ' Net' , 31, 11, 38, 11, 5, 5, 0, 65535, @Config.NetAddress[Num].Net, Topic + 'Network Net number'); WriteXY (47, 8, 112, 'Uplink');
Form.AddWord ('O', ' Node' , 30, 12, 38, 12, 6, 5, 0, 65535, @Config.NetAddress[Num].Node, Topic + 'Network Node number');
Form.AddWord ('P', ' Point' , 29, 13, 38, 13, 7, 5, 0, 65535, @Config.NetAddress[Num].Point, Topic + 'Network Pointer number'); Form.AddWord ('Z', ' Zone' , 23, 9, 31, 9, 6, 5, 0, 65535, @Config.NetAddress[Num].Zone, Topic + 'Network Zone');
Form.AddStr ('D', ' Description', 23, 14, 38, 14, 13, 20, 20, @Config.NetDesc[Num], Topic + 'Network description'); Form.AddWord ('N', ' Net' , 24, 10, 31, 10, 5, 5, 0, 65535, @Config.NetAddress[Num].Net, Topic + 'Network Net');
Form.AddWord ('O', ' Node' , 23, 11, 31, 11, 6, 5, 0, 65535, @Config.NetAddress[Num].Node, Topic + 'Network Node');
Form.AddWord ('P', ' Point' , 22, 12, 31, 12, 7, 5, 0, 65535, @Config.NetAddress[Num].Point, Topic + 'Network Point');
Form.AddStr ('M', ' Domain', 21, 14, 31, 14, 8, 8, 8, @Config.NetDomain[Num], Topic + 'Network domain');
Form.AddStr ('D', ' Description', 16, 15, 31, 15, 13, 25, 25, @Config.NetDesc[Num], Topic + 'Network description');
Form.AddWord ('Z', ' Zone' , 48, 9, 56, 9, 6, 5, 0, 65535, @Config.NetUplink[Num].Zone, Topic + 'Uplink Zone');
Form.AddWord ('N', ' Net' , 49, 10, 56, 10, 5, 5, 0, 65535, @Config.NetUplink[Num].Net, Topic + 'Uplink Net');
Form.AddWord ('O', ' Node' , 48, 11, 56, 11, 6, 5, 0, 65535, @Config.NetUplink[Num].Node, Topic + 'Uplink Node');
Form.AddWord ('P', ' Point' , 47, 12, 56, 12, 7, 5, 0, 65535, @Config.NetUplink[Num].Point, Topic + 'Uplink Point');
Form.Execute; Form.Execute;

10
mystic/records.pas
View File

@ -173,9 +173,11 @@ Type
qwkWelcome : String[mysMaxPathSize]; qwkWelcome : String[mysMaxPathSize];
qwkNews : String[mysMaxPathSize]; qwkNews : String[mysMaxPathSize];
qwkGoodbye : String[mysMaxPathSize]; qwkGoodbye : String[mysMaxPathSize];
Origin : String[50]; // Default origin line Origin : String[50]; // Default origin line
NetAddress : Array[1..30] of RecEchoMailAddr; // echomail addresses NetAddress : Array[1..30] of RecEchoMailAddr; // echomail addresses
NetDesc : Array[1..30] of String[20]; // echomail network description NetUplink : Array[1..30] of RecEchoMailAddr; // echomail uplink addresses
NetDomain : Array[1..30] of String[8]; // echomail domains (5D)
NetDesc : Array[1..30] of String[25]; // echomail network description
NetCrash : Boolean; NetCrash : Boolean;
NetHold : Boolean; NetHold : Boolean;
NetKillSent : Boolean; NetKillSent : Boolean;
@ -244,7 +246,7 @@ Type
inetNNTPDupes : Byte; inetNNTPDupes : Byte;
inetNNTPTimeOut : Word; inetNNTPTimeOut : Word;
// UNSORTED // UNSORTED
Reserved : Array[1..482] of Char; Reserved : Array[1..846] of Char;
End; End;
Const Const