- bumped version to 0.2.1
open Printf;;
-let version = "0.2.0"
+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>
<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>getempty</kbd></b><br />
</p>
+ <h2>Current configuration</h2>
+ <pre>%s</pre>
</body>
</html>
"
- version
+ version configuration
let empty_xml =
"<?xml version=\"1.0\"?>
val version: string
val conffile: string
-val usage_string: string
val empty_xml: string
+
+ (** @return an HTML usage string including configuration information passed as
+ input parameter *)
+val usage_string: string -> string
+