TT#66577 use kamailo ids for sems_registrations

* kamailio.sems_registrations now uses
  kamailio.lcr_gw.id -> peer_host_id
  kamailio.subscriber.id -> subscriber_id
  for foreign keys consistency withing the same database

Change-Id: I4722729fdee07eb2a153473e85d64faa46eedca5

lib/NGCP/Panel/Controller/Peering.pm

@@ -375,8 +375,19 @@ sub servers_edit :Chained('servers_base') :PathPart('edit') :Args(0) {
         try {
             my $enabled_before = $c->stash->{server_result}->enabled;
             my $probing_before = $c->stash->{server_result}->probe;
+
+            if ($enabled_before && !$form->values->{enabled}) {
+                NGCP::Panel::Utils::Peering::_sip_delete_peer_registration(c => $c);
+            }
+
             $c->stash->{server_result}->update($form->values);
+
+            if (!$enabled_before && $form->values->{enabled}) {
+                NGCP::Panel::Utils::Peering::_sip_create_peer_registration(c => $c);
+            }
+
             NGCP::Panel::Utils::Peering::_sip_lcr_reload(c => $c);
+
             if (($c->stash->{server_result}->probe && $enabled_before && !$c->stash->{server_result}->enabled) || ($probing_before && !$c->stash->{server_result}->probe)) {
                 NGCP::Panel::Utils::Peering::_sip_delete_probe(
                     c => $c,
@@ -385,11 +396,6 @@ sub servers_edit :Chained('servers_base') :PathPart('edit') :Args(0) {
                     transport => $c->stash->{server_result}->transport,
                 );
             }
-            if (!$c->stash->{server_result}->enabled) {
-                NGCP::Panel::Utils::Peering::_sip_delete_peer_registration(c => $c);
-            } else {
-                NGCP::Panel::Utils::Peering::_sip_create_peer_registration(c => $c);
-            }
             NGCP::Panel::Utils::Peering::_sip_dispatcher_reload(c => $c);
             NGCP::Panel::Utils::Message::info(
                 c    => $c,
@@ -659,7 +665,7 @@ sub servers_preferences_edit :Chained('servers_preferences_base') :PathPart('edi
             my $type = 'peering';
             $prov_peer->{username} = $c->stash->{server}->{name};
             $prov_peer->{domain} = $c->stash->{server}->{ip};
-            $prov_peer->{id} = $c->stash->{server}->{id};
+            $prov_peer->{id} = $c->stash->{server_result}->lcr_gw->id;
             $prov_peer->{uuid} = 0;
 
             unless(compare($old_authentication_prefs, $new_authentication_prefs)) {

lib/NGCP/Panel/Utils/Peering.pm

@@ -26,7 +26,7 @@ sub _sip_delete_peer_registration {
 
   $prov_peer->{username} = $c->stash->{server}->{name};
   $prov_peer->{domain} = $c->stash->{server}->{ip};
-  $prov_peer->{id} = $c->stash->{server}->{id};
+  $prov_peer->{id} = $c->stash->{server_result}->lcr_gw->id;
   $prov_peer->{uuid} = 0;
 
   my $pref_all = $c->stash->{server_result}->voip_peer_preferences->search({
@@ -59,7 +59,7 @@ sub _sip_create_peer_registration {
 
   $prov_peer->{username} = $c->stash->{server}->{name};
   $prov_peer->{domain} = $c->stash->{server}->{ip};
-  $prov_peer->{id} = $c->stash->{server}->{id};
+  $prov_peer->{id} = $c->stash->{server_result}->lcr_gw->id;
   $prov_peer->{uuid} = 0;
 
   my $pref_all = $c->stash->{server_result}->voip_peer_preferences->search({

lib/NGCP/Panel/Utils/Sems.pm

@@ -43,7 +43,7 @@ sub create_peer_registration {
         $domain = $prov_obj->{domain};
     } elsif ($type eq "subscriber") {
         # outbound registration for usual subscriber
-        $sid = $prov_obj->id;
+        $sid = $prov_obj->kamailio_subscriber->id;
         $uuid = $prov_obj->uuid;
         $username = $prov_obj->username;
         $domain = $prov_obj->domain->domain;
@@ -134,7 +134,7 @@ sub update_peer_registration {
         $domain = $prov_obj->{domain};
     } elsif ($type eq "subscriber") {
         # outbound registration for usual subscriber
-        $sid = $prov_obj->id;
+        $sid = $prov_obj->kamailio_subscriber->id;
         $uuid = $prov_obj->uuid;
         $username = $prov_obj->username;
         $domain = $prov_obj->domain->domain;
@@ -242,7 +242,7 @@ sub delete_peer_registration {
         $domain = $prov_obj->{domain};
     } elsif ($type eq "subscriber") {
         # outbound registration for usual subscriber
-        $sid = $prov_obj->id;
+        $sid = $prov_obj->kamailio_subscriber->id;
         $uuid = $prov_obj->uuid;
         $username = $prov_obj->username;
         $domain = $prov_obj->domain->domain;