domain.sml

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