+ conf_file conf_dir
+ (String.concat "\n\t" (* servers list prepended with server number *)
+ (List.map
+ (let idx = ref ~-1 in
+ fun server -> incr idx; sprintf "%3d: %s" !idx server)
+ !servers))
+
+let add_server ?position url =
+ (match position with
+ | Some p -> Http_getter_misc.add_line ~fname:servers_file ~position:p url
+ | None -> Http_getter_misc.add_line ~fname:servers_file url);
+ reload_servers ()
+
+let remove_server position =
+ Http_getter_misc.remove_line ~fname:servers_file position;
+ reload_servers ()