X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=fs_selfservice%2FFS-SelfService%2Fcgi%2Fselfservice.cgi;h=5c0190f96c43fb39fc85026f657c501961da00c7;hp=2b4bb4302b82747062a5b9073cd5414c42dd780c;hb=dd03181dde5f641d81b5e50643bbd0f81ca09877;hpb=705de04c6659330be111fbbd5149ae5587402196

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 {