Low balance reminders

[hcoop/zz_old/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><b>You must accept the Terms of Service!</b></h3><%
	elseif name = "" then
		%><h3><b>Please enter a username</b></h3><%
	elseif rname = "" then
		%><h3><b>Please enter the potential member's name</b></h3><%
	elseif (iff minor then gname = "" else false) then
		%><h3><b>Please enter your name, as legal guardian<b></h3><%
	elseif email = "" then
		%><h3><b>Please enter your contact e-mail address</b></h3><%
	elseif uses = "" then
		%><h3><b>Please enter your proposed uses</b></h3><%
	elseif not (App.validUser name) then
		%><h3><b>Invalid requested username</b></h3><%
	elseif App.userExists name then
		%><h3><b>That username is already in use.</b><h3><%
	elseif not (App.validEmail email) then
		%><h3><b>Invalid e-mail address</b></h3><%
	elseif not (App.apply { name = name, rname = rname, email = email,
				gname = (case gname of "" => NONE | _ => SOME gname),
				forward = forward, uses = uses, other = other }) then
		%><h3><b>Error sending confirmation e-mail</b></h3><%
	else
		%><h3><b>Application recorded</b></h3>
		Check your e-mail for a message with further instructions.<%
	end
else
	val minor = $"minor" <> "" %>

<form action="join" method="post">
<input type="hidden" name="cmd" value="app">
<table>
<tr> <td align="right" valign="top"><b>Desired username</b>:</td> <td><input name="name"><br>
	You should 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.</td> </tr>
<% if minor then %>
<tr> <td align="right"><b>New member's "real" name</b>:</td> <td><input name="rname"></td> </tr>
<tr> <td align="right"><b>Legal guardian's name</b>:</td> <td><input name="gname"></td> </tr>
<% else %>
<tr> <td align="right"><b>Your "real" name</b>:</td> <td><input name="rname"></td> </tr>
<% end %>
<tr> <td align="right"><b>Contact e-mail address</b></td> <td><input name="email"></td> </tr>
<tr> <td align="right" valign="top"><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 account will be forwarded to the address you provide here.<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 align="right" valign="top"><b>How do you plan to use a hcoop membership?</b></td> <td><textarea name="uses" rows="5" cols="80" wrap="soft"></textarea></td> </tr>
<tr> <td align="right" valign="top"><b>Any other information about yourself</b></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[] %>