sig
  val section : Lwt_log_core.section
  type auth = string -> string -> bool Lwt.t
  val register_basic_authentication_method :
    (Xml.xml -> Authbasic.auth) -> unit
  val realm : string Ocsigen_server.Site.Config.key
  val auth : Authbasic.auth Ocsigen_server.Site.Config.key
  val extension : Ocsigen_server.Site.extension
  val get_basic_authentication_method : Xml.xml -> Authbasic.auth
end