improved wxMac event loop implementation and refactored the code to share it with...

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

diff --git a/src/common/ftp.cpp b/src/common/ftp.cpp
index 57857abc7a59b12da65a100af0786d34b64a4c6f..c77c3152422c37b6233a21113e6d18f118435a86 100644 (file)
--- a/src/common/ftp.cpp
+++ b/src/common/ftp.cpp
@@ -1,5 +1,5 @@
 /////////////////////////////////////////////////////////////////////////////
 /////////////////////////////////////////////////////////////////////////////

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

 // Purpose:     FTP protocol
 // Author:      Guilhem Lavaux
 // Modified by: Mark Johnson, wxWindows@mj10777.de
 // Purpose:     FTP protocol
 // Author:      Guilhem Lavaux
 // Modified by: Mark Johnson, wxWindows@mj10777.de


@@ -7,20 +7,18 @@
 //              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, ...)
 //              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

 /////////////////////////////////////////////////////////////////////////////
 
 // ============================================================================
 // declarations
 // ============================================================================
 
 /////////////////////////////////////////////////////////////////////////////
 
 // ============================================================================
 // declarations
 // ============================================================================
 

-#ifdef __GNUG__
-  #pragma implementation "ftp.h"
-#endif
-

 // ----------------------------------------------------------------------------
 // headers
 // ----------------------------------------------------------------------------
 // ----------------------------------------------------------------------------
 // headers
 // ----------------------------------------------------------------------------


@@ -32,7 +30,7 @@
   #pragma hdrstop
 #endif
 
   #pragma hdrstop
 #endif
 

-#if wxUSE_SOCKETS && wxUSE_STREAMS
+#if wxUSE_PROTOCOL_FTP

 
 #ifndef WX_PRECOMP
     #include <stdlib.h>
 
 #ifndef WX_PRECOMP
     #include <stdlib.h>


@@ -69,7 +67,7 @@ static const size_t LEN_CODE = 3;
 // ----------------------------------------------------------------------------
 
 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
 
 // ============================================================================
 // implementation


@@ -82,23 +80,29 @@ IMPLEMENT_PROTOCOL(wxFTP, wxT("ftp"), wxT("ftp"), TRUE)
 wxFTP::wxFTP()
 {
     m_lastError = wxPROTO_NOERR;
 wxFTP::wxFTP()
 {
     m_lastError = wxPROTO_NOERR;

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

 
     m_user = wxT("anonymous");
     m_passwd << wxGetUserId() << wxT('@') << wxGetFullHostName();
 
     SetNotify(0);
     SetFlags(wxSOCKET_NONE);
 
     m_user = wxT("anonymous");
     m_passwd << wxGetUserId() << wxT('@') << wxGetFullHostName();
 
     SetNotify(0);
     SetFlags(wxSOCKET_NONE);

+    m_bPassive = true;
+    SetDefaultTimeout(60); // Default is Sixty Seconds
+    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();
 }
 


@@ -111,20 +115,20 @@ bool wxFTP::Connect(wxSockAddress& addr, bool WXUNUSED(wait))
     if ( !wxProtocol::Connect(addr) )
     {
         m_lastError = wxPROTO_NETERR;
     if ( !wxProtocol::Connect(addr) )
     {
         m_lastError = wxPROTO_NETERR;

-        return FALSE;
+        return false;

     }
 
     if ( !m_user )
     {
         m_lastError = wxPROTO_CONNERR;
     }
 
     if ( !m_user )
     {
         m_lastError = wxPROTO_CONNERR;

-        return FALSE;
+        return false;

     }
 
     // we should have 220 welcome message
     if ( !CheckResult('2') )
     {
         Close();
     }
 
     // we should have 220 welcome message
     if ( !CheckResult('2') )
     {
         Close();

-        return FALSE;
+        return false;

     }
 
     wxString command;
     }
 
     wxString command;


@@ -133,23 +137,23 @@ bool wxFTP::Connect(wxSockAddress& addr, bool WXUNUSED(wait))
     if ( rc == '2' )
     {
         // 230 return: user accepted without password
     if ( rc == '2' )
     {
         // 230 return: user accepted without password

-        return TRUE;
+        return true;

     }
 
     if ( rc != '3' )
     {
         Close();
     }
 
     if ( rc != '3' )
     {
         Close();

-        return FALSE;
+        return false;

     }
 
     command.Printf(wxT("PASS %s"), m_passwd.c_str());
     if ( !CheckCommand(command, '2') )
     {
         Close();
     }
 
     command.Printf(wxT("PASS %s"), m_passwd.c_str());
     if ( !CheckCommand(command, '2') )
     {
         Close();

-        return FALSE;
+        return false;

     }
 
     }
 

-    return TRUE;
+    return true;

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


@@ -166,7 +170,7 @@ 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() )


