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

History and CallStat user flags added

This commit is contained in:
mysticbbs 2012-07-19 21:12:19 -04:00
parent c0fdc3b05a
commit 8b66696093
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
mystic/bbs_core.pas
View File

@ -155,8 +155,10 @@ Procedure TBBSCore.UpdateHistory;
Var Var
History : RecHistory; History : RecHistory;
Begin Begin
If User.ThisUser.Flags AND UserNoHistory = 0 Then Exit;
Assign (HistoryFile, Config.DataPath + 'history.dat'); Assign (HistoryFile, Config.DataPath + 'history.dat');
ioReset (HistoryFile, SizeOf(RecHistory), fmRWDW); ioReset (HistoryFile, SizeOf(RecHistory), fmRWDN);
If IoResult <> 0 Then ioReWrite(HistoryFile, SizeOf(RecHistory), fmRWDW); If IoResult <> 0 Then ioReWrite(HistoryFile, SizeOf(RecHistory), fmRWDW);
@ -164,6 +166,7 @@ Begin
While Not Eof(HistoryFile) Do Begin While Not Eof(HistoryFile) Do Begin
ioRead (HistoryFile, History); ioRead (HistoryFile, History);
If DateDos2Str(History.Date, 1) = DateDos2Str(CurDateDos, 1) Then Begin If DateDos2Str(History.Date, 1) = DateDos2Str(CurDateDos, 1) Then Begin
ioSeek (HistoryFile, FilePos(HistoryFile) - 1); ioSeek (HistoryFile, FilePos(HistoryFile) - 1);
Break; Break;
@ -182,7 +185,9 @@ Begin
Inc (History.DownloadKB, HistoryDLKB); Inc (History.DownloadKB, HistoryDLKB);
Inc (History.UploadKB, HistoryULKB); Inc (History.UploadKB, HistoryULKB);
If Not LocalMode Then Inc (History.Calls, 1); If Not LocalMode And (User.ThisUser.Flags AND UserNoLastCall = 0) Then
Inc (History.Calls, 1);
If User.ThisUser.Calls = 1 Then Inc (History.NewUsers, 1); If User.ThisUser.Calls = 1 Then Inc (History.NewUsers, 1);
ioWrite (HistoryFile, History); ioWrite (HistoryFile, History);