stats.sig

   1 signature STATS =
   2 sig
   3     type host = {ssl : bool,        (* Is it HTTPS? *)
   4                  hostname : string, (* Internet hostname *)
   5                  id : string}       (* Name of stats directory *)
   6
   7     val getWebbw : int -> int * (host * int) list * (string * host list * int) list
   8     (* Get web bandwidth usage stats.  The argument tells how many months ago
   9      * to look for the data.  The return gives the total b/w usage, a mapping from
  10      * vhosts to kilobytes, and a mapping from usernames to their vhosts and bandwidth
  11      * totals. *)
  12
  13     type disk = {uname : string,    (* UNIX username *)
  14                  blocks : int,      (* Number of disk blocks used *)
  15                  files : int}       (* Number of files used *)
  16
  17     val getDiskUsage : unit -> disk list
  18     (* Get /home disk usage statistics, in descending blocks order. *)
  19 end