(String.concat ";"
(List.map (fun (h,v) -> String.concat "=" [h;v]) params)))
+let auth_sep_RE = Pcre.regexp ":"
+let basic_auth_RE = Pcre.regexp "^Basic\\s+"
+
exception Fallback;; (* used internally by request class *)
class request ic =
sprintf "%s %s %s" method_string self#uri (string_of_version version)
| None -> sprintf "%s %s" method_string self#uri
+ method authorization: auth_info option =
+ try
+ let credentials =
+ Netencoding.Base64.decode
+ (Pcre.replace ~rex:basic_auth_RE (self#header "authorization"))
+ in
+ debug_print ("HTTP Basic auth credentials: " ^ credentials);
+ (match Pcre.split ~rex:auth_sep_RE credentials with
+ | [username; password] -> Some (`Basic (username, password))
+ | l -> raise Exit)
+ with Header_not_found _ | Invalid_argument _ | Exit -> None
+
end