Join script should rule out retired usernames

[bpt/portal.git] / app / join.mlt

<% @header [("title", ["Apply for membership"])] %>

<% if $"cmd" = "app" then
	val minor = $"minor" <> "";
	val name = $"name";
	val rname = $"rname";
	val gname = $"gname";
	val email = $"email";
	val forward = $"forward" <> "on";
	val uses = $"uses";
	val other = $"other";

	if $"agree" <> "on" then
		%><h3>You must accept the Terms of Service!</h3><%
	elseif name = "" then
		%><h3>Please enter a username</h3><%
	elseif rname = "" then
		%><h3>Please enter the potential member's name</h3><%
	elseif (iff minor then gname = "" else false) then
		%><h3>Please enter your name, as legal guardian<b></h3><%
	elseif email = "" then
		%><h3>Please enter your contact e-mail address</h3><%
	elseif uses = "" then
		%><h3>Please enter your proposed uses</h3><%
	elseif not (App.validUsername name) then
		%><h3>Invalid requested username</h3><%
	elseif App.userExists name then
		%><h3>That username is already in use.</b><h3><%
	elseif not (App.validEmail email) then
		%><h3>Invalid e-mail address</h3><%
	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 => %><h3>Error sending confirmation e-mail</h3><%
		| SOME unix_passwd =>
		       	%><h3>Application recorded</h3>
			Check your e-mail for a message with further instructions.  <h1>Save this password to use to access your new account if your application is approved:</h1>
			<blockquote><tt><% Web.html unix_passwd %></tt></blockquote>
			<p><b>If you don't receive a confirmation e-mail message</b>, then something is wrong, and don't expect any further progress to be made on your application unless you contact <a href="mailto:admins@hcoop.net">admins@hcoop.net</a> describing the problem.  Before doing so, make sure our confirmation message didn't end up filtered as "spam."</p>
		<% end
	end
else
	val minor = $"minor" <> "" %>

<form action="join" method="post">
<input type="hidden" name="cmd" value="app">
<table class="blanks">
<tr> <td width="25%">Desired username:</td> <td width="75%"><input name="name"><br>
	Please follow usual UNIX conventions, including limiting yourself to lowercase letters and at most 8 characters. It's helpful to pick a name you wouldn't mind using to identify yourself to both strangers and friends. Something based on your "real" name is a safe bet.<br>
	You don't need to worry about whether or not the username you want is already taken. This application system will let you know if that is the case. You can probably use a shorter and simpler name than you are accustomed to getting at larger services, so we encourage you to try such names first.</td> </tr>
<tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr>
<% if minor then %>
<tr> <td>New member's "real" name:</td> <td><input name="rname" size="50"></td> </tr>
<tr> <td>Legal guardian's name:</td> <td><input name="gname"><br> Please enter your full name, as you would on a normal, legally binding contract.</td></tr>
<% else %>
<tr> <td>Your "real" name:</td> <td><input name="rname"><br> Please enter your full name, as you would on a normal, legally binding contract.</td></tr>
<% end %>
<tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr>
<tr> <td>Contact e-mail address</td> <td><input name="email" size="50"></td> </tr>
<tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr>
<tr> <td><a href="http://www.paypal.com/">PayPal</a> account e-mail:</td> <td><input name="paypal" size="50"></td> </tr>
<tr> <td><a href="http://checkout.google.com/">Google Checkout</a> account e-mail:</td> <td><input name="checkout" size="50"><br>
     These payment service provider e-mail addresses are optional.  You will probably end up using one or the other of these providers if your application is approved, and entering here the e-mail address that you've used to sign up with that provider will help us process your payment accurately and promptly. E-mail addresses you enter here should match those seen by recipients of payments that you send.</td> </tr>
<tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr>
<tr> <td><input type="checkbox" name="forward"></td> <td>Check this box if you would like to use HCoop as your primary e-mail provider.<br>
	If you don't select this option and you are approved to join, e-mail to your HCoop account will be forwarded to the contact address you provided above (without preserving a local copy on HCoop servers).<br>
	You can change this option later, but we'll probably have helpful things to e-mail you as soon as you join.  It's important that we be able to reach members reliably, so please don't decide to use us as your primary e-mail provider unless you can commit to checking your HCoop mailbox just as often as any other personal accounts you have.</td> </tr>
<tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr>
<tr> <td>How do you plan to use a HCoop membership?</td> <td><textarea name="uses" rows="5" cols="80" wrap="soft"></textarea></td> </tr>
<tr> <td>Any other information about yourself</td> <td><textarea name="other" rows="5" cols="80" wrap="soft"></textarea></td> </tr>
</table>

<br><hr><br>

You must agree to the following terms to be considered for membership:

<h2><b>Terms of Service Agreement</b></h2>

<% App.readTosBody () %>

<br><hr><br>

<input type="checkbox" name="agree">
<% if minor then App.readTosMinorAgree () else App.readTosAgree () end %>

<br><br><input type="submit" value="Apply">

</form>

<% end %>

<% @footer[] %>