@@ -228,6 +232,11 @@ char wxFTP::SendCommand(const wxString& command)
 
 char wxFTP::GetResult()
 {
 
 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;
 
     // m_lastResult will contain the entire server response, possibly on
     wxString code;
 
     // m_lastResult will contain the entire server response, possibly on


@@ -241,15 +250,18 @@ char wxFTP::GetResult()
     //      ...
     //      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 )
     {
         wxString line;
     while ( !endOfReply && !badReply )
     {
         wxString line;

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

         if ( m_lastError )
         if ( m_lastError )

+        {
+            m_bEncounteredError = true;

             return 0;
             return 0;

+        }

 
         if ( !m_lastResult.empty() )
         {
 
         if ( !m_lastResult.empty() )
         {


@@ -265,7 +277,7 @@ char wxFTP::GetResult()
         {
             if ( firstLine )
             {
         {
             if ( firstLine )
             {

-                badReply = TRUE;
+                badReply = true;

             }
             else
             {
             }
             else
             {


@@ -287,16 +299,16 @@ char wxFTP::GetResult()
                 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


@@ -305,7 +317,7 @@ char wxFTP::GetResult()
                 {
                     if ( chMarker == _T(' ') )
                     {
                 {
                     if ( chMarker == _T(' ') )
                     {

-                        endOfReply = TRUE;
+                        endOfReply = true;

                     }
 
                     wxLogTrace(FTP_TRACE_MASK, _T("<== %s %s"),
                     }
 
                     wxLogTrace(FTP_TRACE_MASK, _T("<== %s %s"),


@@ -332,7 +344,7 @@ char wxFTP::GetResult()
     }
 
     // if we got here we must have a non empty code string
     }
 
     // if we got here we must have a non empty code string

-    return code[0u];
+    return (char)code[0u];

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


@@ -344,7 +356,7 @@ bool wxFTP::SetTransferMode(TransferMode transferMode)
     if ( transferMode == m_currentTransfermode )
     {
         // nothing to do
     if ( transferMode == m_currentTransfermode )
     {
         // nothing to do

-        return TRUE;
+        return true;

     }
 
     wxString mode;
     }
 
     wxString mode;


@@ -365,17 +377,17 @@ bool wxFTP::SetTransferMode(TransferMode transferMode)
 
     if ( !DoSimpleCommand(_T("TYPE"), mode) )
     {
 
     if ( !DoSimpleCommand(_T("TYPE"), mode) )
     {

-        wxLogError(_("Failed to set FTP transfer mode to %s."),
-                   transferMode == ASCII ? _("ASCII") : _("binary"));
+        wxLogError(_("Failed to set FTP transfer mode to %s."), (const wxChar*)
+                   (transferMode == ASCII ? _("ASCII") : _("binary")));

 
 

-        return FALSE;
+        return false;

     }
 
     }
 

-       // If we get here the operation has been succesfully completed
-       // Set the status-member
-       m_currentTransfermode = transferMode;
+    // If we get here the operation has been successfully completed
+    // Set the status-member
+    m_currentTransfermode = transferMode;

 
 

-    return TRUE;
+    return true;

 }
 
 bool wxFTP::DoSimpleCommand(const wxChar *command, const wxString& arg)
 }
 
 bool wxFTP::DoSimpleCommand(const wxChar *command, const wxString& arg)


@@ -390,10 +402,10 @@ bool wxFTP::DoSimpleCommand(const wxChar *command, const wxString& arg)
     {
         wxLogDebug(_T("FTP command '%s' failed."), fullcmd.c_str());
 
     {
         wxLogDebug(_T("FTP command '%s' failed."), fullcmd.c_str());
 

-        return FALSE;
+        return false;

     }
 
     }
 

-    return TRUE;
+    return true;

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


@@ -468,7 +480,7 @@ bool wxFTP::Rename(const wxString& src, const wxString& dst)
 
     str = wxT("RNFR ") + src;
     if ( !CheckCommand(str, '3') )
 
     str = wxT("RNFR ") + src;
     if ( !CheckCommand(str, '3') )

-        return FALSE;
+        return false;

 
     str = wxT("RNTO ") + dst;
 
 
     str = wxT("RNTO ") + dst;
 


@@ -494,36 +506,45 @@ public:
         : wxSocketInputStream(*sock)
     {
         m_ftp = ftp;
         : wxSocketInputStream(*sock)
     {
         m_ftp = ftp;

-
-        // FIXME make the timeout configurable
-
-        // set a shorter than default timeout
-        m_i_socket->SetTimeout(60); // 1 minute
+        // socket timeout automatically set in GetPort function

     }
 
     }
 

-    size_t GetSize() const { return m_ftpsize; }
-

     virtual ~wxInputFTPStream()
     {
     virtual ~wxInputFTPStream()
     {

-        delete m_i_socket;
+        delete m_i_socket;   // keep at top

 
 

-        if ( LastError() == wxStream_NOERROR )
-        {
-            // wait for "226 transfer completed"
-            m_ftp->CheckResult('2');
+        // 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

 
 

-            m_ftp->m_streaming = FALSE;
+        // 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;

         }
         }

-        else
+        // 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->Abort();

+            m_ftp->Close();
+            return;

         }
         }

-
-        // delete m_i_socket; // moved to top of destructor to accomodate wu-FTPd >= 2.6.0
+        // 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;
     }
 
     wxFTP *m_ftp;

-    size_t m_ftpsize;
+
+    DECLARE_NO_COPY_CLASS(wxInputFTPStream)

 };
 
 class wxOutputFTPStream : public wxSocketOutputStream
 };
 
 class wxOutputFTPStream : public wxSocketOutputStream


@@ -543,9 +564,9 @@ public:
             delete m_o_socket;
 
             // read this reply
             delete m_o_socket;
 
             // read this reply

-            m_ftp->CheckResult('2');
+            m_ftp->GetResult(); // save result so user can get to it

 
 

-            m_ftp->m_streaming = FALSE;
+            m_ftp->m_streaming = false;

         }
         else
         {
         }
         else
         {


@@ -558,28 +579,134 @@ public:
     }
 
     wxFTP *m_ftp;
     }
 
     wxFTP *m_ftp;

+
+    DECLARE_NO_COPY_CLASS(wxOutputFTPStream)

 };
 
 };
 

-wxSocketClient *wxFTP::GetPort()
+void wxFTP::SetDefaultTimeout(wxUint32 Value)

 {
 {

-    int a[6];
+    m_uiDefaultTimeout = Value;
+    SetTimeout(Value); // sets it for this socket
+}

 
 

-    if ( !DoSimpleCommand(_T("PASV")) )
+
+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;
+    }
+
+    // Now set the time for the new socket to the default or user selected
+    // timeout period
+    socket->SetTimeout(m_uiDefaultTimeout);
+
+    return socket;
+}
+
+wxSocketBase *wxFTP::AcceptIfActive(wxSocketBase *sock)
+{
+    if ( m_bPassive )
+        return sock;
+
+    // now wait for a connection from server
+    wxSocketServer *sockSrv = (wxSocketServer *)sock;
+    if ( !sockSrv->WaitForAccept() )

     {
     {

-        wxLogError(_("The FTP server doesn't support passive mode."));
+        m_lastError = wxPROTO_CONNERR;
+        wxLogError(_("Timeout while waiting for FTP server to connect, try passive mode."));
+        delete sock;
+        sock = NULL;
+    }
+    else
+    {
+        sock = sockSrv->Accept(true);
+        delete sockSrv;
+    }
+
+    return sock;
+}
+
+wxString wxFTP::GetPortCmdArgument(const wxIPV4address& addrLocal,
+                                   const wxIPV4address& addrNew)
+{
+    // 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;
+}
+
+wxSocketBase *wxFTP::GetActivePort()
+{
+    // 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;
     }
 
         return NULL;
     }
 

