Increase domain component length limit

[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>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.validUser 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><%
	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>Error sending confirmation e-mail</h3><%
	else
		%><h3>Application recorded</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 class="blanks">
<tr> <td>Desired username:</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.<br>
	You also 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>
<% if minor then %>
<tr> <td>New member's "real" name:</td> <td><input name="rname"></td> </tr>
<tr> <td>Legal guardian's name:</td> <td><input name="gname"> 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"> Please enter your full name, as you would on a normal, legally binding contract.</td></tr>
<% end %>
<tr> <td>Contact e-mail address</td> <td><input name="email"></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 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>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[] %>