|
|
|
|
@ -29,6 +29,7 @@ GetOptions(
|
|
|
|
|
'sdp=s' => \$options{'sdp'},
|
|
|
|
|
'sdp-file=s' => \$options{'sdp-file'},
|
|
|
|
|
'ICE=s' => \$options{'ICE'},
|
|
|
|
|
'DTLS=s' => \$options{'DTLS'},
|
|
|
|
|
'rtcp-mux-offer' => \$options{'rtcp-mux-offer'},
|
|
|
|
|
'rtcp-mux-demux' => \$options{'rtcp-mux-demux'},
|
|
|
|
|
'rtcp-mux-accept' => \$options{'rtcp-mux-accept'},
|
|
|
|
|
@ -46,7 +47,7 @@ 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,TOS')) {
|
|
|
|
|
for my $x (split(',', 'from-tag,to-tag,call-id,transport protocol,media address,ICE,address family,TOS,DTLS')) {
|
|
|
|
|
defined($options{$x}) and $packet{$x} = $options{$x};
|
|
|
|
|
}
|
|
|
|
|
for my $x (split(',', 'trust address,symmetric,asymmetric,force,strict source,media handover')) {
|
|
|
|
|
|