X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fhttp_getter%2Fhttp_getter_const.ml;h=71aed58d3b0256f3919606633461983a098809ba;hb=1c7fb836e2af4f2f3d18afd0396701f2094265ff;hp=44dfaab1bbd4b887cea561378fb293e783486d1f;hpb=b1fb6b8e1767d775bc452303629e95941d142bea;p=helm.git diff --git a/helm/http_getter/http_getter_const.ml b/helm/http_getter/http_getter_const.ml index 44dfaab1b..71aed58d3 100644 --- a/helm/http_getter/http_getter_const.ml +++ b/helm/http_getter/http_getter_const.ml @@ -28,11 +28,11 @@ open Printf;; -let version = "0.2.0" +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 " @@ -41,6 +41,7 @@ let usage_string =

HTTP Getter, version %s

+

Usage information

Usage: http://hostname:getterport/command

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

@@ -81,10 +91,12 @@ let usage_string =

getempty

+

Current configuration

+ 
%s
" - version + version configuration let empty_xml = "