cvsimport

[hcoop/zz_old/portal.git] / vmailpasswd / passwd.mlt.in

<% if $"email" <> "" then
	val email = $"email"
	val old = $"old"
	val new = $"new"
	val new2 = $"new2"

	if not (Pass.validEmail email) then
		%><h2><b>That is not a valid virtual mailbox address!</b></h2><%
	elseif new <> new2 then
		%><h2><b>Your new passwords do not match.</b></h2><%
	elseif not (Pass.change (email, old, new)) then
		%><h2><b>Error changing password.  Did you enter the right e-mail address and current password?</b></h2><%
	else
		%><h2><b>Password changed!</b></h2><%
	end
end %>

<form action="passwd" method="post">

<table class="blanks">
<tr> <td>E-mail address:</td> <td><input name="email" value="<% Web.html ($"email") %>"></td> </tr>
<tr> <td>Old password:</td> <td><input type="password" name="old"></td> </tr>
<tr> <td>New password:</td> <td><input type="password" name="new"></td> </tr>
<tr> <td>Confirm new password:</td> <td><input type="password" name="new2"></td> </tr>
<tr> <td><input type="submit" value="Change"></td> </tr>
</table>

</form>