let load_root_file rootpath =
let data = HExtlib.input_file rootpath in
let lines = Str.split (Str.regexp "\n") data in
+ let clean s = Pcre.replace ~pat:"^ *" (Pcre.replace ~pat:" *$" s) in
List.map
(fun l ->
match Str.split (Str.regexp "=") l with
- | [k;v] -> Pcre.replace ~pat:"^ *" k, Pcre.replace ~pat:" *$" v
+ | [k;v] -> clean k, Http_getter_misc.strip_trailing_slash (clean v)
| _ -> raise (Failure ("Malformed root file: " ^ rootpath)))
lines
;;