ip.sml

   1 structure Ip = RequestH(struct
   2                         val table = "Ip"
   3                         val adminGroup = "server"
   4                         fun subject _ = "IP address request"
   5                         val template = "ip"
   6                         val descr = "IP address"
   7
   8                         fun body {node, mail, data = port} =
   9                             (Mail.mwrite (mail, " IP address for port: ");
  10                              Mail.mwrite (mail, port);
  11                              Mail.mwrite (mail, "\n"))
  12                         end)