X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fhttp_getter%2Fhttp_getter_env.ml;h=5430add17258ee1be0c43986331482472c59fbcf;hb=56e9d37ae63d2272c23cdbd153c7ce503ae5b35f;hp=e97c89cbfb1b36be4fe3b678da31cc88234f77ef;hpb=67b126ded904b0388bb32039d3217fa37099d33f;p=helm.git

diff --git a/helm/http_getter/http_getter_env.ml b/helm/http_getter/http_getter_env.ml
index e97c89cbf..5430add17 100644
--- a/helm/http_getter/http_getter_env.ml
+++ b/helm/http_getter/http_getter_env.ml
@@ -1,5 +1,7 @@
 (*
- *  Copyright (C) 2003, 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
@@ -21,7 +23,7 @@
  *  MA  02111-1307, USA.
  *
  *  For details, see the HELM World-Wide-Web page,
- *  http://cs.unibo.it/helm/.
+ *  http://helm.cs.unibo.it/
  *)
 
 open Http_getter_types;;
@@ -30,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 *)
@@ -117,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
@@ -137,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