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 | |
3d439ebe |
7 | val getWebbw : int -> {total : int, |
8 | vhosts: {host : host, size : int} list, |
9 | users : {user : string, hosts : host list, size : int} list} |
a41f8250 |
10 | (* Get web bandwidth usage stats. The argument tells how many months ago |
11 | * to look for the data. The return gives the total b/w usage, a mapping from |
12 | * vhosts to kilobytes, and a mapping from usernames to their vhosts and bandwidth |
13 | * totals. *) |
14 | |
744be417 |
15 | type disk = {uname : string, (* UNIX username *) |
16 | kbs : int} (* Number of kilobytes space used *) |
a41f8250 |
17 | |
18 | val getDiskUsage : unit -> disk list |
19 | (* Get /home disk usage statistics, in descending blocks order. *) |
20 | end |