X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fhttp_getter%2Fhttp_getter_const.ml;h=71aed58d3b0256f3919606633461983a098809ba;hb=3c7ca719c304eb7de7d8d4e9a90ebe0db8d8ecab;hp=1d0a4f58184a82c8c999f766834771b2d7024772;hpb=866249edf202e4fec2c0e3fffdee96782009d6f3;p=helm.git
diff --git a/helm/http_getter/http_getter_const.ml b/helm/http_getter/http_getter_const.ml
index 1d0a4f581..71aed58d3 100644
--- a/helm/http_getter/http_getter_const.ml
+++ b/helm/http_getter/http_getter_const.ml
@@ -26,17 +26,22 @@
* http://helm.cs.unibo.it/
*)
-let version = "0.2.0"
+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
@@ -62,6 +67,15 @@ let usage_string =
getxslt?uri=URI[&patch_dtd=(yes|no)]
+
+ list_servers
+
+
+ add_server?url=URL&position=POSITION
+
+
+ remove_server?position=POSITION
+
update
@@ -77,9 +91,12 @@ let usage_string =
getempty
+ Current configuration
+ %s
"
+ version configuration
let empty_xml =
"