Removal of some debug logging

mystic/bbs_filebase.pas

@@ -311,6 +311,7 @@ Var
       Session.LocalMode := SavedL;
     {$ENDIF}
 
+    If Queue.QSize > 0 Then Begin
       Assign  (T, Session.TempPath + 'xfer.log');
       ReWrite (T);
 
@@ -323,6 +324,7 @@ Var
       End;
 
       Close (T);
+    End;
 
     Protocol.Free;
     Queue.Free;
@@ -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;
 

mystic/bbs_io.pas

@@ -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}

mystic/bbs_menus.pas

@@ -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