'email' => $email,
'password' => $password
);
+
if ( $login_rv->{'error'} ) {
my $ip = $cgi->remote_addr();
- warn("login failure [email $email] [ip $ip]");
+ warn("login failure [email $email] [ip $ip] [error $login_rv->{error}]");
} else {
#successful login
- $session_id = $login_rv->{'session_id'};
}
+ $session_id = $login_rv->{'session_id'};
+
} else {
$cgi->param('username') =~ /^\s*([a-z0-9_\-\.\&]{0,$form_max})\s*$/i;