X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fhttp_getter%2Fhttp_getter_const.ml;h=eefd7c865e9d8d1544919d81d6e0b0d5d67f9374;hb=4faf0e37e7019de16dd6862bb34d84f799a2a230;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..eefd7c865 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

@@ -59,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

@@ -74,9 +94,12 @@ let usage_string =

getempty

Current configuration

%s

" + version configuration let empty_xml = "