+ (* TODO BUG HERE: is commented lines are included in the servers file the
+ server index (used for example by the remove_server method) gets out of sync!
+ *)
+let parse_servers () =
+ List.rev (Http_getter_misc.fold_file
+ (fun servers line ->
+ if Http_getter_misc.is_blank_line line then servers else line::servers)
+ []
+ servers_file)
+;;
+let servers = ref (parse_servers ())
+let reload_servers () = servers := parse_servers ()
+
+let cic_dbm = safe_getenv "HTTP_GETTER_CIC_DBM"
+let nuprl_dbm = safe_getenv "HTTP_GETTER_NUPRL_DBM"