[Mldonkey-commits] Changes to mldonkey/src/utils/net/http_client.ml

[mldonkey-commits]

Index: mldonkey/src/utils/net/http_client.ml
diff -u mldonkey/src/utils/net/http_client.ml:1.21 
mldonkey/src/utils/net/http_client.ml:1.22
--- mldonkey/src/utils/net/http_client.ml:1.21  Fri Jul 22 10:58:55 2005
+++ mldonkey/src/utils/net/http_client.ml       Sat Jul 23 14:19:48 2005
@@ -382,7 +382,8 @@
           lprintf_nl () "Empty content for url %s"
             (Url.to_string r.req_url);
         end;
-      let filename = Filename.temp_file "http_" ".tmp" in
+      let ext = (String.lowercase (Filename2.extension 
r.req_url.Url.short_file)) in
+      let filename = Filename.temp_file "http_" (if ext = "" then ".tmp" else 
ext) in
       let oc = open_out_bin filename in
       output_string oc s;
       close_out oc;