[hcoop/zz_old/portal.git] / app / confirm.mlt

<% @header [("title", ["Confirm application"])];

val id = Web.stoi ($"id");
val passwd = $"p";

switch App.confirm (id, passwd) of
         SOME unix_passwd =>
	 	%><h3><b>Confirmation successful</b></h3>
		You should hear from us within a few days from now.  Save this password, to use to access our servers if your application is approved:
		<blockquote><tt><% Web.html unix_passwd %></tt></blockquote><%
	| NONE =>
		%><h3><b>Error confirming</b></h3>
			Did you already follow this confirmation link?<%
end;

@footer[] %>
Commit	Line	Data
ce7b516a	1	<% @header [("title", ["Confirm application"])];
20a679fc	2
	3	val id = Web.stoi ($"id");
	4	val passwd = $"p";
	5
8d550734	6	switch App.confirm (id, passwd) of
	7	SOME unix_passwd =>
	8	%><h3><b>Confirmation successful</b></h3>
	9	You should hear from us within a few days from now. Save this password, to use to access our servers if your application is approved:
	10	<blockquote><tt><% Web.html unix_passwd %></tt></blockquote><%
	11	\| NONE =>
	12	%><h3><b>Error confirming</b></h3>
	13	Did you already follow this confirmation link?<%
20a679fc	14	end;
	15
	16	@footer[] %>