Commit | Line | Data |
---|---|---|
6704531c AC |
1 | structure Quota = Request(struct |
2 | val table = "Quota" | |
3 | val adminGroup = "server" | |
4 | fun subject _ = "Disk quota change request" | |
5 | val template = "quota" | |
6 | val descr = "Quota request" | |
7 | ||
8 | fun body (mail, data) = | |
23d81629 | 9 | (Mail.mwrite (mail, "Request: "); |
6704531c AC |
10 | Mail.mwrite (mail, data); |
11 | Mail.mwrite (mail, "\n")) | |
12 | end) |