|
|
|
@ -35,13 +35,14 @@ GetOptions( |
|
|
|
'v|verbose' => \$options{'verbose'}, |
|
|
|
'strict-source' => \$options{'strict source'}, |
|
|
|
'media-handover' => \$options{'media handover'}, |
|
|
|
'TOS=i' => \$options{'TOS'}, |
|
|
|
) 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')) { |
|
|
|
for my $x (split(',', 'from-tag,to-tag,call-id,transport protocol,media address,ICE,address family,TOS')) { |
|
|
|
defined($options{$x}) and $packet{$x} = $options{$x}; |
|
|
|
} |
|
|
|
for my $x (split(',', 'trust address,symmetric,asymmetric,force,strict source,media handover')) { |
|
|
|
|