(******************************************************************************)
(* this should be the only hard coded constant *)
-let filename =
- let prefix =
- try
- Sys.getenv "HELM_CONFIGURATION_PREFIX"
- with
- Not_found -> ""
- in
- prefix ^ "/local/etc/helm/configuration.xml";;
+let filename = "/home/cadet/sacerdot/local/etc/helm/configuration.xml";;
exception Warnings;;