diff options
| -rwxr-xr-x | fs_selfservice/FS-SelfService/cgi/selfservice.cgi | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi index 2b4bb4302..5c0190f96 100755 --- a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi +++ b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi @@ -124,7 +124,13 @@ unless ( $nologin_actions{$action} ) { 'email' => $email, 'password' => $password ); - $session_id = $login_rv->{'session_id'}; + if ( $login_rv->{'error'} ) { + my $ip = $cgi->remote_addr(); + warn("login failure [email $email] [ip $ip]"); + } else { + #successful login + $session_id = $login_rv->{'session_id'}; + } } else { |