[Mldonkey-commits] mldonkey distrib/ChangeLog src/utils/net/http_c...

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       07/02/04 17:27:45

Modified files:
        distrib        : ChangeLog 
        src/utils/net  : http_client.ml 

Log message:
        patch #5724

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/distrib/ChangeLog?cvsroot=mldonkey&r1=1.1172&r2=1.1173
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/utils/net/http_client.ml?cvsroot=mldonkey&r1=1.35&r2=1.36

Patches:
Index: distrib/ChangeLog
===================================================================
RCS file: /sources/mldonkey/mldonkey/distrib/ChangeLog,v
retrieving revision 1.1172
retrieving revision 1.1173
diff -u -b -r1.1172 -r1.1173
--- distrib/ChangeLog   4 Feb 2007 17:22:18 -0000       1.1172
+++ distrib/ChangeLog   4 Feb 2007 17:27:45 -0000       1.1173
@@ -15,6 +15,7 @@
 =========
 
 2007/02/04
+5724: http_client: Retry GET request if HEAD request returns http error 400
 5723: HTML: print tracker errors in html table at 'vd <num>' (Schlumpf)
 5722: HTML: use Printf2.html_mods_cntr () for table row classes (Schlumpf)
 5720: Swarmer: block choice algorithm 2 from patch 5141 is new default

Index: src/utils/net/http_client.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/utils/net/http_client.ml,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -b -r1.35 -r1.36
--- src/utils/net/http_client.ml        21 Nov 2006 22:34:34 -0000      1.35
+++ src/utils/net/http_client.ml        4 Feb 2007 17:27:45 -0000       1.36
@@ -334,6 +334,14 @@
           raise Not_found
         end
           
+    | 400 when r.req_request = HEAD ->
+        lprintf_nl "Error 400 received for HEAD %s, re-try GET" 
(Url.to_string_no_args r.req_url);
+        let r2 = {
+          r with
+          req_request = GET;
+        } in
+        get_page r2 content_handler f ferr
+
     | 404 ->
         lprintf_nl "404: Not found for: %s" (Url.to_string_no_args r.req_url);
         close sock (Closed_for_error "bad reply");