(*
- * 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
* 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
"
<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>
</body>
</html>
"
+ version
let empty_xml =
"<?xml version=\"1.0\"?>