From 68c7b1dc1bfcb220eba9e95e3c2ae17fbfa717eb Mon Sep 17 00:00:00 2001 From: mysticbbs Date: Tue, 28 Feb 2012 16:19:22 -0500 Subject: [PATCH] Added Uplink addresses, echomail domains, and fixed up the configuration for them --- mystic/109to110.pas | 3 +++ mystic/bbs_cfg_main.pas | 2 +- mystic/bbs_cfg_syscfg.pas | 28 ++++++++++++++++++++-------- mystic/records.pas | 10 ++++++---- 4 files changed, 30 insertions(+), 13 deletions(-) diff --git a/mystic/109to110.pas b/mystic/109to110.pas index 14e62d5..f057550 100644 --- a/mystic/109to110.pas +++ b/mystic/109to110.pas @@ -502,6 +502,9 @@ Begin Config.Origin := Origin; 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 Config.NetAddress[A].Zone := NetAddress[A].Zone; diff --git a/mystic/bbs_cfg_main.pas b/mystic/bbs_cfg_main.pas index 17f4fa6..ebd6a70 100644 --- a/mystic/bbs_cfg_main.pas +++ b/mystic/bbs_cfg_main.pas @@ -190,7 +190,7 @@ Begin Form.AddNone ('3', ' 3 New User Optional Fields', 5, 10, 28, ''); Form.AddNone ('F', ' F File Base Settings', 5, 11, 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, ''); Res := Form.Execute; diff --git a/mystic/bbs_cfg_syscfg.pas b/mystic/bbs_cfg_syscfg.pas index 9e20ad4..88e5930 100644 --- a/mystic/bbs_cfg_syscfg.pas +++ b/mystic/bbs_cfg_syscfg.pas @@ -138,19 +138,31 @@ Function Configuration_EchomailAddress (Edit: Boolean) : Byte; Form : TAnsiMenuForm; Topic : String; Begin - Topic := '|03(|09Echomail Address|03) |01-|09> |15'; + Topic := '|03(|09Echomail Network|03) |01-|09> |15'; Box := TAnsiMenuBox.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'); - Form.AddWord ('N', ' Net' , 31, 11, 38, 11, 5, 5, 0, 65535, @Config.NetAddress[Num].Net, Topic + 'Network Net number'); - 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.AddStr ('D', ' Description', 23, 14, 38, 14, 13, 20, 20, @Config.NetDesc[Num], Topic + 'Network description'); + WriteXY (21, 8, 112, 'Address'); + WriteXY (47, 8, 112, 'Uplink'); + + Form.AddWord ('Z', ' Zone' , 23, 9, 31, 9, 6, 5, 0, 65535, @Config.NetAddress[Num].Zone, Topic + 'Network Zone'); + 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; diff --git a/mystic/records.pas b/mystic/records.pas index 74f49f6..19a8977 100644 --- a/mystic/records.pas +++ b/mystic/records.pas @@ -173,9 +173,11 @@ Type qwkWelcome : String[mysMaxPathSize]; qwkNews : String[mysMaxPathSize]; qwkGoodbye : String[mysMaxPathSize]; - Origin : String[50]; // Default origin line - NetAddress : Array[1..30] of RecEchoMailAddr; // echomail addresses - NetDesc : Array[1..30] of String[20]; // echomail network description + Origin : String[50]; // Default origin line + NetAddress : Array[1..30] of RecEchoMailAddr; // echomail addresses + 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; NetHold : Boolean; NetKillSent : Boolean; @@ -244,7 +246,7 @@ Type inetNNTPDupes : Byte; inetNNTPTimeOut : Word; // UNSORTED - Reserved : Array[1..482] of Char; + Reserved : Array[1..846] of Char; End; Const