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

Nonsense

This commit is contained in:
mysticbbs 2012-03-03 04:52:38 -05:00
parent 9e02d6a154
commit a68b857766
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mystic/109to110.pas
View File

@ -707,7 +707,11 @@ Var
Begin Begin
WriteLn ('[-] Updating user database...'); WriteLn ('[-] Updating user database...');
ReNameFile(Config.DataPath + 'users.dat', Config.DataPath + 'users.old'); If Not ReNameFile(Config.DataPath + 'users.dat', Config.DataPath + 'users.old') Then Begin
WriteLn('ERROR: Unable to copy user database. Restore a backup and try again after');
WriteLn(' eliminating any protential access issues.');
Halt(1);
End;
Assign (OldUserFile, Config.DataPath + 'users.old'); Assign (OldUserFile, Config.DataPath + 'users.old');
Reset (OldUserFile); Reset (OldUserFile);