[hcoop/portal.git] / domain.sml

structure Domain = Request(struct
			   val table = "Domain"
			   val adminGroup = "server"
			   fun subject dom = "Domain set-up request: " ^ dom
			   val template = "domain"
			   val descr = "domain"
			   fun body (mail, dom) =
			       (Mail.mwrite (mail, dom);
				Mail.mwrite (mail, "\n"))
			   end)
Commit	Line	Data
5da9f4a9 AC	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) =
dfb0d0d7	8	(Mail.mwrite (mail, dom);
5da9f4a9 AC	9	Mail.mwrite (mail, "\n"))
5da9f4a9 AC	10	end)