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=93c2d5d6a8237fa5fedaece08f7bcfcf2f323407;hpb=86e80bc65186bf4c2824dc94f5f4dd5966843f14;p=helm.git diff --git a/helm/http_getter/http_getter_const.ml b/helm/http_getter/http_getter_const.ml index 93c2d5d6a..71aed58d3 100644 --- a/helm/http_getter/http_getter_const.ml +++ b/helm/http_getter/http_getter_const.ml @@ -1,5 +1,7 @@ (* - * Copyright (C) 2000, HELM Team. + * Copyright (C) 2003: + * Stefano Zacchiroli + * for the HELM Team http://helm.cs.unibo.it/ * * This file is part of HELM, an Hypertextual, Electronic * Library of Mathematics, developed at the Computer Science @@ -21,17 +23,25 @@ * MA 02111-1307, USA. * * For details, see the HELM World-Wide-Web page, - * http://cs.unibo.it/helm/. + * http://helm.cs.unibo.it/ *) - (* TODO *) -let usage_string = +open Printf;; + +let version = "0.2.1" +let conffile = "http_getter.conf.xml" + + (* TODO provide a better usage string *) +let usage_string configuration = + sprintf " HTTP Getter's help message +

HTTP Getter, version %s

Usage information

Usage: http://hostname:getterport/command

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

@@ -72,9 +91,12 @@ let usage_string =

getempty

Current configuration

%s

" + version configuration let empty_xml = "