-    const char *addrStart = wxStrchr(m_lastResult, _T('('));
-    if ( !addrStart )
+    //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;
     {
         m_lastError = wxPROTO_PROTERR;

+        delete sockSrv;
+        wxLogError(_("The FTP server doesn't support the PORT command."));
+        return NULL;
+    }
+
+    sockSrv->Notify(false); // Don't send any events
+    return sockSrv;
+}

 
 

+wxSocketBase *wxFTP::GetPassivePort()
+{
+    if ( !DoSimpleCommand(_T("PASV")) )
+    {
+        wxLogError(_("The FTP server doesn't support passive mode."));

         return NULL;
     }
 
         return NULL;
     }
 

-    const char *addrEnd = wxStrchr(addrStart, _T(')'));
+    const wxChar *addrStart = wxStrchr(m_lastResult, _T('('));
+    const wxChar *addrEnd = addrStart ? wxStrchr(addrStart, _T(')')) : NULL;

     if ( !addrEnd )
     {
         m_lastError = wxPROTO_PROTERR;
     if ( !addrEnd )
     {
         m_lastError = wxPROTO_PROTERR;


@@ -587,16 +714,17 @@ wxSocketClient *wxFTP::GetPort()
         return NULL;
     }
 
         return NULL;
     }
 

+    // get the port number and address
+    int a[6];

     wxString straddr(addrStart + 1, addrEnd);
     wxString straddr(addrStart + 1, addrEnd);

