my( $req, $args, $error, $values ) = @_;
genHtmlHead( $req, 'Register a new user', undef );
print '<h1>Register a new user</h1>';
- genLocMenu( $req, $args, [ [ 'Log in', 'login' ] ] );
+ genLocMenu( $req, $args, [ [ 'Log in', 'login' ], [ 'Help', 'help', 'account' ] ] );
print '<div class="error">'.$error.'</div>' if( defined $error );
print '<form name="register" id="register" method="POST" action="">
<table>';
"\n(This is an autogenerated email, do not respond to it)" );
genHtmlHead( $req, 'Registration email sent', undef );
print "<h1>Registration email sent</h1>\n";
- genLocMenu( $req, $args, [ [ 'Log in', 'login' ] ] );
+ genLocMenu( $req, $args, [ [ 'Log in', 'login' ], [ 'Help', 'help', 'account' ] ] );
print '<p>
An email containing further information has been sent to you.
Please follow these instruction to finish the registration process.';
my( $req, $args, $error, $values ) = @_;
genHtmlHead( $req, 'Confirm registration', undef );
print '<h1>Confirm registration</h1>';
- genLocMenu( $req, $args, [ [ 'Register', 'register' ] ] );
+ genLocMenu( $req, $args, [ [ 'Register', 'register' ], [ 'Help', 'help', 'account' ] ] );
print '<div class="error">'.$error.'</div>' if( defined $error );
print '<p>Email address: '.encode( $values->{'email'} );
print '<form name="register-confirm" id="register-confirm" method="POST" action="">';
my( $req, $args ) = @_;
genHtmlHead( $req, 'Used address', undef );
print "<h1>Used address</h1>\n";
- genLocMenu( $req, $args, [ [ 'Log in', 'login' ], [ 'Reset password', 'respass' ], [ 'Register', 'register' ] ] );
+ genLocMenu( $req, $args, [ [ 'Log in', 'login' ], [ 'Reset password', 'respass' ], [ 'Register', 'register' ], [ 'Help', 'help', 'account' ] ] );
print '<div class="error">
<p>
An account for this address is already registered.
}
genHtmlHead( $req, 'Registered', undef );
print "<h1>Registered</h1>\n";
- genLocMenu( $req, $args, [ [ 'Log in', 'login' ] ] );
+ genLocMenu( $req, $args, [ [ 'Log in', 'login' ], [ 'Help', 'help', 'account' ] ] );
print '<p>
You have registered successfully.';
genHtmlTail();
$req->headers_out->add( 'Set-Cookie' => new CGI::Cookie( -name => 'cookie-test', -value => 1 ) );
genHtmlHead( $req, 'Login', undef );
print '<h1>Login</h1>';
- genLocMenu( $req, $args, [ [ 'Register', 'register' ], [ 'Reset password', 'respass' ] ] );
+ genLocMenu( $req, $args, [ [ 'Register', 'register' ], [ 'Reset password', 'respass' ], [ 'Help', 'help', 'account' ] ] );
print '<div class="error"><p>'.$error.'</div>' if( defined $error );
print '<form name="login" id="login" method="POST" action="'.setAddrPrefix( $req->uri(), 'mods' ).buildExcept( 'action', $args ).'?action=login"><table>';
genForm( [ [ 'Login name or email:', 'text', 'login', 'maxlength="255"' ],
my( $req, $args, $error, $values ) = @_;
genHtmlHead( $req, 'Reset password', undef );
print "<h1>Reset password</h1>\n";
- genLocMenu( $req, $args, [ [ 'Log in', 'login' ], [ 'Register', 'register' ] ] );
+ genLocMenu( $req, $args, [ [ 'Log in', 'login' ], [ 'Register', 'register' ], [ 'Help', 'help', 'account' ] ] );
print "<p>If you forgot your password (or didn't create one yet), you can reset it to a new value here.\n";
print "Provide your email address here and further instructions will be sent to you.\n";
print '<div class="error">'.$error.'</div>' if( defined $error );
"\n(This is an autogenerated email, do not respond to it)" );
genHtmlHead( $req, 'Reset password', undef );
print "<h1>Reset password</h1>\n";
- genLocMenu( $req, $args, [ [ 'Log in', 'login' ] ] );
+ genLocMenu( $req, $args, [ [ 'Log in', 'login' ], [ 'Help', 'help', 'account' ] ] );
print "<p>An email with information has been sent to your address.\n";
genHtmlTail();
return OK;
my( $req, $args, $error, $values, $email, $hash ) = @_;
genHtmlHead( $req, 'Reset password', undef );
print "<h1>Reset password</h1>\n";
- genLocMenu( $req, $args, [ [ 'Log in', 'login' ] ] );
+ genLocMenu( $req, $args, [ [ 'Log in', 'login' ], [ 'Help', 'help', 'account' ] ] );
print '<div class="error">'.$error.'</div>' if( defined $error );
print "<p>You can enter new password here:\n";
print '<form name="respass-confirm" id="respass-confirm" method="POST" action="">
changePasswd( $tables, $id, $data->{'password'}, $email );
genHtmlHead( $req, 'Reset password', undef );
print "<h1>Reset password</h1>\n";
- genLocMenu( $req, $args, [ [ 'Log in', 'login' ] ] );
+ genLocMenu( $req, $args, [ [ 'Log in', 'login' ], [ 'Help', 'help', 'account' ] ] );
print "<p>Your password was successfuly changed.\n";
genHtmlTail();
return OK;