'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 {