From 42ff210adb1d55d4c4e0cd61d0120113dc4b83b7 Mon Sep 17 00:00:00 2001
From: Andreas Granig <agranig@sipwise.com>
Date: Wed, 6 Aug 2014 15:32:20 +0200
Subject: [PATCH] MT#8495 Handle another level of nesting in banlist

---
 lib/NGCP/Panel/Controller/Security.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lib/NGCP/Panel/Controller/Security.pm b/lib/NGCP/Panel/Controller/Security.pm
index b151349f69..a867797cc6 100644
--- a/lib/NGCP/Panel/Controller/Security.pm
+++ b/lib/NGCP/Panel/Controller/Security.pm
@@ -53,7 +53,13 @@ EOF
             # multiple IPs
             else {
                 for my $struct ( @{ $xmlHash->{methodResponse}->{params}->{param}->{value}->{struct} } ) {
-                    push @ips, { ip => $struct->{member}->[2]->{value}->{struct}->{member}->{value}->{struct}->{member}->[0]->{value}->{string} };
+                    if(ref $struct->{member}->[2]->{value}->{struct}->{member} eq 'HASH') {
+                        push @ips, { ip => $struct->{member}->[2]->{value}->{struct}->{member}->{value}->{struct}->{member}->[0]->{value}->{string} };
+                    } else {
+                        foreach my $member(@{  $struct->{member}->[2]->{value}->{struct}->{member} }) {
+                            push @ips, { ip => $member->{value}->{struct}->{member}->[0]->{value}->{string} };
+                        }
+                    }
                 }
             }
         }