Commit | Line | Data |
---|---|---|
95a4653e AC |
1 | structure Cert = Request(struct |
2 | val table = "Cert" | |
3 | val adminGroup = "server" | |
eafe3d52 | 4 | fun subject _ = "SSL certificate installation request" |
95a4653e AC |
5 | val template = "cert" |
6 | val descr = "SSL certificate" | |
7 | ||
8 | fun body (mail, data) = | |
9 | (Mail.mwrite (mail, " Request: "); | |
10 | Mail.mwrite (mail, data); | |
11 | Mail.mwrite (mail, "\n")) | |
12 | end) |