|
|
|
@ -131,6 +131,16 @@ my @replace_opts = qw(
|
|
|
|
|
force-increment-sdp-version
|
|
|
|
|
);
|
|
|
|
|
|
|
|
|
|
my @sdp_attr_sections = qw(
|
|
|
|
|
global
|
|
|
|
|
audio
|
|
|
|
|
video
|
|
|
|
|
);
|
|
|
|
|
my @sdp_attr_commands = qw(
|
|
|
|
|
add
|
|
|
|
|
remove
|
|
|
|
|
);
|
|
|
|
|
|
|
|
|
|
my %getopt = (
|
|
|
|
|
'json' => \$options{'json'},
|
|
|
|
|
'proxy-address=s' => \$options{'proxy-address'},
|
|
|
|
@ -161,6 +171,11 @@ for my $flag (@codec_opts) {
|
|
|
|
|
for my $flag (@replace_opts) {
|
|
|
|
|
$getopt{"replace-$flag"} = \$options{"replace-$flag"};
|
|
|
|
|
}
|
|
|
|
|
for my $sect (@sdp_attr_sections) {
|
|
|
|
|
for my $cmd (@sdp_attr_commands) {
|
|
|
|
|
$getopt{"sdp-attr-$sect-$cmd=s@"} = \$options{"sdp-attr-$sect-$cmd"};
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
GetOptions(%getopt) or die;
|
|
|
|
|
|
|
|
|
@ -206,6 +221,13 @@ for my $x (@codec_opts) {
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
for my $sect (@sdp_attr_sections) {
|
|
|
|
|
for my $cmd (@sdp_attr_commands) {
|
|
|
|
|
if ($options{"sdp-attr-$sect-$cmd"} && @{$options{"sdp-attr-$sect-$cmd"}}) {
|
|
|
|
|
$packet{'sdp-attr'}{$sect}{$cmd} = $options{"sdp-attr-$sect-$cmd"};
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub slurp_file {
|
|
|
|
|
local $/ = undef;
|
|
|
|
|