Commit | Line | Data |
---|---|---|
ff2b7604 | 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) = | |
3ad30cf6 | 8 | (Mail.mwrite (mail, dom); |
ff2b7604 | 9 | Mail.mwrite (mail, "\n")) |
10 | end) |