X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fhttp_getter%2Fhttp_getter_env.ml;h=20f67ae274897171718ba7f4b0c7d587d8a73446;hb=5d7d6bd5090f3f82279bef0b93b4b361a5b1d751;hp=acbc178538d66c717292347777b36734e1903608;hpb=ac68e73fbbb596dfedd9eb4166952556bdbac16b;p=helm.git

diff --git a/helm/http_getter/http_getter_env.ml b/helm/http_getter/http_getter_env.ml
index acbc17853..20f67ae27 100644
--- a/helm/http_getter/http_getter_env.ml
+++ b/helm/http_getter/http_getter_env.ml
@@ -1,5 +1,7 @@
 (*
- *  Copyright (C) 2000, 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;;
@@ -73,9 +75,11 @@ let safe_getenv ?(from = Both) var =
       | v -> return_value var v)))
 
 let servers_file = safe_getenv "HTTP_GETTER_SERVERS_FILE"
-let servers =
-  let cons hd tl = hd @ [ tl ] in
-  Http_getter_misc.fold_file cons [] servers_file
+let parse_servers () =
+  (let cons hd tl = hd @ [ tl ] in
+  Http_getter_misc.fold_file cons [] servers_file)
+let servers = ref (parse_servers ())
+let reload_servers () = servers := parse_servers ()
 
 let xml_dbm = safe_getenv "HTTP_GETTER_XML_DBM"
 let rdf_dbm = safe_getenv "HTTP_GETTER_RDF_DBM"
@@ -85,7 +89,6 @@ let rdf_index = safe_getenv "HTTP_GETTER_RDF_INDEXNAME"
 let xsl_index = safe_getenv "HTTP_GETTER_XSL_INDEXNAME"
 let xml_dir = safe_getenv "HTTP_GETTER_XML_DIR"
 let rdf_dir = safe_getenv "HTTP_GETTER_RDF_DIR"
-let xsl_dir = safe_getenv "HTTP_GETTER_XSL_DIR"
 let dtd_dir = safe_getenv "HTTP_GETTER_DTD_DIR"
 
 let port =
@@ -111,6 +114,9 @@ let cache_mode =
   | "gz" -> Enc_gzipped
   | mode -> failwith ("Invalid cache mode: " ^ mode)
 
+let reload () =
+  reload_servers ()
+
 let dump_env () =
   printf
 "xml_dbm:\t%s
@@ -121,7 +127,6 @@ rdf_index:\t%s
 xsl_index:\t%s
 xml_dir:\t%s
 rdf_dir:\t%s
-xsl_dir:\t%s
 dtd_dir:\t%s
 servers_file:\t%s
 host:\t\t%s
@@ -135,9 +140,9 @@ servers:
 \t%s
 "
     xml_dbm rdf_dbm xsl_dbm xml_index rdf_index xsl_index
-    xml_dir rdf_dir xsl_dir dtd_dir servers_file host port
+    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);
+    conf_file conf_dir (String.concat "\n\t" !servers);
   flush stdout