sig
  val register_basic_authentication_method :
    (Xml.xml -> string -> string -> bool Lwt.t) -> unit
  val get_basic_authentication_method :
    Xml.xml -> string -> string -> bool Lwt.t
end