vmailpasswd/passwd.mlt

   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>