let update () =
(* deliver update request to http_getter *)
- if Sys.command ("wget -O /dev/null http://localhost:8081/update") <> 0
- then
- raise PerlGetterNotResponding ;
+ ClientHTTP.send (Configuration.getter_url ^ "update")
;;
(* url_of_uri : uri -> url *)