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

Removed debug logging for DSZ logs

This commit is contained in:
mysticbbs 2013-02-17 17:35:19 -05:00
parent 894fa763c7
commit a333e34264
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mystic/bbs_filebase.pas
View File

@ -136,7 +136,7 @@ Begin
Res := Pos(UpCase(LineBuf[0]), 'RSZ') > 0; Res := Pos(UpCase(LineBuf[0]), 'RSZ') > 0;
Session.SystemLog('DEBUG: DSZ Status character: ' + LineBuf[0]); //Session.SystemLog('DEBUG: DSZ Status character: ' + LineBuf[0]);
While WordPos < 11 Do Begin While WordPos < 11 Do Begin
If LineBuf[Count] = #32 Then Begin If LineBuf[Count] = #32 Then Begin
@ -178,12 +178,12 @@ Begin
Exit; Exit;
End; End;
Session.SystemLog('DEBUG: DSZ Searching for: ' + FName); //Session.SystemLog('DEBUG: DSZ Searching for: ' + FName);
While Not Eof(LogFile) Do Begin While Not Eof(LogFile) Do Begin
DszGetFile(LogFile, FileName, Status); DszGetFile(LogFile, FileName, Status);
Session.SystemLog('DEBUG: DSZ GetFile returned: ' + FileName + ' (success ' + strI2S(Ord(Status)) + ')'); //Session.SystemLog('DEBUG: DSZ GetFile returned: ' + FileName + ' (success ' + strI2S(Ord(Status)) + ')');
If strUpper(FileName) = strUpper(FName) Then Begin If strUpper(FileName) = strUpper(FName) Then Begin
Result := Status; Result := Status;