X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fhttp_getter%2Fhttp_getter_const.ml;h=44dfaab1bbd4b887cea561378fb293e783486d1f;hb=caab26f85122e0040555139c48a9111a0b2b9fff;hp=cfa21fe913420cfa1c72421f2be9723f174d35f1;hpb=32bc9336091a84376f93b06325c08dab58124a0d;p=helm.git diff --git a/helm/http_getter/http_getter_const.ml b/helm/http_getter/http_getter_const.ml index cfa21fe91..44dfaab1b 100644 --- a/helm/http_getter/http_getter_const.ml +++ b/helm/http_getter/http_getter_const.ml @@ -1,5 +1,7 @@ (* - * Copyright (C) 2003, 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,24 @@ * MA 02111-1307, USA. * * For details, see the HELM World-Wide-Web page, - * http://cs.unibo.it/helm/. + * http://helm.cs.unibo.it/ *) +open Printf;; + +let version = "0.2.0" +let conffile = "http_getter.conf.xml" + (* TODO provide a better usage string *) let usage_string = + sprintf " HTTP Getter's help message +

HTTP Getter, version %s

Usage: http://hostname:getterport/command

@@ -75,6 +84,7 @@ let usage_string = " + version let empty_xml = "