From 204fb95b3aaba9dcb51f46c03cd94b12e99228c3 Mon Sep 17 00:00:00 2001
From: Gerhard Jungwirth <gjungwirth@sipwise.com>
Date: Wed, 6 Nov 2013 16:03:01 +0100
Subject: [PATCH] MT#4707 log IP on failed login

---
 lib/NGCP/Panel/Controller/Login.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lib/NGCP/Panel/Controller/Login.pm b/lib/NGCP/Panel/Controller/Login.pm
index d04889fa6e..2859459fa7 100644
--- a/lib/NGCP/Panel/Controller/Login.pm
+++ b/lib/NGCP/Panel/Controller/Login.pm
@@ -114,6 +114,11 @@ sub index :Path Form {
         # initial get
     }
 
+    if ($form->has_errors) {
+        my $request_ip = $c->request->address;
+        $c->log->error("NGCP Panel Login failed realm=$realm ip=$request_ip");
+    }
+
     $c->stash(form => $form);
     $c->stash(realm => $realm);
     $c->stash(template => 'login/login.tt');