-

     wxSscanf(straddr, wxT("%d,%d,%d,%d,%d,%d"),
              &a[2],&a[3],&a[4],&a[5],&a[0],&a[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[5] << 24 |
-                        (wxUint16)a[4] << 16 |
-                        (wxUint16)a[3] << 8 |
-                        a[2];
-    wxUint16 port = (wxUint16)a[0] << 8 | 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);
 
     wxIPV4address addr;
     addr.Hostname(hostaddr);


@@ -609,7 +737,7 @@ wxSocketClient *wxFTP::GetPort()
         return NULL;
     }
 
         return NULL;
     }
 

-    client->Notify(FALSE);
+    client->Notify(false);

 
     return client;
 }
 
     return client;
 }


@@ -617,24 +745,21 @@ wxSocketClient *wxFTP::GetPort()
 bool wxFTP::Abort()
 {
     if ( !m_streaming )
 bool wxFTP::Abort()
 {
     if ( !m_streaming )

-        return TRUE;
+        return true;

 
 

-    m_streaming = FALSE;
+    m_streaming = false;

     if ( !CheckCommand(wxT("ABOR"), '4') )
     if ( !CheckCommand(wxT("ABOR"), '4') )

-        return FALSE;
+        return false;

 
     return CheckResult('2');
 }
 
 wxInputStream *wxFTP::GetInputStream(const wxString& path)
 {
 
     return CheckResult('2');
 }
 
 wxInputStream *wxFTP::GetInputStream(const wxString& path)
 {

-    int pos_size;
-    wxInputFTPStream *in_stream;
-
-       if ( ( m_currentTransfermode == NONE ) && !SetTransferMode(BINARY) )
+    if ( ( m_currentTransfermode == NONE ) && !SetTransferMode(BINARY) )

         return NULL;
 
         return NULL;
 

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

 
     if ( !sock )
     {
 
     if ( !sock )
     {


@@ -642,39 +767,37 @@ wxInputStream *wxFTP::GetInputStream(const wxString& path)
         return NULL;
     }
 
         return NULL;
     }
 

-    wxString tmp_str = wxT("RETR ") + wxURL::ConvertFromURI(path);
+    wxString tmp_str = wxT("RETR ") + wxURI::Unescape(path);

     if ( !CheckCommand(tmp_str, '1') )
         return NULL;
 
     if ( !CheckCommand(tmp_str, '1') )
         return NULL;
 

-    m_streaming = TRUE;
+    sock = AcceptIfActive(sock);
+    if ( !sock )
+        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;
 }
 
 wxOutputStream *wxFTP::GetOutputStream(const wxString& path)
 {
 
     return in_stream;
 }
 
 wxOutputStream *wxFTP::GetOutputStream(const wxString& path)
 {

-       if ( ( m_currentTransfermode == NONE ) && !SetTransferMode(BINARY) )
+    if ( ( m_currentTransfermode == NONE ) && !SetTransferMode(BINARY) )

         return NULL;
 
         return NULL;
 

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

 
     wxString tmp_str = wxT("STOR ") + path;
     if ( !CheckCommand(tmp_str, '1') )
 
     wxString tmp_str = wxT("STOR ") + path;
     if ( !CheckCommand(tmp_str, '1') )

-        return FALSE;
+        return NULL;
+
+    sock = AcceptIfActive(sock);

 
 

-    m_streaming = TRUE;
+    m_streaming = true;

 
     return new wxOutputFTPStream(this, sock);
 }
 
     return new wxOutputFTPStream(this, sock);
 }


