|
|
|
@ -109,6 +109,17 @@ my @string_arr_opts = qw(
|
|
|
|
|
frequencies
|
|
|
|
|
);
|
|
|
|
|
|
|
|
|
|
my @codec_opts = qw(
|
|
|
|
|
strip
|
|
|
|
|
offer
|
|
|
|
|
transcode
|
|
|
|
|
mask
|
|
|
|
|
set
|
|
|
|
|
consume
|
|
|
|
|
accept
|
|
|
|
|
except
|
|
|
|
|
);
|
|
|
|
|
|
|
|
|
|
my %getopt = (
|
|
|
|
|
'json' => \$options{'json'},
|
|
|
|
|
'proxy-address=s' => \$options{'proxy-address'},
|
|
|
|
@ -124,14 +135,6 @@ my %getopt = (
|
|
|
|
|
'sdp-file=s' => \$options{'sdp-file'},
|
|
|
|
|
'direction=s' => \$options{'direction'},
|
|
|
|
|
'v|verbose' => \$options{'verbose'},
|
|
|
|
|
'codec-strip=s@' => \$options{'codec-strip'},
|
|
|
|
|
'codec-offer=s@' => \$options{'codec-offer'},
|
|
|
|
|
'codec-transcode=s@' => \$options{'codec-transcode'},
|
|
|
|
|
'codec-mask=s@' => \$options{'codec-mask'},
|
|
|
|
|
'codec-consume=s@' => \$options{'codec-consume'},
|
|
|
|
|
'codec-accept=s@' => \$options{'codec-accept'},
|
|
|
|
|
'codec-set=s@' => \$options{'codec-set'},
|
|
|
|
|
'codec-except=s@' => \$options{'codec-except'},
|
|
|
|
|
'codec-options-flat' => \$options{'codec options flat'},
|
|
|
|
|
'blob-file=s' => \$options{'blob-file'},
|
|
|
|
|
);
|
|
|
|
@ -148,6 +151,9 @@ for my $flag (@int_opts) {
|
|
|
|
|
for my $flag (@string_arr_opts) {
|
|
|
|
|
$getopt{"$flag=s@"} = \$options{$flag};
|
|
|
|
|
}
|
|
|
|
|
for my $flag (@codec_opts) {
|
|
|
|
|
$getopt{"codec-$flag=s@"} = \$options{"codec-$flag"};
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
GetOptions(%getopt) or die;
|
|
|
|
|
|
|
|
|
@ -183,7 +189,7 @@ if (defined($options{direction})) {
|
|
|
|
|
$options{direction} =~ /(.*),(.*)/ or die;
|
|
|
|
|
$packet{direction} = [$1,$2];
|
|
|
|
|
}
|
|
|
|
|
for my $x (qw(strip offer transcode mask set consume accept except)) {
|
|
|
|
|
for my $x (@codec_opts) {
|
|
|
|
|
if ($options{'codec-'.$x} && @{$options{'codec-'.$x}}) {
|
|
|
|
|
if (!$options{'codec options flat'}) {
|
|
|
|
|
$packet{codec}{$x} = $options{'codec-'.$x};
|
|
|
|
|