- added 'version' field, actually set to 0.2.0

diff --git a/helm/http_getter/http_getter_env.ml b/helm/http_getter/http_getter_env.ml
index 20f67ae274897171718ba7f4b0c7d587d8a73446..5430add17258ee1be0c43986331482472c59fbcf 100644 (file)
--- a/helm/http_getter/http_getter_env.ml
+++ b/helm/http_getter/http_getter_env.ml
@@ -32,6 +32,8 @@ open Pxp_document;;
 open Pxp_types;;
 open Pxp_yacc;;
 
+let version = "0.2.0"
+
 type setting_src =
   | Environment (* read setting from environment variables *)
   | Conffile    (* read setting from configuration file *)
@@ -119,7 +121,9 @@ let reload () =
 
 let dump_env () =
   printf
-"xml_dbm:\t%s
+"HTTP Getter %s (the OCaml one!)
+
+xml_dbm:\t%s
 rdf_dbm:\t%s
 xsl_dbm:\t%s
 xml_index:\t%s
@@ -139,9 +143,8 @@ conf_dir:\t%s
 servers:
 \t%s
 "
-    xml_dbm rdf_dbm xsl_dbm xml_index rdf_index xsl_index
-    xml_dir rdf_dir dtd_dir servers_file host port
-    my_own_url dtd_base_url
+    version xml_dbm rdf_dbm xsl_dbm xml_index rdf_index xsl_index
+    xml_dir rdf_dir dtd_dir servers_file host port my_own_url dtd_base_url
     (match cache_mode with Enc_normal -> "Normal" | Enc_gzipped -> "GZipped")
     conf_file conf_dir (String.concat "\n\t" !servers);
   flush stdout

diff --git a/helm/http_getter/http_getter_env.mli b/helm/http_getter/http_getter_env.mli
index ce24cfeb7ed106f21b0d2a3f490b3c1bcbb738db..2f71d5735c59c55083908df706e0ae8737ec0121 100644 (file)
--- a/helm/http_getter/http_getter_env.mli
+++ b/helm/http_getter/http_getter_env.mli
@@ -28,6 +28,10 @@
 
 open Http_getter_types;;
 
+  (* general information *)
+
+val version       : string        (* getter version *)
+
   (* environment gathered data *)
 
 val xml_dbm       : string        (* XML map DBM file *)