<%
- elseif not (App.validUser name) then
+ elseif not (App.validUsername name) then
%>
Invalid requested username
<%
elseif App.userExists name then
%>
That username is already in use.
<%
elseif not (App.validEmail email) then
%>
Invalid e-mail address
<%
- elseif not (App.apply { name = name, rname = rname, email = email,
- gname = (case gname of "" => NONE | _ => SOME gname),
- forward = forward, uses = uses, other = other }) then
- %>
Error sending confirmation e-mail
<%
- else
- %>
Application recorded
- Check your e-mail for a message with further instructions.<%
+ else switch App.apply { name = name, rname = rname, email = email,
+ gname = (case gname of "" => NONE | _ => SOME gname),
+ forward = forward, uses = uses, other = other,
+ paypal = (case $"paypal" of "" => NONE | s => SOME s),
+ checkout = (case $"checkout" of "" => NONE | s => SOME s) } of
+ NONE => %>
Error sending confirmation e-mail
<%
+ | SOME unix_passwd =>
+ %>
Application recorded
+ Check your e-mail for a message with further instructions.
+
+
Initial Password
+
Save this password to use to access your new account if your application is approved:
+
<% Web.html unix_passwd %>
+
+
The above password is the initial password for your
+ account and should be changed upon first login. If you
+ lose the password, you will be unable to access
+ your new account without admin intervention.
+
+
+
If you don't receive a confirmation e-mail message, then something is wrong, and don't expect any further progress to be made on your application unless you contact admins@hcoop.net describing the problem. Before doing so, make sure our confirmation message didn't end up filtered as "spam."