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.PWAttempts := 3;
Config.FProtocol := 'Z';
Config.UserProtocol := 0;
End;
Assign (ConfigFile, 'mystic.dat');
@ -660,6 +662,7 @@ Begin
User.UseLBMIdx := UseLBMIdx;
User.UseFullChat := UserFullChat;
User.Credits := 0;
User.Protocol := #0;
End;
Write (UserFile, User);
@ -1024,15 +1027,15 @@ Begin
WarningDisplay;
// COMMENT this out if mystic.dat is being converted:
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
ConvertFileLists; //1.10a11
//ConvertFileLists; //1.10a11
// ConvertArchives; //1.10a1
// ConvertGroups; //1.10a1

7
mystic/records.pas
View File

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