summaryrefslogtreecommitdiff
path: root/index.pl
diff options
context:
space:
mode:
Diffstat (limited to 'index.pl')
-rwxr-xr-xindex.pl8
1 files changed, 7 insertions, 1 deletions
diff --git a/index.pl b/index.pl
index dfc3358..d0e29c6 100755
--- a/index.pl
+++ b/index.pl
@@ -923,7 +923,13 @@ post '/login' => sub {
$self->redirect_to('/');
}
else {
- $self->render( 'login', invalid => 'credentials' );
+ my $data = $self->get_user_password($user);
+ if ( $data and $data->{status} == 0 ) {
+ $self->render( 'login', invalid => 'confirmation' );
+ }
+ else {
+ $self->render( 'login', invalid => 'credentials' );
+ }
}
}
};