@@ -689,7 +812,7 @@ bool wxFTP::GetList(wxArrayString& files,
 {
     wxSocketBase *sock = GetPort();
     if (!sock)
 {
     wxSocketBase *sock = GetPort();
     if (!sock)

-        return FALSE;
+        return false;

 
     // NLST : List of Filenames (including Directory's !)
     // LIST : depending on BS of FTP-Server
 
     // NLST : List of Filenames (including Directory's !)
     // LIST : depending on BS of FTP-Server


@@ -697,52 +820,58 @@ bool wxFTP::GetList(wxArrayString& files,
     //        - Windows : like "dir" command
     //        - others  : ?
     wxString line(details ? _T("LIST") : _T("NLST"));
     //        - Windows : like "dir" command
     //        - others  : ?
     wxString line(details ? _T("LIST") : _T("NLST"));

-    if ( !!wildcard )
+    if ( !wildcard.empty() )

     {
         line << _T(' ') << wildcard;
     }
 
     {
         line << _T(' ') << wildcard;
     }
 

-    if (!CheckCommand(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;

     }
     }

+
+    sock = AcceptIfActive(sock);
+    if ( !sock )
+        return false;
+

     files.Empty();
     files.Empty();

-    while ( ReadLine(sock, line) == wxPROTO_NOERR )
+    while (ReadLine(sock, line) == wxPROTO_NOERR )

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

+

     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 ( !CheckResult('2') )
-        return FALSE;
-
-    return TRUE;
+    return CheckResult('2');

 }
 
 bool wxFTP::FileExists(const wxString& fileName)
 {
 }
 
 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 non-existing file:
-               // NLST this_file_does_not_exist
-               // 150 Opening ASCII data connection for directory listing
-               // (no data transferred)
-               // 226 Transfer complete
+    // 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 non-existing 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();
         // Here wxFTP::GetList(...) will succeed but it will return an empty
         // list.
         retval = !fileList.IsEmpty();

-       }
+    }

 
 

-       return retval;
+    return retval;

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


@@ -751,13 +880,13 @@ bool wxFTP::FileExists(const wxString& fileName)
 
 int wxFTP::GetFileSize(const wxString& fileName)
 {
 
 int wxFTP::GetFileSize(const wxString& fileName)
 {

-       // return the filesize of the given file if possible
-       // return -1 otherwise (predominantly if file doesn't exist
-       // in current dir)
+    // return the filesize of the given file if possible
+    // return -1 otherwise (predominantly if file doesn't exist
+    // in current dir)
+
+    int filesize = -1;

 
 

-       int filesize = -1;
-       
-       // Check for existance of file via wxFTP::FileExists(...)
+    // Check for existance of file via wxFTP::FileExists(...)

     if ( FileExists(fileName) )
     {
         wxString command;
     if ( FileExists(fileName) )
     {
         wxString command;


@@ -767,7 +896,7 @@ int wxFTP::GetFileSize(const wxString& fileName)
         // transfermodes and reports different filesizes accordingly.
         // The BINARY size is the interesting one: How much memory
         // will we need to hold this file?
         // 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;
+        TransferMode oldTransfermode = m_currentTransfermode;

         SetTransferMode(BINARY);
         command << _T("SIZE ") << fileName;
 
         SetTransferMode(BINARY);
         command << _T("SIZE ") << fileName;
 


@@ -777,55 +906,57 @@ int wxFTP::GetFileSize(const wxString& fileName)
         {
             // The answer should be one line: "213 <filesize>\n"
             // 213 is File Status (STD9)
         {
             // 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"),
+            // "SIZE" is not described anywhere..? It works on most servers
+            int statuscode;
+            if ( wxSscanf(GetLastResult().c_str(), _T("%i %i"),

                           &statuscode, &filesize) == 2 )
                           &statuscode, &filesize) == 2 )

-                       {
-                               // We've gotten a good reply.
-                               ok = TRUE; 
-                       }
-                       else
-                       {
-                               // Something bad happened.. A "2yz" reply with no size
-                               // Fallback
-                               ok = FALSE;
-                       }
+            {
+                // 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
+
+        // Set transfermode back to the original. Only the "SIZE"-command
+        // is dependant on transfermode

         if ( oldTransfermode != NONE )
         {
             SetTransferMode(oldTransfermode);
         }
         if ( oldTransfermode != NONE )
         {
             SetTransferMode(oldTransfermode);
         }

-               
-               if ( !ok ) // this is not a direct else clause.. The size command might return an invalid "2yz" reply
+
+        // 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() )
-                               {
+            // 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.
                     // 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;
+                    bool foundIt = false;

 
                     size_t i;
 
                     size_t i;

-                                       for ( i = 0; !foundIt && i < fileList.Count(); i++ )
-                                       {
-                                               foundIt = fileList[i].Upper().Contains(fileName.Upper());
-                                       }
+                    for ( i = 0; !foundIt && i < fileList.Count(); i++ )
+                    {
+                        foundIt = fileList[i].Upper().Contains(fileName.Upper());
+                    }

 
 

-                                       if ( foundIt )
-                                       {
+                    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
                         // 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


@@ -841,89 +972,37 @@ int wxFTP::GetFileSize(const wxString& fileName)
                         // indicate Unix-style (this also limits this function
                         // to searching for files, not directories)
                         if ( fileList[i].Mid(0, 1) == _T("-") )
                         // 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(),
-                                          _("%*s %*s %*s %*s %i %*s %*s %*s %*s"), 
-                                          &filesize) == 9 )
-                                                       {
-                                                               // We've gotten a good response
-                                                               ok = TRUE;
-                                                       }
-                                                       else
-                                                       {
-                                                               // Hmm... Invalid response
-                                                               wxLogTrace(FTP_TRACE_MASK,
+                        {
+
+                            if ( wxSscanf(fileList[i].c_str(),
+                                          _T("%*s %*s %*s %*s %i %*s %*s %*s %*s"),
+                                          &filesize) != 9 )
+                            {
+                                // Hmm... Invalid response
+                                wxLogTrace(FTP_TRACE_MASK,

                                            _T("Invalid LIST response"));
                                            _T("Invalid LIST response"));

-                                                       }
-                                               }
-                                               else // Windows-style response (?)
-                                               {
-                                                       if ( wxSscanf(fileList[i].c_str(),
+                            }
+                        }
+                        else // Windows-style response (?)
+                        {
+                            if ( wxSscanf(fileList[i].c_str(),

                                           _T("%*s %*s %i %*s"),
                                           _T("%*s %*s %i %*s"),

-                                          &filesize) == 4 )
-                                                       {
-                                                               // valid response
-                                                               ok = TRUE;
-                                                       }
-                                                       else
-                                                       {
-                                                               // something bad happened..?
-                                                               wxLogTrace(FTP_TRACE_MASK,
+                                          &filesize) != 4 )
+                            {
+                                // something bad happened..?
+                                wxLogTrace(FTP_TRACE_MASK,

                                            _T("Invalid or unknown LIST response"));
                                            _T("Invalid or unknown LIST response"));

-                                                       }
-                                               }
-                                       }
-                               }
-                       }
+                            }
+                        }
+                    }
+                }
+            }

         }
     }
 
         }
     }
 

