a41f8250 |
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 |