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;
{$ENDIF}
Assign (T, Session.TempPath + 'xfer.log');
ReWrite (T);
If Queue.QSize > 0 Then Begin
Assign (T, Session.TempPath + 'xfer.log');
ReWrite (T);
For Count := 1 to Queue.QSize Do Begin
Res[1] := 'E';
For Count := 1 to Queue.QSize Do Begin
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;
Close (T);
Protocol.Free;
Queue.Free;
{$IFDEF UNIX}
@ -1240,8 +1242,6 @@ Begin
Inc(A);
End;
Session.SystemLog('DEBUG Exec Archive: ' + Temp);
ShellDOS ('', Temp);
End;
@ -2792,9 +2792,11 @@ Begin
Assign (LogFile, Session.TempPath + 'xfer.log');
{$I-} Reset(LogFile); {$I+}
If IoResult = 0 Then Begin
While Not Eof(LogFile) Do Begin
dszGetFile (LogFile, FileName, FileStatus);
DszGetFile (LogFile, FileName, FileStatus);
If FileName = '' Then Continue;

4
mystic/bbs_io.pas
View File

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

6
mystic/bbs_menus.pas
View File

@ -966,14 +966,8 @@ Begin
Found := Data.Item[Count]^.HotKey = TempStr + UpCase(Ch);
session.systemlog('comparing cmd: ' + data.item[count]^.hotkey + ' to ' + tempstr + upcase(ch));
If Not ValidKey Then
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);
If Found And (TBBSCore(Owner).User.Access(Data.Item[Count]^.Access)) Then Begin