TT#91151 add --label option to ng-client script

Change-Id: Ie1e98e4e8410f5c72d1801164bec98b274f5b374
pull/1278/head
Richard Fuchs 5 years ago
parent 0c731ae302
commit acc489c88e

@ -92,13 +92,14 @@ GetOptions(
'reorder-codecs' => \$options{'reorder codecs'},
'media-echo=s' => \$options{'media echo'},
'pierce-NAT' => \$options{'pierce NAT'},
'label=s' => \$options{'label'},
) 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')) {
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')) {
defined($options{$x}) and $packet{$x} = \$options{$x};
}
for my $x (split(/,/, 'TOS,delete-delay')) {

Loading…
Cancel
Save