use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");$C->{HTMLTitle} = "Retrieving password";$this->out("");$this->out(Zen::PerlHandler->get("IIc7a1102a58c38cc35c941ca362362583->mnt_remindpasswd")->do($this->{C}));$this->out("\n<jinmeta:bodyStart/>\n<center>\n\n");if ( $C->{Complete} ) {$this->out("\n  <p>We sent your username and password to the e-mail address you gave upon\n  registration. Please go to your mailbox, open the message\n  then click this link to login using the login codes given in the e-mail:<br>\n  <br>\n  <a href=\"$C->{LoginURI}\">$C->{LoginURI}</a>\n\n");} else {$this->out("\n");if ( $C->{Error} ) {$this->out("    <div style=\"color: red\">$C->{Error}</div><br>\n");}$this->out("\n");if ( $C->{INPUT}{proxy_mode} ) {$this->out("<form name=RemindPasswdForm method=post>\n<input type=hidden name=proxy_mode value=\"1\">\n<input type=hidden name=proxy_pass value=\"$C->{SELF_URI_NO_QS}\">\n");} else {$this->out("<form name=RemindPasswdForm method=post action=\"$C->{SELF_URL_NO_QS}\">\n");}$this->out("<input type=\"hidden\" name=\"login_url\" value=\"$C->{INPUT}{login_url}\">\n<table border=0 cellpadding=0 cellspacing=1 class=atkMainTable>\n<tr><td class=atkHeader>Retrieving password</td></tr>\n<tr><td><table class=atkInnerTable cellpadding=4 cellspacing=3 width=100\%>\n<tr>\n	<td class=atkEditorLeft>\n\n<table align=center>\n  <tr>\n    <td class=\"atkEditorLeft\">E-mail</td>\n    <td class=\"atkEditorLeft\"><input type=text size=20 name=email value=\"$C->{INPUT}{email}\"></td>\n  </tr>\n</table>\n	\n	</td>\n</tr>\n</table></td></tr>\n<tr>\n	<td class=atkEditorControl>\n		<input class=\"\"btn btn-primary\"\" type=\"submit\" name=\"do_it\" value=\"Send me my password!\">\n	</td>\n</tr>\n</table>  \n</form>\n\n\n");}$this->out("\n</center>\n<jinmeta:bodyEnd/>\n\n");{my $G = (ref $this)->get("/headfoot/hf_auth.html", $this->{param}) or die "no skel /headfoot/hf_auth.html";my $out1 = $this->getOutput;$C->{central_content} = join('', @$out1);@$out1 = ();my $out2 = $G->execute($C);$this->out(@$out2) if $out2;}$this->out("");}