New member applications

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

diff --git a/app/confirm.mlt b/app/confirm.mlt
new file mode 100644 (file)
index 0000000..74f583f
--- /dev/null
+++ b/app/confirm.mlt
@@ -0,0 +1,14 @@
+<% @header [("title", ["Confirm appliaction"])];
+
+val id = Web.stoi ($"id");
+val passwd = $"p";
+
+if App.confirm (id, passwd) then
+       %><h3><b>Confirmation successful</b></h3>
+       You should hear from us within a few days from now.<%
+else
+       %><h3><b>Error confirming</b></h3>
+       Did you already follow this confirmation link?<%
+end;
+
+@footer[] %>
\ No newline at end of file