-       // filesize might still be -1 when exiting
-       return filesize;
+    // filesize might still be -1 when exiting
+    return filesize;

 }
 
 }
 

+#endif // wxUSE_PROTOCOL_FTP

 
 

-#ifdef WXWIN_COMPATIBILITY_2
-// deprecated
-wxList *wxFTP::GetList(const wxString& wildcard, bool details)
-{
- wxSocketBase *sock = GetPort();
- if (!sock)
-  return FALSE;
- wxList *file_list = new wxList;
- wxString line;
- // NLST : List of Filenames (including Directory's !)
- // LIST : depending on BS of FTP-Server
- //        - Unix    : result like "ls" command
- //        - Windows : like "dir" command
- //        - others  : ?
- if (!details)
-  line = _T("NLST");   // Default
- else
-  line = _T("LIST");
- if (!wildcard.IsNull())
-  line += wildcard;
- if (!CheckCommand(line, '1'))
- {
-  delete sock;
-  delete file_list;
-  return NULL;
- }
- while (GetLine(sock, line) == wxPROTO_NOERR)
- {
-  file_list->Append((wxObject *)(new wxString(line)));
- }
- if (!CheckResult('2'))
- {
-  delete sock;
-  file_list->DeleteContents(TRUE);
-  delete file_list;
-  return NULL;
- }
- return file_list;
-}
-#endif // WXWIN_COMPATIBILITY_2
-
-#endif
-  // wxUSE_SOCKETS