X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fhttp_getter%2Fhttp_getter_const.ml;h=765d446aa9460e07e6632a8ed07d242aa4ab489b;hb=3579acf4950fc4f9a4ddc3e2cfca372d67cba712;hp=efbae1f51d78983b04e031fd028cea09b40da1cd;hpb=5d7d6bd5090f3f82279bef0b93b4b361a5b1d751;p=helm.git
diff --git a/helm/http_getter/http_getter_const.ml b/helm/http_getter/http_getter_const.ml
index efbae1f51..765d446aa 100644
--- a/helm/http_getter/http_getter_const.ml
+++ b/helm/http_getter/http_getter_const.ml
@@ -26,14 +26,22 @@
* http://helm.cs.unibo.it/
*)
+open Printf;;
+
+let version = "0.2.1"
+let conffile = "http_getter.conf.xml"
+
(* TODO provide a better usage string *)
-let usage_string =
+let usage_string configuration =
+ sprintf
"
HTTP Getter's help message
+ HTTP Getter, version %s
+ Usage information
Usage: http://hostname:getterport/command
@@ -74,9 +82,12 @@ let usage_string =
getempty
+ Current configuration
+ %s
"
+ version configuration
let empty_xml =
"