correct test for wxDEBUG_LEVEL in last commit

[wxWidgets.git] / src / common / ftp.cpp

diff --git a/src/common/ftp.cpp b/src/common/ftp.cpp
index e9db032f8e2f761fa9f0217f76bc3e0cdd6361ba..235a29d3db85981622f0c258fffe81c482eef0ee 100644 (file)
--- a/src/common/ftp.cpp
+++ b/src/common/ftp.cpp
@@ -1,17 +1,27 @@
 /////////////////////////////////////////////////////////////////////////////
 /////////////////////////////////////////////////////////////////////////////

-// Name:        ftp.cpp
+// Name:        common/ftp.cpp

 // Purpose:     FTP protocol
 // Author:      Guilhem Lavaux
 // Purpose:     FTP protocol
 // Author:      Guilhem Lavaux

-// Modified by:
+// Modified by: Mark Johnson, wxWindows@mj10777.de
+//              20000917 : RmDir, GetLastResult, GetList
+//              Vadim Zeitlin (numerous fixes and rewrites to all part of the
+//              code, support ASCII/Binary modes, better error reporting, more
+//              robust Abort(), support for arbitrary FTP commands, ...)
+//              Randall Fox (support for active mode)

 // Created:     07/07/1997
 // RCS-ID:      $Id$
 // Copyright:   (c) 1997, 1998 Guilhem Lavaux
 // Created:     07/07/1997
 // RCS-ID:      $Id$
 // Copyright:   (c) 1997, 1998 Guilhem Lavaux

-// Licence:     wxWindows license
+//              (c) 1998-2004 wxWidgets team
+// Licence:     wxWindows licence

 /////////////////////////////////////////////////////////////////////////////
 
 /////////////////////////////////////////////////////////////////////////////
 

-#ifdef __GNUG__
-  #pragma implementation "ftp.h"
-#endif
+// ============================================================================
+// declarations
+// ============================================================================
+
+// ----------------------------------------------------------------------------
+// headers
+// ----------------------------------------------------------------------------

 
 // For compilers that support precompilation, includes "wx.h".
 #include "wx/wxprec.h"
 
 // For compilers that support precompilation, includes "wx.h".
 #include "wx/wxprec.h"


@@ -20,111 +30,138 @@
   #pragma hdrstop
 #endif
 
   #pragma hdrstop
 #endif
 

-#if wxUSE_SOCKETS
+#if wxUSE_PROTOCOL_FTP

 
 

-#ifndef __MWERKS__
-#include <memory.h>
-#endif
-#if defined(__WXMAC__)
-#include "/wx/mac/macsock.h"
-#endif
+#ifndef WX_PRECOMP
+    #include <stdlib.h>
+    #include "wx/string.h"
+    #include "wx/utils.h"
+    #include "wx/log.h"
+    #include "wx/intl.h"
+    #include "wx/wxcrtvararg.h"
+#endif // WX_PRECOMP

 
 

-#include <stdlib.h>
-#include "wx/string.h"
-#include "wx/utils.h"

 #include "wx/sckaddr.h"
 #include "wx/socket.h"
 #include "wx/url.h"
 #include "wx/sckstrm.h"
 #include "wx/protocol/protocol.h"
 #include "wx/protocol/ftp.h"
 #include "wx/sckaddr.h"
 #include "wx/socket.h"
 #include "wx/url.h"
 #include "wx/sckstrm.h"
 #include "wx/protocol/protocol.h"
 #include "wx/protocol/ftp.h"

-#include "wx/log.h"

 
 

-#ifdef __BORLANDC__
-#pragma hdrstop
+#ifndef __MWERKS__
+    #include <memory.h>

 #endif
 
 #endif
 

+// ----------------------------------------------------------------------------
+// constants
+// ----------------------------------------------------------------------------
+

 // the length of FTP status code (3 digits)
 static const size_t LEN_CODE = 3;
 
 // the length of FTP status code (3 digits)
 static const size_t LEN_CODE = 3;
 

-#define FTP_BSIZE 1024
+// ----------------------------------------------------------------------------
+// macros
+// ----------------------------------------------------------------------------

 
 IMPLEMENT_DYNAMIC_CLASS(wxFTP, wxProtocol)
 
 IMPLEMENT_DYNAMIC_CLASS(wxFTP, wxProtocol)

-IMPLEMENT_PROTOCOL(wxFTP, wxT("ftp"), wxT("ftp"), TRUE)
+IMPLEMENT_PROTOCOL(wxFTP, wxT("ftp"), wxT("ftp"), true)
+
+// ============================================================================
+// implementation
+// ============================================================================

 
 

-////////////////////////////////////////////////////////////////
-////// wxFTP constructor and destructor ////////////////////////
-////////////////////////////////////////////////////////////////
+// ----------------------------------------------------------------------------
+// wxFTP constructor and destructor
+// ----------------------------------------------------------------------------

 
 wxFTP::wxFTP()
 
 wxFTP::wxFTP()

-     : wxProtocol()

 {
 {

-    m_lastError = wxPROTO_NOERR;
-    m_streaming = FALSE;
+    m_streaming = false;
+    m_currentTransfermode = NONE;

 
 

-    m_user = wxT("anonymous");
-    m_passwd << wxGetUserId() << wxT('@') << wxGetFullHostName();
+    m_username = wxT("anonymous");
+    m_password << wxGetUserId() << wxT('@') << wxGetFullHostName();

 
     SetNotify(0);
 
     SetNotify(0);

-    SetFlags(wxSOCKET_NONE);
+    SetFlags(wxSOCKET_NOWAIT);
+    m_bPassive = true;
+    m_bEncounteredError = false;

 }
 
 wxFTP::~wxFTP()
 {
     if ( m_streaming )
     {
 }
 
 wxFTP::~wxFTP()
 {
     if ( m_streaming )
     {

+        // if we are streaming, this will issue
+        // an FTP ABORT command, to tell the server we are aborting

         (void)Abort();
     }
 
         (void)Abort();
     }
 

+    // now this issues a "QUIT" command to tell the server we are

     Close();
 }
 
     Close();
 }
 

