(* $Id: rpc_time.mli 1003 2006-09-24 15:17:15Z gerd $
 * ----------------------------------------------------------------------
 *
 *)


(** Get the time of the server (using the RFC 868 netdate protocol) *)

exception Time_not_available

val remote_time : ?timeout:int -> Unix.inet_addr -> float
  (** Returns the time of the passed server in seconds since the epoch.
   * A connection to TCP port 37 of the server is opened, and the time
   * is read.
   * If an error happens, or the timeout occurs, the exception
   * [Time_not_available] is raised.
   * The timeout is 5 seconds by default but can be set using the
   * [timeout] parameter.
   *
   * TCP has been chosen for security reasons, for example, there may be
   * a firewall between this system and the remote host. It is much simpler
   * to get a TCP port opened than a UDP port.
   *)