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;
Session.SystemLog('DEBUG: DSZ Status character: ' + LineBuf[0]);
//Session.SystemLog('DEBUG: DSZ Status character: ' + LineBuf[0]);
While WordPos < 11 Do Begin
If LineBuf[Count] = #32 Then Begin
@ -178,12 +178,12 @@ Begin
Exit;
End;
Session.SystemLog('DEBUG: DSZ Searching for: ' + FName);
//Session.SystemLog('DEBUG: DSZ Searching for: ' + FName);
While Not Eof(LogFile) Do Begin
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
Result := Status;