let read_index url =
let module C = Configuration in
- if Sys.command ("helm_wget " ^ C.tmpdir ^ " " ^ url ^ "/\"" ^
+ if Sys.command ("helm_wget " ^ C.tmp_dir ^ " " ^ url ^ "/\"" ^
C.indexname ^ "\"") <> 0
then
raise (ErrorGetting url) ;
- let tmpfilename = C.tmpdir ^ "/" ^ C.indexname in
+ let tmpfilename = C.tmp_dir ^ "/" ^ C.indexname in
let fd = open_in tmpfilename in
let uris = ref [] in
try
fn
;;
-let raw_get uri =
- let msg = new Http_client.get uri in
- msg#get_req_body
+let raw_get = ClientHTTP.get_and_save
(* get : uri -> filename *)
(* If uri is the URI of an annotation, the annotated object is processed *)