let is_supported_property name = List.mem name supported_properties
+let version = "0.2.0" ;;
+
let usage_string =
sprintf
"
<title>UWOBO's help message</title>
</head>
<body>
+ <h1>UWOBO (version: %s)</h1>
+ <h2>Information</h2>
+ Version: %s
+ <h2>Usage</h2>
<p>
Usage: <kbd>http://hostname:uwoboport/</kbd><em>command</em>
</p>
</body>
</html>
"
- (String.concat ", " supported_properties);;
+ version version
+ (String.concat ", " supported_properties) (* supported properties *)
+;;
let pp_error = sprintf "<html><body><h1>Error: %s</h1></body></html>";;
let return_error msg outchan =
val supported_properties: string list
val is_supported_property: string -> bool
-val usage_string: string
+val version: string (** version *)
+val usage_string: string (** HTTP GET usage string *)
(** return an ok (200) http response, which display in html an error message
*)
projects / helm.git / commitdiff