sign.sml

   1 structure Sign = Request(struct
   2                          val table = "Sign"
   3                          val adminGroup = "server"
   4                          fun subject _ = "SSL certificate signing request"
   5                          val template = "sign"
   6                          val descr = "SSL certificate signing"
   7
   8                          fun body (mail, data) =
   9                              (Mail.mwrite (mail, " Request: ");
  10                               Mail.mwrite (mail, data);
  11                               Mail.mwrite (mail, "\n"))
  12                          end)