use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");$this->out(Zen::PerlHandler->get("IIf4fd6f7bd0c522901118296dfcf405dd->mnt_login")->do($this->{C}));$this->out("");$C->{CONTENT_TITLE} = $C->{Cfg}{RealmTitle} || 'Authorization';$this->out("\n");{my $G = (ref $this)->get("/zen/auth/header.html", $this->{param}) or die "no skel /zen/auth/header.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("\n");if ( $C->{Error} ) {$this->out("  <p align=center><span style=\"color: red\">Authorization error</span></p>\n");}$this->out("\n<form name=LoginForm method=post action=\"$C->{SELF_URL_NO_QS}\">\n<input type=hidden name=cgi_ret value=\"$C->{INPUT}{cgi_ret}\">\n<input type=hidden name=realm value=\"$C->{INPUT}{realm}\">\n<table align=center border=1 bgcolor=#EEEEEE cellspacing=0 cellpadding=10><tr><td>\n<table align=center>\n  <tr>\n    <td align=center colspan=2>\n      <span class=module style=\"text-indent: 0; font: bold 16px\">$C->{CONTENT_TITLE}</span>\n      <br><br>\n    </td>\n  </tr>\n  <tr>\n    <td align=right><b>Login</b></td>\n    <td align=left><input type=text tabIndex=1 size=20 maxsize=30 name=login value=\"$C->{INPUT}{login}\"></td>\n  </tr>\n  <tr>\n    <td align=right><b>Password</b></td>\n    <td align=left><input type=password tabIndex=2 size=20 maxsize=30 name=passwd></td>\n  </tr>\n");if ( $C->{Cfg}{Session} eq 'Longlife' ) {$this->out("  <tr>\n    <td>&nbsp;</td>\n    <td align=left><input type=checkbox tabIndex=3 name=longlife value=1> remember me</td>\n  </tr>\n");}$this->out("  <tr>\n    <td align=center colspan=2><input type=submit tabIndex=4 name=do_login value=\"Log in\"></td>\n  </tr>\n</table>\n</td></tr></table>\n</form>\n\n<script>\n  document.LoginForm.login.focus();\n</script>\n\n");{my $G = (ref $this)->get("/zen/auth/footer.html", $this->{param}) or die "no skel /zen/auth/footer.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("");}