[bpt/portal.git] / quota.sml

structure Quota = Request(struct
			  val table = "Quota"
			  val adminGroup = "server"
			  fun subject _ = "Disk quota change request"
			  val template = "quota"
			  val descr = "Quota request"
				      
			  fun body (mail, data) =
			      (Mail.mwrite (mail, "Request: ");
			       Mail.mwrite (mail, data);
			       Mail.mwrite (mail, "\n"))
			  end)
Commit	Line	Data
6704531c AC	1	structure Quota = Request(struct
	2	val table = "Quota"
	3	val adminGroup = "server"
	4	fun subject _ = "Disk quota change request"
	5	val template = "quota"
	6	val descr = "Quota request"
	7
	8	fun body (mail, data) =
23d81629	9	(Mail.mwrite (mail, "Request: ");
6704531c AC	10	Mail.mwrite (mail, data);
	11	Mail.mwrite (mail, "\n"))
	12	end)