X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fhttp_getter%2Fhttp_getter_const.ml;h=eefd7c865e9d8d1544919d81d6e0b0d5d67f9374;hb=6ad08f90aa4a565d9b9dc54df32ddaf072506aad;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..eefd7c865 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 "
Usage: http://hostname:getterport/command
@@ -62,9 +67,21 @@ let usage_string =
getxslt?uri=URI[&patch_dtd=(yes|no)]
+ list_servers
+
+ add_server?url=URL&position=POSITION
+
+ remove_server?position=POSITION
+
update
+ clean_cache
+
getalluris
getempty
%s" + version configuration let empty_xml = "