HCoop / bpt / portal.git / blame
| Commit | Line | Data |
|---|---|---|
| 393a4193 AC |
1 | <html><head> |
| 2 | <title>Change virtual mailbox password</title> | |
| 3 | </head><body> | |
| 4 | ||
| 5 | <% if $"email" <> "" then | |
| 6 | val email = $"email" | |
| 7 | val old = $"old" | |
| 8 | val new = $"new" | |
| 9 | val new2 = $"new2" | |
| 10 | ||
| 11 | if not (Pass.validEmail email) then | |
| 12 | %><h2><b>That is not a valid virtual mailbox address!</b></h2><% | |
| 13 | elseif new <> new2 then | |
| 14 | %><h2><b>Your new passwords do not match.</b></h2><% | |
| 15 | elseif not (Pass.change (email, old, new)) then | |
| 16 | %><h2><b>Error changing password. Did you enter the right e-mail address and current password?</b></h2><% | |
| 17 | else | |
| 18 | %><h2><b>Password changed!</b></h2><% | |
| 19 | end | |
| 20 | end %> | |
| 21 | ||
| 22 | <h2><b>Change virtual mailbox password</b></h2> | |
| 23 | ||
| 24 | <form action="passwd" method="post"> | |
| 25 | ||
| 26 | <table> | |
| 27 | <tr> <td align="right"><b>E-mail address</b>:</td> <td><input name="email" value="<% Web.html ($"email") %>"></td> </tr> | |
| 28 | <tr> <td align="right"><b>Old password</b>:</td> <td><input type="password" name="old"></td> </tr> | |
| 29 | <tr> <td align="right"><b>New password</b>:</td> <td><input type="password" name="new"></td> </tr> | |
| 30 | <tr> <td align="right"><b>Confirm new password</b>:</td> <td><input type="password" name="new2"></td> </tr> | |
| 31 | <tr> <td><input type="submit" value="Change"></td> </tr> | |
| 32 | </table> | |
| 33 | ||
| 34 | </form> | |
| 35 | ||
| 36 | </body></html> |