Commit | Line | Data |
---|---|---|
5da9f4a9 AC |
1 | structure Domain = Request(struct |
2 | val table = "Domain" | |
3 | val adminGroup = "server" | |
4 | fun subject dom = "Domain set-up request: " ^ dom | |
5 | val template = "domain" | |
6 | val descr = "domain" | |
7 | fun body (mail, dom) = | |
dfb0d0d7 | 8 | (Mail.mwrite (mail, dom); |
5da9f4a9 AC |
9 | Mail.mwrite (mail, "\n")) |
10 | end) |