[hcoop/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
b90b0980	1	<% @header [("title", ["Confirm application"])];
a90da8b1 AC	2
	3	val id = Web.stoi ($"id");
	4	val passwd = $"p";
	5
a2d53da2 AC	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?<%
a90da8b1 AC	14	end;
	15
	16	@footer[] %>