diff options
| author | C.J. Adams-Collier <cjac@colliertech.org> | 2014-09-18 11:35:38 -0700 |
|---|---|---|
| committer | C.J. Adams-Collier <cjac@colliertech.org> | 2014-10-06 18:05:29 -0700 |
| commit | 05a99e84eb795dcf19cda5133a4a89a1976fedfc (patch) | |
| tree | 4c6e216abe1d54d5acd3586469395ac21034ebf1 /fs_selfservice | |
| parent | 9931f703daa44a56da2382fd823271eff138959a (diff) | |
including error message, and moving session_id reset outside of the conditional block
Conflicts:
fs_selfservice/FS-SelfService/cgi/selfservice.cgi
Diffstat (limited to 'fs_selfservice')
| -rwxr-xr-x | fs_selfservice/FS-SelfService/cgi/selfservice.cgi | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi index 1ec5c0bea..4e21ad8df 100755 --- a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi +++ b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi @@ -124,7 +124,15 @@ 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] [error $login_rv->{error}]"); + } else { + #successful login + } + + $session_id = $login_rv->{'session_id'}; } else { |