Source

OCaml-WebFramework / cgi-bin / env.ml

Diff from to

cgi-bin/env.ml

     | _ -> ""
 
 let url_arg =
+  let regexsl = Str.regexp "%2F" in
+  let url = Str.global_replace regexsl "/" url in
   let regex = Str.regexp "\\([^/]*\\)/" in
   let rec build_url_arg s start =
     if (try Str.search_forward regex s start