From a333e3426489f7653a87b5d02e399ff83254cb55 Mon Sep 17 00:00:00 2001 From: mysticbbs Date: Sun, 17 Feb 2013 17:35:19 -0500 Subject: [PATCH] Removed debug logging for DSZ logs --- mystic/bbs_filebase.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/mystic/bbs_filebase.pas b/mystic/bbs_filebase.pas index 1c053d8..00077d8 100644 --- a/mystic/bbs_filebase.pas +++ b/mystic/bbs_filebase.pas @@ -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; @@ -3818,4 +3818,4 @@ Begin FBase := Old; End; -End. \ No newline at end of file +End.