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

Removal of some debug logging

This commit is contained in:
mysticbbs 2012-08-17 17:21:33 -04:00
parent af66e43277
commit 2265a39c55
3 changed files with 15 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
mystic/bbs_filebase.pas
View File

@ -311,19 +311,21 @@ Var
Session.LocalMode := SavedL; Session.LocalMode := SavedL;
{$ENDIF} {$ENDIF}
Assign (T, Session.TempPath + 'xfer.log'); If Queue.QSize > 0 Then Begin
ReWrite (T); Assign (T, Session.TempPath + 'xfer.log');
ReWrite (T);
For Count := 1 to Queue.QSize Do Begin For Count := 1 to Queue.QSize Do Begin
Res[1] := 'E'; Res[1] := 'E';
If Queue.QData[Count]^.Status = QueueSuccess Then Res[1] := 'Z'; If Queue.QData[Count]^.Status = QueueSuccess Then Res[1] := 'Z';
WriteLn(T, Res[1] + ' 0 0 0 0 0 0 0 0 0 ' + Queue.QData[Count]^.FileName + ' -1'); WriteLn(T, Res[1] + ' 0 0 0 0 0 0 0 0 0 ' + Queue.QData[Count]^.FileName + ' -1');
End;
Close (T);
End; End;
Close (T);
Protocol.Free; Protocol.Free;
Queue.Free; Queue.Free;
{$IFDEF UNIX} {$IFDEF UNIX}
@ -1240,8 +1242,6 @@ Begin
Inc(A); Inc(A);
End; End;
Session.SystemLog('DEBUG Exec Archive: ' + Temp);
ShellDOS ('', Temp); ShellDOS ('', Temp);
End; End;
@ -2792,9 +2792,11 @@ Begin
Assign (LogFile, Session.TempPath + 'xfer.log'); Assign (LogFile, Session.TempPath + 'xfer.log');
{$I-} Reset(LogFile); {$I+} {$I-} Reset(LogFile); {$I+}
If IoResult = 0 Then Begin If IoResult = 0 Then Begin
While Not Eof(LogFile) Do Begin While Not Eof(LogFile) Do Begin
dszGetFile (LogFile, FileName, FileStatus); DszGetFile (LogFile, FileName, FileStatus);
If FileName = '' Then Continue; If FileName = '' Then Continue;

4
mystic/bbs_io.pas
View File

@ -998,8 +998,6 @@ Begin
Ext := Copy(Ext, 1, 3) + Code; Ext := Copy(Ext, 1, 3) + Code;
End; End;
Session.SystemLog('DEBUG Display:' + FName + Ext);
Assign (dFile, FName + Ext); Assign (dFile, FName + Ext);
{$I-} Reset(dFile, 1); {$I+} {$I-} Reset(dFile, 1); {$I+}
@ -1919,7 +1917,9 @@ End;
Procedure TBBSIO.PurgeInputBuffer; Procedure TBBSIO.PurgeInputBuffer;
Begin Begin
{$IFDEF UNIX}
While Input.KeyPressed Do Input.ReadKey; While Input.KeyPressed Do Input.ReadKey;
{$ENDIF}
{$IFDEF WINDOWS} {$IFDEF WINDOWS}
If Not TBBSCore(Core).LocalMode Then TBBSCore(Core).Client.PurgeInputData; If Not TBBSCore(Core).LocalMode Then TBBSCore(Core).Client.PurgeInputData;
{$ENDIF} {$ENDIF}

6
mystic/bbs_menus.pas
View File

@ -966,14 +966,8 @@ Begin
Found := Data.Item[Count]^.HotKey = TempStr + UpCase(Ch); Found := Data.Item[Count]^.HotKey = TempStr + UpCase(Ch);
session.systemlog('comparing cmd: ' + data.item[count]^.hotkey + ' to ' + tempstr + upcase(ch));
If Not ValidKey Then If Not ValidKey Then
ValidKey := TempStr + UpCase(Ch) = Copy(Data.Item[Count]^.HotKey, 1, Length(TempStr + Ch)); ValidKey := TempStr + UpCase(Ch) = Copy(Data.Item[Count]^.HotKey, 1, Length(TempStr + Ch));
session.systemlog('valid key is: ' + stri2s(ord(validkey)));
session.systemlog('found is: ' + stri2s(ord(found)));
Until Found or (Count >= Data.NumItems); Until Found or (Count >= Data.NumItems);
If Found And (TBBSCore(Owner).User.Access(Data.Item[Count]^.Access)) Then Begin If Found And (TBBSCore(Owner).User.Access(Data.Item[Count]^.Access)) Then Begin