cert.sml

   1 structure Cert = Request(struct
   2                          val table = "Cert"
   3                          val adminGroup = "server"
   4                          fun subject _ = "SSL certificate installation 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)