-////////////////////////////////////////////////////////////////
-////// wxFTP connect and login methods /////////////////////////
-////////////////////////////////////////////////////////////////
-bool wxFTP::Connect(wxSockAddress& addr, bool WXUNUSED(wait))
+// ----------------------------------------------------------------------------
+// wxFTP connect and login methods
+// ----------------------------------------------------------------------------
+
+bool wxFTP::Connect(const wxSockAddress& addr, bool WXUNUSED(wait))

 {
 {

-  if (!wxProtocol::Connect(addr)) {
-    m_lastError = wxPROTO_NETERR;
-    return FALSE;
-  }
+    if ( !wxProtocol::Connect(addr) )
+    {
+        m_lastError = wxPROTO_NETERR;
+        return false;
+    }

 
 

-  if (!m_user || !m_passwd) {
-    m_lastError = wxPROTO_CONNERR;
-    return FALSE;
-  }
+    if ( !m_username )
+    {
+        m_lastError = wxPROTO_CONNERR;
+        return false;
+    }

 
 

-  wxString command;
+    // we should have 220 welcome message
+    if ( !CheckResult('2') )
+    {
+        Close();
+        return false;
+    }

 
 

-  if (!GetResult('2')) {
-    Close();
-    return FALSE;
-  }
+    wxString command;
+    command.Printf(wxT("USER %s"), m_username.c_str());
+    char rc = SendCommand(command);
+    if ( rc == '2' )
+    {
+        // 230 return: user accepted without password
+        m_lastError = wxPROTO_NOERR;
+        return true;
+    }

 
 

-  command.sprintf(wxT("USER %s"), (const wxChar *)m_user);
-  if (!SendCommand(command, '3')) {
-    Close();
-    return FALSE;
-  }
+    if ( rc != '3' )
+    {
+        m_lastError = wxPROTO_CONNERR;
+        Close();
+        return false;
+    }

 
 

-  command.sprintf(wxT("PASS %s"), (const wxChar *)m_passwd);
-  if (!SendCommand(command, '2')) {
-    Close();
-    return FALSE;
-  }
+    command.Printf(wxT("PASS %s"), m_password.c_str());
+    if ( !CheckCommand(command, '2') )
+    {
+        m_lastError = wxPROTO_CONNERR;
+        Close();
+        return false;
+    }

 
 

-  return TRUE;
+    m_lastError = wxPROTO_NOERR;
+    return true;

 }
 
 bool wxFTP::Connect(const wxString& host)
 {
 }
 
 bool wxFTP::Connect(const wxString& host)
 {

-  wxIPV4address addr;
-  wxString my_host = host;
-
-  addr.Hostname(my_host);
-  addr.Service(wxT("ftp"));
+    wxIPV4address addr;
+    addr.Hostname(host);
+    addr.Service(wxT("ftp"));

 
 

-  return Connect(addr);
+    return Connect(addr);

 }
 
 bool wxFTP::Close()
 }
 
 bool wxFTP::Close()


@@ -132,11 +169,17 @@ bool wxFTP::Close()
     if ( m_streaming )
     {
         m_lastError = wxPROTO_STREAMING;
     if ( m_streaming )
     {
         m_lastError = wxPROTO_STREAMING;

-        return FALSE;
+        return false;

     }
 
     if ( IsConnected() )
     }
 
     if ( IsConnected() )

-        SendCommand(wxT("QUIT"), '2');
+    {
+        if ( !CheckCommand(wxT("QUIT"), '2') )
+        {
+            m_lastError = wxPROTO_CONNERR;
+            wxLogDebug(_T("Failed to close connection gracefully."));
+        }
+    }

 
     return wxSocketClient::Close();
 }
 
     return wxSocketClient::Close();
 }


@@ -145,41 +188,97 @@ bool wxFTP::Close()
 // low level methods
 // ============================================================================
 
 // low level methods
 // ============================================================================
 

+wxSocketBase *wxFTP::AcceptIfActive(wxSocketBase *sock)
+{
+    if ( m_bPassive )
+        return sock;
+
+    // now wait for a connection from server
+    wxSocketServer *sockSrv = (wxSocketServer *)sock;
+    if ( !sockSrv->WaitForAccept() )
+    {
+        m_lastError = wxPROTO_CONNERR;
+        wxLogError(_("Timeout while waiting for FTP server to connect, try passive mode."));
+        delete sock;
+        sock = NULL;
+    }
+    else
+    {
+        m_lastError = wxPROTO_NOERR;
+        sock = sockSrv->Accept(true);
+        delete sockSrv;
+    }
+
+    return sock;
+}
+
+bool wxFTP::Abort()
+{
+    if ( !m_streaming )
+        return true;
+
+    m_streaming = false;
+    if ( !CheckCommand(wxT("ABOR"), '4') )
+        return false;
+
+    return CheckResult('2');
+}
+
+

 // ----------------------------------------------------------------------------
 // Send command to FTP server
 // ----------------------------------------------------------------------------
 
 // ----------------------------------------------------------------------------
 // Send command to FTP server
 // ----------------------------------------------------------------------------
 

