|
|
|
|
@ -106,13 +106,16 @@ GetOptions(
|
|
|
|
|
'from-tags=s@' => \$options{'from-tags'},
|
|
|
|
|
'DTMF-security=s' => \$options{'DTMF-security'},
|
|
|
|
|
'delay-buffer=i' => \$options{'delay-buffer'},
|
|
|
|
|
'frequency=i' => \$options{'frequency'},
|
|
|
|
|
'volume=i' => \$options{'volume'},
|
|
|
|
|
'digit=s' => \$options{'digit'},
|
|
|
|
|
) or die;
|
|
|
|
|
|
|
|
|
|
my $cmd = shift(@ARGV) or die;
|
|
|
|
|
|
|
|
|
|
my %packet = (command => $cmd);
|
|
|
|
|
|
|
|
|
|
for my $x (split(/,/, 'from-tag,to-tag,call-id,transport protocol,media address,ICE,address family,DTLS,via-branch,media address,ptime,xmlrpc-callback,metadata,address,file,db-id,code,DTLS-fingerprint,ICE-lite,media echo,label,set-label,from-label,to-label,DTMF-security')) {
|
|
|
|
|
for my $x (split(/,/, 'from-tag,to-tag,call-id,transport protocol,media address,ICE,address family,DTLS,via-branch,media address,ptime,xmlrpc-callback,metadata,address,file,db-id,code,DTLS-fingerprint,ICE-lite,media echo,label,set-label,from-label,to-label,DTMF-security,digit')) {
|
|
|
|
|
if (defined($options{$x})) {
|
|
|
|
|
if (!$options{json}) {
|
|
|
|
|
$packet{$x} = \$options{$x};
|
|
|
|
|
@ -122,7 +125,7 @@ for my $x (split(/,/, 'from-tag,to-tag,call-id,transport protocol,media address,
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
for my $x (split(/,/, 'TOS,delete-delay,delay-buffer')) {
|
|
|
|
|
for my $x (split(/,/, 'TOS,delete-delay,delay-buffer,volume,frequency')) {
|
|
|
|
|
defined($options{$x}) and $packet{$x} = $options{$x};
|
|
|
|
|
}
|
|
|
|
|
for my $x (split(/,/, 'trust address,symmetric,asymmetric,unidirectional,force,strict source,media handover,sip source address,reset,port latching,no rtcp attribute,full rtcp attribute,loop protect,record call,always transcode,all,SIPREC,pad crypto,generate mid,fragment,original sendrecv,symmetric codecs,asymmetric codecs,inject DTMF,detect DTMF,generate RTCP,single codec,reorder codecs,pierce NAT,SIP-source-address,allow transcoding')) {
|
|
|
|
|
|