[hcoop/zz_old/portal.git] / cert.sml

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