Commit | Line | Data |
---|---|---|
b6e23181 AC |
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 | ||
b13a9a37 AC |
7 | val getWebbw : int -> {total : int, |
8 | vhosts: {host : host, size : int} list, | |
9 | users : {user : string, hosts : host list, size : int} list} | |
b6e23181 AC |
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 | ||
432aa258 AC |
15 | val getWebbwUser : {user : string, last : int} -> {total : int, |
16 | vhosts : {host : host, size : int} list} | |
17 | ||
23bfc877 AC |
18 | type disk = {uname : string, (* UNIX username *) |
19 | kbs : int} (* Number of kilobytes space used *) | |
b6e23181 AC |
20 | |
21 | val getDiskUsage : unit -> disk list | |
22 | (* Get /home disk usage statistics, in descending blocks order. *) | |
23 | end |