Revert "TT#102056 fix registration entry removal"

This reverts commit db2ea573aa.

Reason for revert: failing.

Change-Id: If23107246a69aabf332d489aebc20e8685bd5c3d
mr8.5.4
Rene Krenn 5 years ago
parent 2d50b074cc
commit 9e9f949f9a

@ -201,9 +201,8 @@ sub delete_item {
my $sub = $self->subscriber_from_item($c, $item);
return unless($sub);
my $aor = $item->username . '@' . $item->domain;
NGCP::Panel::Utils::Kamailio::delete_location_contact($c,
$aor, $item->contact);
$sub, $item->contact);
NGCP::Panel::Utils::Kamailio::flush($c) unless $self->suppress_flush($c);
return 1;
}

@ -4331,9 +4331,9 @@ sub delete_registered :Chained('registered') :PathPart('delete') :Args(0) {
my $ret;
try {
my $reg = $c->stash->{registered} // die "No registration data";
my $aor = $reg->username . '@' . $reg->domain;
NGCP::Panel::Utils::Kamailio::delete_location_contact($c, $aor, $reg->contact);
NGCP::Panel::Utils::Kamailio::delete_location_contact($c,
$c->stash->{subscriber}->provisioning_voip_subscriber,
$c->stash->{registered}->contact);
} catch($e) {
NGCP::Panel::Utils::Message::error(
c => $c,

@ -6,8 +6,9 @@ use NGCP::Panel::Utils::DateTime;
use Data::Dumper;
sub delete_location_contact {
my ($c, $aor, $contact) = @_;
my ($c, $prov_subscriber, $contact) = @_;
my $aor = $prov_subscriber->username . '@' . $prov_subscriber->domain->domain;
my $ret = NGCP::Panel::Utils::XMLDispatcher::dispatch($c, "proxy-ng", 1, 1, <<EOF );
<?xml version="1.0" ?>
<methodCall>
@ -23,8 +24,9 @@ EOF
}
sub delete_location {
my ($c, $aor) = @_;
my ($c, $prov_subscriber) = @_;
my $aor = $prov_subscriber->username . '@' . $prov_subscriber->domain->domain;
my $ret = NGCP::Panel::Utils::XMLDispatcher::dispatch($c, "proxy-ng", 1, 1, <<EOF );
<?xml version="1.0" ?>
<methodCall>

Loading…
Cancel
Save