From e6f5478dedf267ef4b371d6b45acf6e43f70a7f4 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Tue, 10 Sep 2013 00:48:20 -0400
Subject: [PATCH] A37

---
 mdl/m_tcp_client.pas     |  6 +++---
 mdl/m_tcp_client_ftp.pas | 17 +++++++++--------
 2 files changed, 12 insertions(+), 11 deletions(-)

diff --git a/mdl/m_tcp_client.pas b/mdl/m_tcp_client.pas
index e40193d..eb71c37 100644
--- a/mdl/m_tcp_client.pas
+++ b/mdl/m_tcp_client.pas
@@ -68,7 +68,7 @@ Begin
 
   If Client.FSocketHandle = -1 Then Exit;
 
-WriteLn ('DEBUG SEND ' + Str);
+//  WriteLn ('DEBUG SEND ' + Str);
 
   Client.PurgeInputData(1);
 
@@ -91,6 +91,8 @@ Begin
       ResponseType := strS2I(Copy(ResponseStr, 1, 3));
       Result       := ResponseType;
 
+//       WriteLn ('DEBUG RECV ' + ResponseStr);
+
       If ResponseStr[4] = '-' Then Begin
         {$IFDEF USESTRINGLIST}
           ResponseData.Clear;
@@ -109,8 +111,6 @@ Begin
         Until Copy(Str, 1, 4) = strI2S(ResponseType) + ' ';
       End;
     End;
-
-  writeln('DEBUG RECV ' + ResponseStr);
 End;
 
 End.
diff --git a/mdl/m_tcp_client_ftp.pas b/mdl/m_tcp_client_ftp.pas
index 26bbbbe..712e881 100644
--- a/mdl/m_tcp_client_ftp.pas
+++ b/mdl/m_tcp_client_ftp.pas
@@ -5,6 +5,7 @@ Unit m_Tcp_Client_FTP;
 Interface
 
 Uses
+//  SysUtils, //wordrec
   m_io_Sockets,
   m_Tcp_Client;
 
@@ -194,10 +195,10 @@ Begin
 
     Result := GetResponse = 226;
   End Else Begin
-    If IsPassive Then
-      WriteLn ('DEBUG unable to connect to FTP server for data session')
-    Else
-      WriteLn ('DEBUG unable to establish data session on port ', DataPort);
+//    If IsPassive Then
+//      WriteLn ('DEBUG unable to connect to FTP server for data session')
+//    Else
+//      WriteLn ('DEBUG unable to establish data session on port ', DataPort);
 
     CloseDataSession;
   End;
@@ -240,10 +241,10 @@ Begin
 
     Result := GetResponse = 226;
   End Else Begin
-    If IsPassive Then
-      WriteLn ('DEBUG unable to connect to FTP server for data session')
-    Else
-      WriteLn ('DEBUG unable to establish data session on port ', DataPort);
+//    If IsPassive Then
+//      WriteLn ('DEBUG unable to connect to FTP server for data session')
+//    Else
+//      WriteLn ('DEBUG unable to establish data session on port ', DataPort);
 
     CloseDataSession;
   End;