Commit | Line | Data |
---|---|---|
95a4653e AC |
1 | structure Cert = Request(struct |
2 | val table = "Cert" | |
3 | val adminGroup = "server" | |
4 | fun subject _ = "SSL certificate request" | |
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) |