-bool wxFTP::SendCommand(const wxString& command, char exp_ret)
+char wxFTP::SendCommand(const wxString& command)

 {
 {

-    wxString tmp_str;
-
-    if (m_streaming)
+    if ( m_streaming )

     {
         m_lastError = wxPROTO_STREAMING;
     {
         m_lastError = wxPROTO_STREAMING;

-        return FALSE;
+        return 0;

     }
 
     }
 

-    tmp_str = command + wxT("\r\n");
+    wxString tmp_str = command + wxT("\r\n");

     const wxWX2MBbuf tmp_buf = tmp_str.mb_str();
     if ( Write(wxMBSTRINGCAST tmp_buf, strlen(tmp_buf)).Error())
     {
         m_lastError = wxPROTO_NETERR;
     const wxWX2MBbuf tmp_buf = tmp_str.mb_str();
     if ( Write(wxMBSTRINGCAST tmp_buf, strlen(tmp_buf)).Error())
     {
         m_lastError = wxPROTO_NETERR;

-        return FALSE;
+        return 0;
+    }
+
+    // don't show the passwords in the logs (even in debug ones)
+    wxString cmd, password;
+    if ( command.Upper().StartsWith(_T("PASS "), &password) )
+    {
+        cmd << _T("PASS ") << wxString(_T('*'), password.length());
+    }
+    else
+    {
+        cmd = command;

     }
 
     }
 

-    wxLogTrace(_T("ftp"), _T("==> %s"), command.c_str());
+    LogRequest(cmd);

 
 

-    return GetResult(exp_ret);
+    m_lastError = wxPROTO_NOERR;
+    return GetResult();

 }
 
 // ----------------------------------------------------------------------------
 }
 
 // ----------------------------------------------------------------------------

-// Recieve servers reply
+// Receive servers reply

 // ----------------------------------------------------------------------------
 
 // ----------------------------------------------------------------------------
 

-bool wxFTP::GetResult(char exp)
+char wxFTP::GetResult()

 {
 {

+    // if we've already had a read or write timeout error, the connection is
+    // probably toast, so don't bother, it just wastes the users time
+    if ( m_bEncounteredError )
+        return 0;
+

     wxString code;
 
     wxString code;
 

+    // m_lastResult will contain the entire server response, possibly on
+    // multiple lines
+    m_lastResult.clear();
+

     // we handle multiline replies here according to RFC 959: it says that a
     // reply may either be on 1 line of the form "xyz ..." or on several lines
     // in whuch case it looks like
     // we handle multiline replies here according to RFC 959: it says that a
     // reply may either be on 1 line of the form "xyz ..." or on several lines
     // in whuch case it looks like


@@ -187,72 +286,70 @@ bool wxFTP::GetResult(char exp)
     //      ...
     //      xyz ...
     // and the intermeidate lines may start with xyz or not
     //      ...
     //      xyz ...
     // and the intermeidate lines may start with xyz or not

-    bool badReply = FALSE;
-    bool firstLine = TRUE;
-    bool endOfReply = FALSE;
+    bool badReply = false;
+    bool firstLine = true;
+    bool endOfReply = false;

     while ( !endOfReply && !badReply )
     {
     while ( !endOfReply && !badReply )
     {

-        m_lastError = ReadLine(m_lastResult);
+        wxString line;
+        m_lastError = ReadLine(this,line);

         if ( m_lastError )
         if ( m_lastError )

-            return FALSE;
+        {
+            m_bEncounteredError = true;
+            return 0;
+        }
+
+        LogResponse(line);
+
+        if ( !m_lastResult.empty() )
+        {
+            // separate from last line
+            m_lastResult += _T('\n');
+        }
+
+        m_lastResult += line;

 
         // unless this is an intermediate line of a multiline reply, it must
         // contain the code in the beginning and '-' or ' ' following it
 
         // unless this is an intermediate line of a multiline reply, it must
         // contain the code in the beginning and '-' or ' ' following it

-        if ( m_lastResult.Len() < LEN_CODE + 1 )
+        if ( line.Len() < LEN_CODE + 1 )

         {
             if ( firstLine )
             {
         {
             if ( firstLine )
             {

-                badReply = TRUE;
-            }
-            else
-            {
-                wxLogTrace(_T("ftp"), _T("<== %s %s"),
-                           code.c_str(), m_lastResult.c_str());
+                badReply = true;

             }
         }
         else // line has at least 4 chars
         {
             // this is the char which tells us what we're dealing with
             }
         }
         else // line has at least 4 chars
         {
             // this is the char which tells us what we're dealing with

-            wxChar chMarker = m_lastResult.GetChar(LEN_CODE);
+            wxChar chMarker = line.GetChar(LEN_CODE);

 
             if ( firstLine )
             {
 
             if ( firstLine )
             {

-                code = wxString(m_lastResult, LEN_CODE);
-                wxLogTrace(_T("ftp"), _T("<== %s %s"),
-                           code.c_str(), m_lastResult.c_str() + LEN_CODE + 1);
+                code = wxString(line, LEN_CODE);

 
                 switch ( chMarker )
                 {
                     case _T(' '):
 
                 switch ( chMarker )
                 {
                     case _T(' '):

-                        endOfReply = TRUE;
+                        endOfReply = true;

                         break;
 
                     case _T('-'):
                         break;
 
                     case _T('-'):

-                        firstLine = FALSE;
+                        firstLine = false;

                         break;
 
                     default:
                         // unexpected
                         break;
 
                     default:
                         // unexpected

-                        badReply = TRUE;
+                        badReply = true;

                 }
             }
             else // subsequent line of multiline reply
             {
                 }
             }
             else // subsequent line of multiline reply
             {

-                if ( wxStrncmp(m_lastResult, code, LEN_CODE) == 0 )
+                if ( line.compare(0, LEN_CODE, code) == 0 )

                 {
                     if ( chMarker == _T(' ') )
                     {
                 {
                     if ( chMarker == _T(' ') )
                     {

-                        endOfReply = TRUE;
+                        endOfReply = true;

                     }
                     }

-
-                    wxLogTrace(_T("ftp"), _T("<== %s %s"),
-                               code.c_str(), m_lastResult.c_str() + LEN_CODE + 1);
-                }
-                else
-                {
-                    // just part of reply
-                    wxLogTrace(_T("ftp"), _T("<== %s %s"),
-                               code.c_str(), m_lastResult.c_str());

                 }
             }
         }
                 }
             }
         }


@@ -265,65 +362,118 @@ bool wxFTP::GetResult(char exp)
 
         m_lastError = wxPROTO_PROTERR;
 
 
         m_lastError = wxPROTO_PROTERR;
 

-        return FALSE;
+        return 0;

     }
     }

+    else
+        m_lastError = wxPROTO_NOERR;

 
 

-    if ( code.GetChar(0) != exp )
+    // if we got here we must have a non empty code string
+    return (char)code[0u];
+}
+
+// ----------------------------------------------------------------------------
+// wxFTP simple commands
+// ----------------------------------------------------------------------------
+
+bool wxFTP::SetTransferMode(TransferMode transferMode)
+{
+    if ( transferMode == m_currentTransfermode )

     {
     {

-        m_lastError = wxPROTO_PROTERR;
+        // nothing to do
+        return true;
+    }
+
+    wxString mode;
+    switch ( transferMode )
+    {
+        default:
+            wxFAIL_MSG(_T("unknown FTP transfer mode"));
+            // fall through
+
+        case BINARY:
+            mode = _T('I');
+            break;
+
+        case ASCII:
+            mode = _T('A');
+            break;
+    }
+
+    if ( !DoSimpleCommand(_T("TYPE"), mode) )
+    {
+        wxLogError(_("Failed to set FTP transfer mode to %s."),
+                   (transferMode == ASCII ? _("ASCII") : _("binary")));

 
 

-        return FALSE;
+        return false;

     }
 
     }
 

-    return TRUE;
+    // If we get here the operation has been successfully completed
+    // Set the status-member
+    m_currentTransfermode = transferMode;
+
+    return true;
+}
+
+bool wxFTP::DoSimpleCommand(const wxChar *command, const wxString& arg)
+{
+    wxString fullcmd = command;
+    if ( !arg.empty() )
+    {
+        fullcmd << _T(' ') << arg;
+    }
+
+    if ( !CheckCommand(fullcmd, '2') )
+    {
+        wxLogDebug(_T("FTP command '%s' failed."), fullcmd.c_str());
+        m_lastError = wxPROTO_NETERR;
+
+        return false;
+    }
+
+    m_lastError = wxPROTO_NOERR;
+    return true;

 }
 
 }
 

