/[mldonkey]/mldonkey/src/utils/net/http_client.ml
ViewVC logotype

Diff of /mldonkey/src/utils/net/http_client.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.21 by spiralvoice, Fri Jul 22 10:58:55 2005 UTC revision 1.22 by spiralvoice, Sat Jul 23 14:19:48 2005 UTC
# Line 382  let wget r f = Line 382  let wget r f =
382            lprintf_nl () "Empty content for url %s"            lprintf_nl () "Empty content for url %s"
383              (Url.to_string r.req_url);              (Url.to_string r.req_url);
384          end;          end;
385        let filename = Filename.temp_file "http_" ".tmp" in        let ext = (String.lowercase (Filename2.extension r.req_url.Url.short_file)) in
386          let filename = Filename.temp_file "http_" (if ext = "" then ".tmp" else ext) in
387        let oc = open_out_bin filename in        let oc = open_out_bin filename in
388        output_string oc s;        output_string oc s;
389        close_out oc;        close_out oc;

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26