* http://cs.unibo.it/helm/.
*)
-let default_connection_string =
- "dbname=mowgli user=helm"
-
-let connection_string =
- try Sys.getenv "POSTGRESQL_CONNECTION_STRING"
- with Not_found -> default_connection_string
+(* AUTOR: Ferruccio Guidi <fguidi@cs.unibo.it>
+ *)
-let init () =
+let init connection_string =
try Some (new Postgres.connection connection_string)
with _ -> raise (Failure ("MQIPostgres.init: " ^ connection_string))