29 lines
899 B
Plaintext
29 lines
899 B
Plaintext
% for ( $retry_msg // () ) {
|
|
% $_ = $_ eq 'authfailure' ? "Authentication failed: User does not exist "
|
|
% . "or the password was wrong."
|
|
% : $_ eq 'loggedOut' ? "You have been logged out. All session cookies "
|
|
% . "are expired and deleted. If you want to re-login:"
|
|
% : undef;
|
|
% }
|
|
% title 'User login';
|
|
|
|
% if ( $retry_msg ) {
|
|
<p class="error"><%= $retry_msg %></p>
|
|
% }
|
|
<form method="post" action="/login"><p>
|
|
|
|
<dl>
|
|
<dt>User id</dt>
|
|
<dd><input name="user" type="text" placeholder="user id or email" value="<%= param('user') %>"></dd>
|
|
<dt>Password</dt>
|
|
<dd><input name="password" type="password"></dd>
|
|
% if ( my $token = param 'token' ) {
|
|
<dt>Repeat</dt>
|
|
<dd><input name="samepassword" type="password">
|
|
<input type="hidden" name="token" value="<%= $token %>">
|
|
</dd>
|
|
% }
|
|
<p><button type="submit">Login</button></p>
|
|
|
|
</form>
|