Initial revision

[helm.git] / helm / http_getter / http_getter_const.ml
diff --git a/helm/http_getter/http_getter_const.ml b/helm/http_getter/http_getter_const.ml

index 93c2d5d6a8237fa5fedaece08f7bcfcf2f323407..44dfaab1bbd4b887cea561378fb293e783486d1f 100644 (file)
--- 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 <zack@cs.unibo.it>
+ *    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/
   *)
  
-  (* TODO *)
+open Printf;;
+
+let version = "0.2.0"
+let conffile = "http_getter.conf.xml"
+
+  (* TODO provide a better usage string *)
  let usage_string =
+  sprintf
  "
  <html>
    <head>
      <title>HTTP Getter's help message</title>
    </head>
    <body>
+    <h1>HTTP Getter, version %s</h1>
      <p>
      Usage: <kbd>http://hostname:getterport/</kbd><em>command</em>
      </p>
@@ -75,6 +84,7 @@ let usage_string =
    </body>
  </html>
  "
+    version
  
  let empty_xml =
  "<?xml version=\"1.0\"?>