From dd03181dde5f641d81b5e50643bbd0f81ca09877 Mon Sep 17 00:00:00 2001
From: "C.J. Adams-Collier" <cjac@colliertech.org>
Date: Thu, 18 Sep 2014 11:10:57 -0700
Subject: [PATCH] FS RT #30779 - now logging self service authentication
 failure for processing by fail2ban

---
 fs_selfservice/FS-SelfService/cgi/selfservice.cgi | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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