sig
  val get_default_hostname : unit -> string
  val get_default_port : unit -> int
  val get_default_sslport : unit -> int
  val get_default_links_xhr : unit -> bool
  val debug_timings : bool Pervasives.ref
  val set_tracing : bool -> unit
  val get_tracing : unit -> bool
end