let wget url fname =
prerr_endline (sprintf "DEBUG: wgetting url '%s'" url);
- let data = Http_client.Convenience.http_get url in
let oc = open_out fname in
- output_string oc data;
+ Http_client.http_get_iter (output_string oc) url;
close_out oc
;;
<title>Graph: error</title>
</head>
<body>
- <h1>Error occured while drawing graph!<br />Please report the occured problem</h1>
+ <h1>Error occurred while drawing graph!<br />Please report the occured problem</h1>
<h2>%s</h2>
</body>
</html>"
let url = req#param "url" in
let pid = Unix.getpid () in
wget (sprintf "%s¶m.PID=%d" url pid) (sprintf "prova0.%d.dot" pid);
- (match Unix.system (sprintf "make PID=%d > log.%d" pid pid) with
+ (match Unix.system (sprintf "make tmp PID=%d > log.%d" pid pid) with
| Unix.WEXITED 0 ->
debug_print "HTML successfully generated";
Http_daemon.respond_file (sprintf "prova.%d.html" pid) outchan
let pid = req#param "pid" in
Http_daemon.respond_file (sprintf "prova.%s.gif" pid) outchan;
ignore (Unix.system (
- sprintf "make PID=%s clean; rm -f prova0.%s.dot" pid pid))
+ sprintf "make PID=%s clean_tmp; rm -f prova0.%s.dot" pid pid))
| invalid_request ->
Http_daemon.respond_error ~status:(`Client_error `Bad_request) outchan)
with