let is_http_schema url = Pcre.pmatch ~rex:http_scheme_RE url
let is_empty_listing files =
- List.for_all (fun s -> s.[String.length s - 1] = '/') files
+ List.for_all
+ (fun s ->
+ let len = String.length s in
+ len < 4 || String.sub s (len - 4) 4 <> ".xml") files
(************************* GLOBALS PREFIXES **********************************)
with Resource_not_found _ -> false
let resolve ?(must_exists=true) ~writable =
- dispatch_single
+ (if must_exists then
+ dispatch_multi
+ else
+ dispatch_single)
{ write = writable;
name="resolve";
exists = must_exists;