Join script should rule out retired usernames
[bpt/portal.git] / vmailpasswd / passwd.mlt
CommitLineData
393a4193 1<html><head>
5badedb0 2<link rel="stylesheet" type="text/css" href="/hcoop.css" />
b6dd1aaf 3<title>HCoop: Change virtual mailbox password</title>
393a4193
AC
4</head><body>
5
b6dd1aaf
AC
6<div class="main">
7
8<div class="title">
5badedb0 9<img class="globe" src="/globe.gif" />
b6dd1aaf
AC
10<h1>HCoop: Change virtual mailbox password</h1>
11</div>
12
13<div class="break"></div>
393a4193
AC
14<% if $"email" <> "" then
15 val email = $"email"
16 val old = $"old"
17 val new = $"new"
18 val new2 = $"new2"
19
20 if not (Pass.validEmail email) then
21 %><h2><b>That is not a valid virtual mailbox address!</b></h2><%
22 elseif new <> new2 then
23 %><h2><b>Your new passwords do not match.</b></h2><%
24 elseif not (Pass.change (email, old, new)) then
25 %><h2><b>Error changing password. Did you enter the right e-mail address and current password?</b></h2><%
26 else
27 %><h2><b>Password changed!</b></h2><%
28 end
29end %>
30
393a4193
AC
31<form action="passwd" method="post">
32
b6dd1aaf
AC
33<table class="blanks">
34<tr> <td>E-mail address:</td> <td><input name="email" value="<% Web.html ($"email") %>"></td> </tr>
35<tr> <td>Old password:</td> <td><input type="password" name="old"></td> </tr>
36<tr> <td>New password:</td> <td><input type="password" name="new"></td> </tr>
37<tr> <td>Confirm new password:</td> <td><input type="password" name="new2"></td> </tr>
393a4193
AC
38<tr> <td><input type="submit" value="Change"></td> </tr>
39</table>
40
41</form>
b6dd1aaf 42</div>
393a4193 43
b6dd1aaf 44</body></html>