|
|
@ -52,6 +52,7 @@ GetOptions(
|
|
|
|
'codec-mask=s@' => \$options{'codec-mask'},
|
|
|
|
'codec-mask=s@' => \$options{'codec-mask'},
|
|
|
|
'ptime=i' => \$options{'ptime'},
|
|
|
|
'ptime=i' => \$options{'ptime'},
|
|
|
|
'flags=s@' => \$options{'flags'},
|
|
|
|
'flags=s@' => \$options{'flags'},
|
|
|
|
|
|
|
|
'codec-options-flat' => \$options{'codec options flag'},
|
|
|
|
) or die;
|
|
|
|
) or die;
|
|
|
|
|
|
|
|
|
|
|
|
my $cmd = shift(@ARGV) or die;
|
|
|
|
my $cmd = shift(@ARGV) or die;
|
|
|
@ -80,8 +81,13 @@ if (defined($options{direction})) {
|
|
|
|
}
|
|
|
|
}
|
|
|
|
for my $x (qw(strip offer transcode mask)) {
|
|
|
|
for my $x (qw(strip offer transcode mask)) {
|
|
|
|
if ($options{'codec-'.$x} && @{$options{'codec-'.$x}}) {
|
|
|
|
if ($options{'codec-'.$x} && @{$options{'codec-'.$x}}) {
|
|
|
|
|
|
|
|
if (!$options{'codec options flag'}) {
|
|
|
|
$packet{codec}{$x} = $options{'codec-'.$x};
|
|
|
|
$packet{codec}{$x} = $options{'codec-'.$x};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
else {
|
|
|
|
|
|
|
|
push(@{$packet{flags}}, map {'codec-'.$x.'-'.$_} @{$options{'codec-'.$x}});
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if ($options{'flags'} && @{$options{'flags'}}) {
|
|
|
|
if ($options{'flags'} && @{$options{'flags'}}) {
|
|
|
|
push(@{$packet{flags}}, @{$options{'flags'}});
|
|
|
|
push(@{$packet{flags}}, @{$options{'flags'}});
|
|
|
|