| "/execute" ->
let query_string = req#param "query" in
let lexbuf = Lexing.from_string query_string in
- let query = MQueryTParser.query MQueryTLexer.query_token lexbuf in
+ let query = MQueryUtil.query_of_text lexbuf in
let result = MQueryGenerator.execute_query query in
let result_string = MQueryUtil.text_of_result result "\n" in
Http_daemon.respond
printf "current directory is %s\n" (Sys.getcwd ());
flush stdout;
Mqint.set_database Mqint.postgres_db;
-Mqint.init "host=mowgli.cs.unibo.it dbname=helm_mowgli user=helm";
+Mqint.init "host=mowgli.cs.unibo.it dbname=helm_mowgli_new_schema user=helm";
Http_daemon.start' ~port callback;
Mqint.close ();
printf "%s is terminating, bye!\n" daemon_name