Re: [Fwd: Bug#301476: mirror do not work over http]

[Alexander V. Lukyanov]

This patch should fix the problem.

Index: NetAccess.cc
===================================================================
RCS file: /home/lav/cvsroot/lftp/src/NetAccess.cc,v
retrieving revision 1.77
diff -u -p -r1.77 NetAccess.cc
--- NetAccess.cc        4 Apr 2005 09:59:42 -0000       1.77
+++ NetAccess.cc        6 Apr 2005 09:02:31 -0000
@@ -720,8 +720,11 @@ do_again:
       {
         if(err)
         {
-           if(err==FA::NOT_SUPP)
-              goto not_supported;
+           if(mode==FA::MP_LIST)
+           {
+              mode=FA::LONG_LIST;
+              goto do_again;
+           }
            SetErrorCached(cache_buffer);
            return MOVED;
         }
@@ -746,19 +749,15 @@ do_again:
    {
       if(ubuf->Error())
       {
-        if(session->GetErrorCode()==FA::NOT_SUPP)
+        LsCache::Add(session,"",mode,session->GetErrorCode(),ubuf);
+        if(mode==FA::MP_LIST)
         {
-        not_supported:
-           if(mode==FA::MP_LIST)
-           {
-              mode=FA::LONG_LIST;
-              delete ubuf;
-              ubuf=0;
-              m=MOVED;
-              goto do_again;
-           }
+           mode=FA::LONG_LIST;
+           delete ubuf;
+           ubuf=0;
+           m=MOVED;
+           goto do_again;
         }
-        LsCache::Add(session,"",mode,session->GetErrorCode(),ubuf);
         SetError(ubuf->ErrorText());
         Delete(ubuf);
         ubuf=0;