final ispell

[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 1d0a4f58184a82c8c999f766834771b2d7024772..71aed58d3b0256f3919606633461983a098809ba 100644 (file)
--- a/helm/http_getter/http_getter_const.ml
+++ b/helm/http_getter/http_getter_const.ml
@@ -26,17 +26,22 @@
   *  http://helm.cs.unibo.it/
   *)
  
-let version = "0.2.0"
+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
  "
  <html>
    <head>
      <title>HTTP Getter's help message</title>
    </head>
    <body>
+    <h1>HTTP Getter, version %s</h1>
+    <h2>Usage information</h2>
      <p>
      Usage: <kbd>http://hostname:getterport/</kbd><em>command</em>
      </p>
@@ -62,6 +67,15 @@ let usage_string =
      <p>
        <b><kbd>getxslt?uri=URI[&patch_dtd=(yes|no)]</kbd></b><br />
      </p>
+    <p>
+      <b><kbd>list_servers</kbd></b><br />
+    </p>
+    <p>
+      <b><kbd>add_server?url=URL&position=POSITION</kbd></b><br />
+    </p>
+    <p>
+      <b><kbd>remove_server?position=POSITION</kbd></b><br />
+    </p>
      <p>
        <b><kbd>update</kbd></b><br />
      </p>
@@ -77,9 +91,12 @@ let usage_string =
      <p>
        <b><kbd>getempty</kbd></b><br />
      </p>
+    <h2>Current configuration</h2>
+    <pre>%s</pre>
    </body>
  </html>
  "
+    version configuration
  
  let empty_xml =
  "<?xml version=\"1.0\"?>