diff --git a/lib/NGCP/Panel/Utils/Sems.pm b/lib/NGCP/Panel/Utils/Sems.pm index 3271b9c23b..122fc70046 100644 --- a/lib/NGCP/Panel/Utils/Sems.pm +++ b/lib/NGCP/Panel/Utils/Sems.pm @@ -306,12 +306,12 @@ EOF sub party_call_control { my ($c, $data) = @_; - foreach my $param (qw(caller callee call_id status)) { + foreach my $param (qw(caller callee call_id status token)) { die "missing '$param' parameter'" unless $data->{$param}; } - my ($caller, $callee, $callid, $status) = - @{$data}{qw(caller callee callid status)}; + my ($caller, $callee, $callid, $status $token) = + @{$data}{qw(caller callee callid status token)}; my $service = 'appserver'; my $dispatcher = NGCP::Panel::Utils::XMLDispatcher->new; @@ -322,7 +322,7 @@ sub party_call_control { postDSMEvent - pcc_$callid + $token