cvsimport
[hcoop/zz_old/portal.git] / app / join.mlt
CommitLineData
20a679fc 1<% @header [("title", ["Apply for membership"])] %>
2
3<% if $"cmd" = "app" then
5146e435 4 val minor = $"minor" <> "";
20a679fc 5 val name = $"name";
6 val rname = $"rname";
5146e435 7 val gname = $"gname";
20a679fc 8 val email = $"email";
9 val forward = $"forward" <> "on";
10 val uses = $"uses";
11 val other = $"other";
12
5146e435 13 if $"agree" <> "on" then
94fb7d51 14 %><h3>You must accept the Terms of Service!</h3><%
5146e435 15 elseif name = "" then
94fb7d51 16 %><h3>Please enter a username</h3><%
20a679fc 17 elseif rname = "" then
94fb7d51 18 %><h3>Please enter the potential member's name</h3><%
5146e435 19 elseif (iff minor then gname = "" else false) then
94fb7d51 20 %><h3>Please enter your name, as legal guardian<b></h3><%
20a679fc 21 elseif email = "" then
94fb7d51 22 %><h3>Please enter your contact e-mail address</h3><%
20a679fc 23 elseif uses = "" then
94fb7d51 24 %><h3>Please enter your proposed uses</h3><%
20a679fc 25 elseif not (App.validUser name) then
94fb7d51 26 %><h3>Invalid requested username</h3><%
20a679fc 27 elseif App.userExists name then
94fb7d51 28 %><h3>That username is already in use.</b><h3><%
20a679fc 29 elseif not (App.validEmail email) then
94fb7d51 30 %><h3>Invalid e-mail address</h3><%
6d56b757 31 else switch App.apply { name = name, rname = rname, email = email,
8d550734 32 gname = (case gname of "" => NONE | _ => SOME gname),
20acb925 33 forward = forward, uses = uses, other = other,
34 paypal = (case $"paypal" of "" => NONE | s => SOME s),
35 checkout = (case $"checkout" of "" => NONE | s => SOME s) } of
6d56b757 36 NONE => %><h3>Error sending confirmation e-mail</h3><%
37 | SOME unix_passwd =>
38 %><h3>Application recorded</h3>
39 Check your e-mail for a message with further instructions. <b>Save this password to use to access your new account if your application is approved</b>:
40 <blockquote><tt><% Web.html unix_passwd %></tt></blockquote><%
41 end
20a679fc 42 end
5146e435 43else
44 val minor = $"minor" <> "" %>
20a679fc 45
46<form action="join" method="post">
47<input type="hidden" name="cmd" value="app">
94fb7d51 48<table class="blanks">
49<tr> <td>Desired username:</td> <td><input name="name"><br>
f3c86948 50 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>
51 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>
5146e435 52<% if minor then %>
94fb7d51 53<tr> <td>New member's "real" name:</td> <td><input name="rname"></td> </tr>
29826664 54<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>
5146e435 55<% else %>
29826664 56<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>
5146e435 57<% end %>
20acb925 58<tr> <td>Contact e-mail address</td> <td><input name="email" size="50"></td> </tr>
59<tr> <td><a href="http://www.paypal.com/">PayPal</a> account e-mail:</td> <td><input name="paypal" size="50"></td> </tr>
60<tr> <td><a href="http://checkout.google.com/">Google Checkout</a> account e-mail:</td> <td><input name="checkout" size="50"><br>
61 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>
62<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>
20a679fc 63 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>
20acb925 64 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>
65<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>
94fb7d51 66<tr> <td>Any other information about yourself</td> <td><textarea name="other" rows="5" cols="80" wrap="soft"></textarea></td> </tr>
20a679fc 67</table>
5146e435 68
fd650826 69<br><hr><br>
70
71You must agree to the following terms to be considered for membership:
72
5146e435 73<h2><b>Terms of Service Agreement</b></h2>
74
75<% App.readTosBody () %>
76
77<br><hr><br>
78
79<input type="checkbox" name="agree">
80<% if minor then App.readTosMinorAgree () else App.readTosAgree () end %>
81
82<br><br><input type="submit" value="Apply">
83
20a679fc 84</form>
85
86<% end %>
87
88<% @footer[] %>