From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Tue, 30 May 2006 08:10:47 +0000 (+0000)
Subject: ZACK: ported to the latest ocaml-http API
X-Git-Tag: 0.4.95@7852~1392
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=4968588b9109b4ebe34e471d7f8d7f9dcee69af8;p=helm.git

ZACK: ported to the latest ocaml-http API
---

diff --git a/daemons/graphs/tools/drawGraph.ml b/daemons/graphs/tools/drawGraph.ml
index f7c817496..0dc9800fe 100644
--- a/daemons/graphs/tools/drawGraph.ml
+++ b/daemons/graphs/tools/drawGraph.ml
@@ -101,6 +101,7 @@ Sys.chdir (Helm_registry.get "draw_graph.dir");
 printf "%s started and listening on port %d\n" daemon_name port;
 printf "current directory is %s\n" (Sys.getcwd ());
 flush stdout;
-Http_daemon.start' ~port callback;
+let d_spec = Http_daemon.daemon_spec ~port ~callback () in
+Http_daemon.main d_spec;
 printf "%s is terminating, bye!\n" daemon_name
 
diff --git a/daemons/graphs/tools/uriSetQueue.ml b/daemons/graphs/tools/uriSetQueue.ml
index 86bfe35f3..9c94d4e9a 100644
--- a/daemons/graphs/tools/uriSetQueue.ml
+++ b/daemons/graphs/tools/uriSetQueue.ml
@@ -192,6 +192,7 @@ Helm_registry.load_from configuration_file;
 let port = Helm_registry.get_int "uri_set_queue.port" in
 printf "%s started and listening on port %d\n" daemon_name port;
 flush stdout;
-Http_daemon.start' ~port ~mode:`Thread callback;
+let d_spec = Http_daemon.daemon_spec ~port ~mode:`Thread ~callback () in
+Http_daemon.main d_spec;
 printf "%s is terminating, bye!\n" daemon_name