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

Record updates for Default protocol

This commit is contained in:
mysticbbs 2012-02-24 12:23:03 -05:00
parent 7a5d1a0ad9
commit 389d07164a
2 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
mystic/109to110.pas
View File

@ -556,6 +556,8 @@ Begin
Config.StatusColor3 := 15 + 1 * 16; Config.StatusColor3 := 15 + 1 * 16;
Config.PWAttempts := 3; Config.PWAttempts := 3;
Config.FProtocol := 'Z';
Config.UserProtocol := 0;
End; End;
Assign (ConfigFile, 'mystic.dat'); Assign (ConfigFile, 'mystic.dat');
@ -660,6 +662,7 @@ Begin
User.UseLBMIdx := UseLBMIdx; User.UseLBMIdx := UseLBMIdx;
User.UseFullChat := UserFullChat; User.UseFullChat := UserFullChat;
User.Credits := 0; User.Credits := 0;
User.Protocol := #0;
End; End;
Write (UserFile, User); Write (UserFile, User);
@ -1024,15 +1027,15 @@ Begin
WarningDisplay; WarningDisplay;
// COMMENT this out if mystic.dat is being converted: // COMMENT this out if mystic.dat is being converted:
Assign (ConfigFile, 'mystic.dat'); // Assign (ConfigFile, 'mystic.dat');
Reset (ConfigFile); // Reset (ConfigFile);
Read (ConfigFile, Config); // Read (ConfigFile, Config);
Close (ConfigFile); // Close (ConfigFile);
// ConvertConfig; //1.10a11 ConvertConfig; //1.10a11
// ConvertUsers; //1.10a11 // ConvertUsers; //1.10a11
//ConvertSecurity; //1.10a11 //ConvertSecurity; //1.10a11
ConvertFileLists; //1.10a11 //ConvertFileLists; //1.10a11
// ConvertArchives; //1.10a1 // ConvertArchives; //1.10a1
// ConvertGroups; //1.10a1 // ConvertGroups; //1.10a1

7
mystic/records.pas
View File

@ -142,6 +142,7 @@ Type
UserMailIndex : Byte; UserMailIndex : Byte;
UserReadIndex : Byte; UserReadIndex : Byte;
UserQuoteWin : Byte; UserQuoteWin : Byte;
UserProtocol : Byte;
AskTheme : Boolean; AskTheme : Boolean;
AskRealName : Boolean; AskRealName : Boolean;
AskAlias : Boolean; AskAlias : Boolean;
@ -199,6 +200,7 @@ Type
MaxFileDesc : Byte; MaxFileDesc : Byte;
FCommentLines : Byte; FCommentLines : Byte;
FCommentLen : Byte; FCommentLen : Byte;
FProtocol : Char;
TestUploads : Boolean; TestUploads : Boolean;
TestPassLevel : Byte; TestPassLevel : Byte;
TestCmdLine : String[mysMaxPathSize]; TestCmdLine : String[mysMaxPathSize];
@ -238,7 +240,7 @@ Type
inetNNTPMax : Word; inetNNTPMax : Word;
inetNNTPDupes : Byte; inetNNTPDupes : Byte;
// UNSORTED // UNSORTED
Reserved : Array[1..488] of Char; Reserved : Array[1..486] of Char;
End; End;
Const Const
@ -348,7 +350,8 @@ Type
UseLBMIdx : Boolean; { use lightbar index in email? } UseLBMIdx : Boolean; { use lightbar index in email? }
UseFullChat : Boolean; { use full screen teleconference } UseFullChat : Boolean; { use full screen teleconference }
Credits : LongInt; Credits : LongInt;
Reserved : Array[1..393] of Byte; Protocol : Char;
Reserved : Array[1..392] of Byte;
End; End;
EventRec = Record { EVENTS.DAT } EventRec = Record { EVENTS.DAT }