X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=helm%2Fhttp_getter%2Fhttp_getter_const.ml;fp=helm%2Fhttp_getter%2Fhttp_getter_const.ml;h=44dfaab1bbd4b887cea561378fb293e783486d1f;hp=1d0a4f58184a82c8c999f766834771b2d7024772;hb=b1fb6b8e1767d775bc452303629e95941d142bea;hpb=6a9be767a19f39aa862f989d8dbbe186b71db0ca
diff --git a/helm/http_getter/http_getter_const.ml b/helm/http_getter/http_getter_const.ml
index 1d0a4f581..44dfaab1b 100644
--- a/helm/http_getter/http_getter_const.ml
+++ b/helm/http_getter/http_getter_const.ml
@@ -26,17 +26,21 @@
* http://helm.cs.unibo.it/
*)
+open Printf;;
+
let version = "0.2.0"
let conffile = "http_getter.conf.xml"
(* TODO provide a better usage string *)
let usage_string =
+ sprintf
"
HTTP Getter's help message
+ HTTP Getter, version %s
Usage: http://hostname:getterport/command
@@ -80,6 +84,7 @@ let usage_string =
"
+ version
let empty_xml =
"