/[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.22 by spiralvoice, Sat Jul 23 14:19:48 2005 UTC revision 1.23 by spiralvoice, Tue Aug 9 10:52:02 2005 UTC
# Line 390  let wget r f = Line 390  let wget r f =
390        try        try
391          (f filename : unit);          (f filename : unit);
392          Sys.remove filename          Sys.remove filename
393        with  e ->  lprintf_nl ()        with e ->  lprintf_nl ()
394              "Exception %s in loading downloaded file %s"              "Exception %s in loading downloaded file %s"
395              (Printexc2.to_string e) filename;              (Printexc2.to_string e) filename;
396            Sys.remove filename;            Sys.remove filename;
# Line 402  let whead r f = Line 402  let whead r f =
402        
403    get_page r    get_page r
404      (fun maxlen headers ->      (fun maxlen headers ->
405         if !verbose then
406        lprintf_nl () "headers...";        lprintf_nl () "headers...";
407        (try f headers with _ -> ());        (try f headers with _ -> ());
408        fun sock nread ->        fun sock nread ->

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

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