-////////////////////////////////////////////////////////////////
-////// wxFTP low-level methods /////////////////////////////////
-////////////////////////////////////////////////////////////////

 bool wxFTP::ChDir(const wxString& dir)
 {
 bool wxFTP::ChDir(const wxString& dir)
 {

-  wxString str = dir;
+    // some servers might not understand ".." if they use different directory
+    // tree conventions, but they always understand CDUP - should we use it if
+    // dir == ".."? OTOH, do such servers (still) exist?

 
 

-  str.Prepend(wxT("CWD "));
-  return SendCommand(str, '2');
+    return DoSimpleCommand(_T("CWD"), dir);

 }
 
 bool wxFTP::MkDir(const wxString& dir)
 {
 }
 
 bool wxFTP::MkDir(const wxString& dir)
 {

-  wxString str = dir;
-  str.Prepend(wxT("MKD "));
-  return SendCommand(str, '2');
+    return DoSimpleCommand(_T("MKD"), dir);

 }
 
 bool wxFTP::RmDir(const wxString& dir)
 {
 }
 
 bool wxFTP::RmDir(const wxString& dir)
 {

-  wxString str = dir;
-  
-  str.Prepend(wxT("PWD "));
-  return SendCommand(str, '2');
+    return DoSimpleCommand(_T("RMD"), dir);

 }
 
 wxString wxFTP::Pwd()
 {
     wxString path;
 
 }
 
 wxString wxFTP::Pwd()
 {
     wxString path;
 

-    if ( SendCommand(wxT("PWD"), '2') )
+    if ( CheckCommand(wxT("PWD"), '2') )

     {
     {

-        // the result is at least that long if SendCommand() succeeded
-        const wxChar *p = m_lastResult.c_str() + LEN_CODE + 1;
+        // the result is at least that long if CheckCommand() succeeded
+        wxString::const_iterator p = m_lastResult.begin() + LEN_CODE + 1;

         if ( *p != _T('"') )
         {
         if ( *p != _T('"') )
         {

-            wxLogDebug(_T("Missing starting quote in reply for PWD: %s"), p);
+            wxLogDebug(_T("Missing starting quote in reply for PWD: %s"),
+                       wxString(p, m_lastResult.end()));

         }
         else
         {
         }
         else
         {

-            for ( p++; *p; p++ )
+            for ( ++p; (bool)*p; ++p ) // FIXME-DMARS

             {
                 if ( *p == _T('"') )
                 {
                     // check if the quote is doubled
             {
                 if ( *p == _T('"') )
                 {
                     // check if the quote is doubled

-                    p++;
+                    ++p;

                     if ( !*p || *p != _T('"') )
                     {
                         // no, this is the end
                     if ( !*p || *p != _T('"') )
                     {
                         // no, this is the end


@@ -343,191 +493,364 @@ wxString wxFTP::Pwd()
             }
         }
     }
             }
         }
     }

+    else
+    {
+        m_lastError = wxPROTO_PROTERR;
+        wxLogDebug(_T("FTP PWD command failed."));
+    }

 
     return path;
 }
 
 bool wxFTP::Rename(const wxString& src, const wxString& dst)
 {
 
     return path;
 }
 
 bool wxFTP::Rename(const wxString& src, const wxString& dst)
 {

-  wxString str;
+    wxString str;
+
+    str = wxT("RNFR ") + src;
+    if ( !CheckCommand(str, '3') )
+        return false;

 
 

-  str = wxT("RNFR ") + src;
-  if (!SendCommand(str, '3'))
-    return FALSE;
+    str = wxT("RNTO ") + dst;

 
 

-  str = wxT("RNTO ") + dst;
-  return SendCommand(str, '2');
+    return CheckCommand(str, '2');

 }
 
 bool wxFTP::RmFile(const wxString& path)
 {
 }
 
 bool wxFTP::RmFile(const wxString& path)
 {

-  wxString str;
+    wxString str;
+    str = wxT("DELE ") + path;

 
 

-  str = wxT("DELE ");
-  str += path;
-  return SendCommand(str, '2');
+    return CheckCommand(str, '2');

 }
 
 }
 

-////////////////////////////////////////////////////////////////
-////// wxFTP download*upload ///////////////////////////////////
-////////////////////////////////////////////////////////////////
+// ----------------------------------------------------------------------------
+// wxFTP port methods
+// ----------------------------------------------------------------------------

 
 

-class wxInputFTPStream : public wxSocketInputStream {
-public:
-  wxFTP *m_ftp;
-  size_t m_ftpsize;
-
-  wxInputFTPStream(wxFTP *ftp_clt, wxSocketBase *sock)
-    : wxSocketInputStream(*sock), m_ftp(ftp_clt) {}
-  size_t GetSize() const { return m_ftpsize; }
-  virtual ~wxInputFTPStream(void)
-  { 
-     if (LastError() == wxStream_NOERROR)
-       m_ftp->GetResult('2');
-     else
-       m_ftp->Abort();
-     delete m_i_socket;
-  }
-};
+wxSocketBase *wxFTP::GetPort()
+{
+    /*
+    PASSIVE:    Client sends a "PASV" to the server.  The server responds with
+                an address and port number which it will be listening on. Then
+                the client connects to the server at the specified address and
+                port.
+
+    ACTIVE:     Client sends the server a PORT command which includes an
+                address and port number which the client will be listening on.
+                The server then connects to the client at that address and
+                port.
+    */
+
+    wxSocketBase *socket = m_bPassive ? GetPassivePort() : GetActivePort();
+    if ( !socket )
+    {
+        m_bEncounteredError = true;
+        return NULL;
+    }

 
 

-class wxOutputFTPStream : public wxSocketOutputStream {
-public:
-  wxFTP *m_ftp;
-
-  wxOutputFTPStream(wxFTP *ftp_clt, wxSocketBase *sock)
-    : wxSocketOutputStream(*sock), m_ftp(ftp_clt) {}
-  virtual ~wxOutputFTPStream(void)
-  {
-     if (LastError() != wxStream_NOERROR)
-       m_ftp->GetResult('2');
-     else
-       m_ftp->Abort();
-     delete m_o_socket;
-  }
-};
+    // Now set the time for the new socket to the default or user selected
+    // timeout period
+    socket->SetTimeout(m_uiDefaultTimeout);

 
 

-wxSocketClient *wxFTP::GetPort()
+    return socket;
+}
+
+wxString wxFTP::GetPortCmdArgument(const wxIPV4address& addrLocal,
+                                   const wxIPV4address& addrNew)

 {
 {

-  wxIPV4address addr;
-  wxSocketClient *client;
-  int a[6];
-  wxString straddr;
-  int addr_pos;
-  wxUint16 port;
-  wxUint32 hostaddr;
-
-  if (!SendCommand(wxT("PASV"), '2'))
-    return NULL;
-
-  addr_pos = m_lastResult.Find(wxT('('));
-  if (addr_pos == -1) {
-    m_lastError = wxPROTO_PROTERR;
-    return NULL;
-  }
-  straddr = m_lastResult(addr_pos+1, m_lastResult.Length());
-  wxSscanf((const wxChar *)straddr,wxT("%d,%d,%d,%d,%d,%d"),&a[2],&a[3],&a[4],&a[5],&a[0],&a[1]);
-
-  hostaddr = (wxUint16)a[5] << 24 | (wxUint16)a[4] << 16 |
-             (wxUint16)a[3] << 8 | a[2]; 
-  addr.Hostname(hostaddr);
-
-  port = (wxUint16)a[0] << 8 | a[1];
-  addr.Service(port);
-
-  client = new wxSocketClient();
-  if (!client->Connect(addr)) {
-    delete client;
-    return NULL;
-  }
-  client->Notify(FALSE);
-
-  return client;
+    // Just fills in the return value with the local IP
+    // address of the current socket.  Also it fill in the
+    // PORT which the client will be listening on
+
+    wxString addrIP = addrLocal.IPAddress();
+    int portNew = addrNew.Service();
+
+    // We need to break the PORT number in bytes
+    addrIP.Replace(_T("."), _T(","));
+    addrIP << _T(',')
+           << wxString::Format(_T("%d"), portNew >> 8) << _T(',')
+           << wxString::Format(_T("%d"), portNew & 0xff);
+
+    // Now we have a value like "10,0,0,1,5,23"
+    return addrIP;

 }
 
 }
 

-bool wxFTP::Abort()
+wxSocketBase *wxFTP::GetActivePort()

 {
 {

-    if ( !m_streaming )
-        return TRUE;
-        
-    m_streaming = FALSE;
-    if ( !SendCommand(wxT("ABOR"), '4') )
-        return FALSE;
+    // we need an address to listen on
+    wxIPV4address addrNew, addrLocal;
+    GetLocal(addrLocal);
+    addrNew.AnyAddress();
+    addrNew.Service(0); // pick an open port number.
+
+    wxSocketServer *sockSrv = new wxSocketServer(addrNew);
+    if (!sockSrv->Ok())
+    {
+        // We use Ok() here to see if everything is ok
+        m_lastError = wxPROTO_PROTERR;
+        delete sockSrv;
+        return NULL;
+    }
+
+    //gets the new address, actually it is just the port number
+    sockSrv->GetLocal(addrNew);
+
+    // Now we create the argument of the PORT command, we send in both
+    // addresses because the addrNew has an IP of "0.0.0.0", so we need the
+    // value in addrLocal
+    wxString port = GetPortCmdArgument(addrLocal, addrNew);
+    if ( !DoSimpleCommand(_T("PORT"), port) )
+    {
+        m_lastError = wxPROTO_PROTERR;
+        delete sockSrv;
+        wxLogError(_("The FTP server doesn't support the PORT command."));
+        return NULL;
+    }
+
+    m_lastError = wxPROTO_NOERR;
+    sockSrv->Notify(false); // Don't send any events
+    return sockSrv;
+}
+
+wxSocketBase *wxFTP::GetPassivePort()
+{
+    if ( !DoSimpleCommand(_T("PASV")) )
+    {
+        m_lastError = wxPROTO_PROTERR;
+        wxLogError(_("The FTP server doesn't support passive mode."));
+        return NULL;
+    }
+
+    size_t addrStart = m_lastResult.find(_T('('));
+    size_t addrEnd = (addrStart == wxString::npos)
+                     ? wxString::npos
+                     : m_lastResult.find(_T(')'), addrStart);
+
+    if ( addrEnd == wxString::npos )
+    {
+        m_lastError = wxPROTO_PROTERR;
+        return NULL;
+    }
+
+    // get the port number and address
+    int a[6];
+    wxString straddr(m_lastResult, addrStart + 1, addrEnd - (addrStart + 1));
+    wxSscanf(straddr, wxT("%d,%d,%d,%d,%d,%d"),
+             &a[2],&a[3],&a[4],&a[5],&a[0],&a[1]);
+
+    wxUint32 hostaddr = (wxUint16)a[2] << 24 |
+                        (wxUint16)a[3] << 16 |
+                        (wxUint16)a[4] << 8 |
+                        a[5];
+    wxUint16 port = (wxUint16)(a[0] << 8 | a[1]);
+
+    wxIPV4address addr;
+    addr.Hostname(hostaddr);
+    addr.Service(port);
+
+    wxSocketClient *client = new wxSocketClient();
+    if ( !client->Connect(addr) )
+    {
+        m_lastError = wxPROTO_CONNERR;
+        delete client;
+        return NULL;
+    }

 
 

-    return GetResult('2');
+    client->Notify(false);
+
+    m_lastError = wxPROTO_NOERR;
+    return client;

 }
 
 }
 

+
+// ----------------------------------------------------------------------------
+// wxFTP download and upload
+// ----------------------------------------------------------------------------
+
+class wxInputFTPStream : public wxSocketInputStream
+{
+public:
+    wxInputFTPStream(wxFTP *ftp, wxSocketBase *sock)
+        : wxSocketInputStream(*sock)
+    {
+        m_ftp = ftp;
+        // socket timeout automatically set in GetPort function
+    }
+
+    virtual ~wxInputFTPStream()
+    {
+        delete m_i_socket;   // keep at top
+
+        // when checking the result, the stream will
+        // almost always show an error, even if the file was
+        // properly transfered, thus, lets just grab the result
+
+        // we are looking for "226 transfer completed"
+        char code = m_ftp->GetResult();
+        if ('2' == code)
+        {
+            // it was a good transfer.
+            // we're done!
+             m_ftp->m_streaming = false;
+            return;
+        }
+        // did we timeout?
+        if (0 == code)
+        {
+            // the connection is probably toast. issue an abort, and
+            // then a close. there won't be any more waiting
+            // for this connection
+            m_ftp->Abort();
+            m_ftp->Close();
+            return;
+        }
+        // There was a problem with the transfer and the server
+        // has acknowledged it.  If we issue an "ABORT" now, the user
+        // would get the "226" for the abort and think the xfer was
+        // complete, thus, don't do anything here, just return
+    }
+
+    wxFTP *m_ftp;
+
+    wxDECLARE_NO_COPY_CLASS(wxInputFTPStream);
+};
+
+class wxOutputFTPStream : public wxSocketOutputStream
+{
+public:
+    wxOutputFTPStream(wxFTP *ftp_clt, wxSocketBase *sock)
+        : wxSocketOutputStream(*sock), m_ftp(ftp_clt)
+    {
+    }
+
+    virtual ~wxOutputFTPStream(void)
+    {
+        if ( IsOk() )
+        {
+            // close data connection first, this will generate "transfer
+            // completed" reply
+            delete m_o_socket;
+
+            // read this reply
+            m_ftp->GetResult(); // save result so user can get to it
+
+            m_ftp->m_streaming = false;
+        }
+        else
+        {
+            // abort data connection first
+            m_ftp->Abort();
+
+            // and close it after
+            delete m_o_socket;
+        }
+    }
+
+    wxFTP *m_ftp;
+
+    wxDECLARE_NO_COPY_CLASS(wxOutputFTPStream);
+};
+

 wxInputStream *wxFTP::GetInputStream(const wxString& path)
 {
 wxInputStream *wxFTP::GetInputStream(const wxString& path)
 {

-  wxString tmp_str;
-  int pos_size;
-  wxInputFTPStream *in_stream;
+    if ( ( m_currentTransfermode == NONE ) && !SetTransferMode(BINARY) )
+    {
+        m_lastError = wxPROTO_CONNERR;
+        return NULL;
+    }

 
 

-  if (!SendCommand(wxT("TYPE I"), '2'))
-    return NULL;
+    wxSocketBase *sock = GetPort();

 
 

-  wxSocketClient *sock = GetPort();
+    if ( !sock )
+    {
+        m_lastError = wxPROTO_NETERR;
+        return NULL;
+    }

 
 

-  if (!sock) {
-    m_lastError = wxPROTO_NETERR;
-    return NULL;
-  }
+    wxString tmp_str = wxT("RETR ") + wxURI::Unescape(path);
+    if ( !CheckCommand(tmp_str, '1') )
+        return NULL;

 
 

-  tmp_str = wxT("RETR ") + wxURL::ConvertFromURI(path);
-  if (!SendCommand(tmp_str, '1'))
-    return NULL;
+    sock = AcceptIfActive(sock);
+    if ( !sock )
+    {
+        m_lastError = wxPROTO_CONNERR;
+        return NULL;
+    }

 
 

-  in_stream = new wxInputFTPStream(this, sock);
+    sock->SetFlags(wxSOCKET_WAITALL);

 
 

-  pos_size = m_lastResult.Index(wxT('('));
-  if (pos_size != wxNOT_FOUND) {
-    wxString str_size = m_lastResult(pos_size+1, m_lastResult.Index(wxT(')'))-1);
+    m_streaming = true;

 
 

-    in_stream->m_ftpsize = wxAtoi(WXSTRINGCAST str_size);
-  }
-  sock->SetFlags(wxSOCKET_WAITALL);
+    wxInputFTPStream *in_stream = new wxInputFTPStream(this, sock);

 
 

-  return in_stream;
+    m_lastError = wxPROTO_NOERR;
+    return in_stream;

 }
 
 wxOutputStream *wxFTP::GetOutputStream(const wxString& path)
 {
 }
 
 wxOutputStream *wxFTP::GetOutputStream(const wxString& path)
 {

-  wxString tmp_str;
+    if ( ( m_currentTransfermode == NONE ) && !SetTransferMode(BINARY) )
+    {
+        m_lastError = wxPROTO_CONNERR;
+        return NULL;
+    }

 
 

-  if (!SendCommand(wxT("TYPE I"), '2'))
-    return NULL;
+    wxSocketBase *sock = GetPort();
+
+    wxString tmp_str = wxT("STOR ") + path;
+    if ( !CheckCommand(tmp_str, '1') )
+        return NULL;

 
 

-  wxSocketClient *sock = GetPort();
+    sock = AcceptIfActive(sock);

 
 

-  tmp_str = wxT("STOR ") + path;
-  if (!SendCommand(tmp_str, '1'))
-    return FALSE;
+    m_streaming = true;

 
 

-  return new wxOutputFTPStream(this, sock);
+    m_lastError = wxPROTO_NOERR;
+    return new wxOutputFTPStream(this, sock);

 }
 
 }
 

-bool wxFTP::GetList(wxArrayString& files, const wxString& wildcard)
+// ----------------------------------------------------------------------------
+// FTP directory listing
+// ----------------------------------------------------------------------------
+
+bool wxFTP::GetList(wxArrayString& files,
+                    const wxString& wildcard,
+                    bool details)

 {
     wxSocketBase *sock = GetPort();
 {
     wxSocketBase *sock = GetPort();

-    if ( !sock )
-    {
-        return FALSE;
+    if (!sock) {
+        m_lastError = wxPROTO_NETERR;
+        return false;

     }
 
     }
 

-    wxString line = _T("NLST");
-    if ( !!wildcard )
+    // NLST : List of Filenames (including Directory's !)
+    // LIST : depending on BS of FTP-Server
+    //        - Unix    : result like "ls" command
+    //        - Windows : like "dir" command
+    //        - others  : ?
+    wxString line(details ? _T("LIST") : _T("NLST"));
+    if ( !wildcard.empty() )

     {
     {

-        // notice that there is no space here
-        line += wildcard;
+        line << _T(' ') << wildcard;

     }
 
     }
 

-    if ( !SendCommand(line, '1') )
+    if ( !CheckCommand(line, '1') )

     {
     {

-        return FALSE;
+        m_lastError = wxPROTO_PROTERR;
+        wxLogDebug(_T("FTP 'LIST' command returned unexpected result from server"));
+        delete sock;
+        return false;

     }
 
     }
 

-    files.Empty();
+    sock = AcceptIfActive(sock);
+    if ( !sock ) {
+        m_lastError = wxPROTO_CONNERR;
+        return false;
+    }

 
 

-    while ( ReadLine(sock, line) == wxPROTO_NOERR )
+    files.Empty();
+    while (ReadLine(sock, line) == wxPROTO_NOERR )

     {
         files.Add(line);
     }
     {
         files.Add(line);
     }


@@ -535,39 +858,162 @@ bool wxFTP::GetList(wxArrayString& files, const wxString& wildcard)
     delete sock;
 
     // the file list should be terminated by "226 Transfer complete""
     delete sock;
 
     // the file list should be terminated by "226 Transfer complete""

-    if ( !GetResult('2') )
-        return FALSE;
+    m_lastError = wxPROTO_NOERR;
+    return CheckResult('2');
+}
+
+bool wxFTP::FileExists(const wxString& fileName)
+{
+    // This function checks if the file specified in fileName exists in the
+    // current dir. It does so by simply doing an NLST (via GetList).
+    // If this succeeds (and the list is not empty) the file exists.
+
+    bool retval = false;
+    wxArrayString fileList;
+
+    if ( GetList(fileList, fileName, false) )
+    {
+        // Some ftp-servers (Ipswitch WS_FTP Server 1.0.5 does this)
+        // displays this behaviour when queried on a nonexistent file:
+        // NLST this_file_does_not_exist
+        // 150 Opening ASCII data connection for directory listing
+        // (no data transferred)
+        // 226 Transfer complete
+        // Here wxFTP::GetList(...) will succeed but it will return an empty
+        // list.
+        retval = !fileList.IsEmpty();
+    }

 
 

-    return TRUE;
+    return retval;

 }
 
 }
 

-wxList *wxFTP::GetList(const wxString& wildcard)
+// ----------------------------------------------------------------------------
+// FTP GetSize
+// ----------------------------------------------------------------------------
+
+int wxFTP::GetFileSize(const wxString& fileName)

 {
 {

-  wxList *file_list = new wxList;
-  wxSocketBase *sock = GetPort();
-  wxString tmp_str = wxT("NLST");
+    // return the filesize of the given file if possible
+    // return -1 otherwise (predominantly if file doesn't exist
+    // in current dir)

 
 

-  if (!wildcard.IsNull())
-    tmp_str += wildcard;
+    int filesize = -1;

 
 

-  if (!SendCommand(tmp_str, '1')) {
-    delete sock;
-    delete file_list;
-    return NULL;
-  }
+    // Check for existance of file via wxFTP::FileExists(...)
+    if ( FileExists(fileName) )
+    {
+        wxString command;

 
 

-  while (GetLine(sock, tmp_str) == wxPROTO_NOERR) {
-    file_list->Append((wxObject *)(new wxString(tmp_str)));
-  }
+        // First try "SIZE" command using BINARY(IMAGE) transfermode
+        // Especially UNIX ftp-servers distinguish between the different
+        // transfermodes and reports different filesizes accordingly.
+        // The BINARY size is the interesting one: How much memory
+        // will we need to hold this file?
+        TransferMode oldTransfermode = m_currentTransfermode;
+        SetTransferMode(BINARY);
+        command << _T("SIZE ") << fileName;

 
 

-  if (!GetResult('2')) {
-    delete sock;
-    file_list->DeleteContents(TRUE);
-    delete file_list;
-    return NULL;
-  }
+        bool ok = CheckCommand(command, '2');
+
+        if ( ok )
+        {
+            // The answer should be one line: "213 <filesize>\n"
+            // 213 is File Status (STD9)
+            // "SIZE" is not described anywhere..? It works on most servers
+            int statuscode;
+            if ( wxSscanf(GetLastResult().c_str(), _T("%i %i"),
+                          &statuscode, &filesize) == 2 )
+            {
+                // We've gotten a good reply.
+                ok = true;
+            }
+            else
+            {
+                // Something bad happened.. A "2yz" reply with no size
+                // Fallback
+                ok = false;
+            }
+        }
+
+        // Set transfermode back to the original. Only the "SIZE"-command
+        // is dependant on transfermode
+        if ( oldTransfermode != NONE )
+        {
+            SetTransferMode(oldTransfermode);
+        }

 
 

-  return file_list;
+        // this is not a direct else clause.. The size command might return an
+        // invalid "2yz" reply
+        if ( !ok )
+        {
+            // The server didn't understand the "SIZE"-command or it
+            // returned an invalid reply.
+            // We now try to get details for the file with a "LIST"-command
+            // and then parse the output from there..
+            wxArrayString fileList;
+            if ( GetList(fileList, fileName, true) )
+            {
+                if ( !fileList.IsEmpty() )
+                {
+                    // We _should_ only get one line in return, but just to be
+                    // safe we run through the line(s) returned and look for a
+                    // substring containing the name we are looking for. We
+                    // stop the iteration at the first occurrence of the
+                    // filename. The search is not case-sensitive.
+                    bool foundIt = false;
+
+                    size_t i;
+                    for ( i = 0; !foundIt && i < fileList.GetCount(); i++ )
+                    {
+                        foundIt = fileList[i].Upper().Contains(fileName.Upper());
+                    }
+
+                    if ( foundIt )
+                    {
+                        // The index i points to the first occurrence of
+                        // fileName in the array Now we have to find out what
+                        // format the LIST has returned. There are two
+                        // "schools": Unix-like
+                        //
+                        // '-rw-rw-rw- owner group size month day time filename'
+                        //
+                        // or Windows-like
+                        //
+                        // 'date size filename'
+
+                        // check if the first character is '-'. This would
+                        // indicate Unix-style (this also limits this function
+                        // to searching for files, not directories)
+                        if ( fileList[i].Mid(0, 1) == _T("-") )
+                        {
+
+                            if ( wxSscanf(fileList[i].c_str(),
+                                          _T("%*s %*s %*s %*s %i %*s %*s %*s %*s"),
+                                          &filesize) != 9 )
+                            {
+                                // Hmm... Invalid response
+                                wxLogDebug(wxT("Invalid LIST response"));
+                            }
+                        }
+                        else // Windows-style response (?)
+                        {
+                            if ( wxSscanf(fileList[i].c_str(),
+                                          _T("%*s %*s %i %*s"),
+                                          &filesize) != 4 )
+                            {
+                                // something bad happened..?
+                                wxLogDebug(wxT("Invalid or unknown LIST response"));
+                            }
+                        }
+                    }
+                }
+            }
+        }
+    }
+
+    // filesize might still be -1 when exiting
+    return filesize;

 }
 }

-#endif
-  // wxUSE_SOCKETS
+
+#endif // wxUSE_PROTOCOL_FTP
+