From 2265a39c5516b3f51d3a16ebce99a74af1df1121 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Fri, 17 Aug 2012 17:21:33 -0400
Subject: [PATCH] Removal of some debug logging

---
 mystic/bbs_filebase.pas | 24 +++++++++++++-----------
 mystic/bbs_io.pas       |  4 ++--
 mystic/bbs_menus.pas    |  6 ------
 3 files changed, 15 insertions(+), 19 deletions(-)

diff --git a/mystic/bbs_filebase.pas b/mystic/bbs_filebase.pas
index 3ba59e2..92edf59 100644
--- a/mystic/bbs_filebase.pas
+++ b/mystic/bbs_filebase.pas
@@ -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;
 
diff --git a/mystic/bbs_io.pas b/mystic/bbs_io.pas
index db92448..52e97c0 100644
--- a/mystic/bbs_io.pas
+++ b/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}
diff --git a/mystic/bbs_menus.pas b/mystic/bbs_menus.pas
index 567cfaa..c7130ce 100644
--- a/mystic/bbs_menus.pas
+++ b/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