Add all-balance summing and listing of retired balances
[hcoop/zz_old/portal.git] / vmailpasswd / passwd.mlt
CommitLineData
893fd779 1<html><head>
1fe415e0 2<link rel="stylesheet" type="text/css" href="http://hcoop.net/hcoop.css" />
3<title>HCoop: Change virtual mailbox password</title>
893fd779 4</head><body>
5
1fe415e0 6<div class="main">
7
8<div class="title">
9<img class="globe" src="http://hcoop.net/globe.gif" />
10<h1>HCoop: Change virtual mailbox password</h1>
11</div>
12
13<div class="break"></div>
893fd779 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
893fd779 31<form action="passwd" method="post">
32
1fe415e0 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>
893fd779 38<tr> <td><input type="submit" value="Change"></td> </tr>
39</table>
40
41</form>
1fe415e0 42</div>
893fd779 43
1fe415e0 44</body></html>