TT#5554 CallRouting: domain part for caller subscribers

* include the domain part in peers lookup
      for identified caller subscribers

Change-Id: Ie05bbb567719a842ecff421f8d1978bb18b46e15

lib/NGCP/Panel/Controller/CallRouting.pm

@@ -97,18 +97,19 @@ sub callroutingverify :Chained('/') :PathPart('callroutingverify') :Args(0) {
                                     c => $c,
                                     lookup => $caller_uri
                                  );
-        if ($data->{caller_subscriber}) {
+    }
-            $data->{caller_subscriber_id} = $data->{caller_subscriber}->id;
+    if ($data->{caller_subscriber}) {
-            my $sub = sprintf '%s@%s',
+        $data->{caller_subscriber_id} = $data->{caller_subscriber}->id;
-                        $data->{caller_subscriber}->username,
+        my $caller_uri = sprintf '%s@%s',
-                        $data->{caller_subscriber}->domain->domain;
+            $data->{caller_subscriber}->username,
-            push @log, sprintf "found caller subscriber '%s' with id %d",
+            $data->{caller_subscriber}->domain->domain;
-                        $sub, $data->{caller_subscriber_id};
+        $data->{caller_domain} = $data->{caller_subscriber}->domain->domain;
-        } else {
+        push @log, sprintf "found caller subscriber '%s' with id %d",
-            push @log, sprintf "no caller subscriber found.";
+            $caller_uri, $data->{caller_subscriber_id};
-            goto RESULT;
+    } else {
+        push @log, sprintf "no caller subscriber found.";
+        goto RESULT;
 
-        }
     }
 
     # caller sum up