diff --git a/mystic/109to110.pas b/mystic/109to110.pas index 3e1a9c0..946bc27 100644 --- a/mystic/109to110.pas +++ b/mystic/109to110.pas @@ -524,10 +524,13 @@ Begin Config.FCommentLines := 10; Config.FCommentLen := 79; - Config.inetTNMax := MaxNode; + Config.inetTNNodes := MaxNode; Config.inetSMTPDupes := 1; - Config.inetPOP3Dupes := 1; + + Config.inetPOP3Dupes := 1; + Config.inetPOP3Delete := False; + Config.inetPOP3Timeout := 900; Config.inetNNTPUse := False; Config.inetNNTPPort := 119; @@ -690,7 +693,7 @@ Begin Sec.AF1 := AF1; Sec.AF2 := AF2; Sec.Hard := Hard; - Sec.StartMNU := StartMNU; + Sec.StartMenu := StartMNU; Sec.PCRatio := PCRatio; End; @@ -958,12 +961,12 @@ Begin WarningDisplay; // comment this out ONLY IF config needs converting - Assign (ConfigFile, 'mystic.dat'); - Reset (ConfigFile); - Read (ConfigFile, Config); - Close (ConfigFile); +// Assign (ConfigFile, 'mystic.dat'); +// Reset (ConfigFile); +// Read (ConfigFile, Config); +// Close (ConfigFile); -// ConvertConfig; //1.10a11 + ConvertConfig; //1.10a11 // ConvertUsers; //1.10a11 //ConvertSecurity; //1.10a11 diff --git a/mystic/mbbsutil.pas b/mystic/mbbsutil.pas index 50d2a02..cd6bd80 100644 --- a/mystic/mbbsutil.pas +++ b/mystic/mbbsutil.pas @@ -940,7 +940,7 @@ Begin Inc (A); End; - For A := 1 to Config.INetTNMax Do Begin + For A := 1 to Config.INetTNNodes Do Begin Assign (ChatFile, Config.DataPath + 'chat' + strI2S(A) + '.dat'); {$I-} Reset (ChatFile); {$I+} If IoResult = 0 Then Begin diff --git a/mystic/records.pas b/mystic/records.pas index dcd6477..32f09e6 100644 --- a/mystic/records.pas +++ b/mystic/records.pas @@ -219,6 +219,8 @@ Type inetPOP3Port : Word; inetPOP3Max : Word; inetPOP3Dupes : Byte; + inetPOP3Delete : Boolean; + inetPOP3Timeout : Word; inetTNUse : Boolean; inetTNPort : Word; inetTNNodes : Byte; @@ -236,7 +238,7 @@ Type inetNNTPMax : Word; inetNNTPDupes : Byte; // UNSORTED - Reserved : Array[1..491] of Char; + Reserved : Array[1..488] of Char; End; Const