* http://helm.cs.unibo.it/
*)
+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>
<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>
<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\"?>