|
|
@ -21,6 +21,7 @@ GetOptions( |
|
|
'protocol=s' => \$options{'transport protocol'}, |
|
|
'protocol=s' => \$options{'transport protocol'}, |
|
|
'trust-address' => \$options{'trust address'}, |
|
|
'trust-address' => \$options{'trust address'}, |
|
|
'sip-source-address' => \$options{'sip source address'}, |
|
|
'sip-source-address' => \$options{'sip source address'}, |
|
|
|
|
|
'no-rtcp-attribute' => \$options{'no rtcp attribute'}, |
|
|
'symmetric' => \$options{'symmetric'}, |
|
|
'symmetric' => \$options{'symmetric'}, |
|
|
'asymmetric' => \$options{'asymmetric'}, |
|
|
'asymmetric' => \$options{'asymmetric'}, |
|
|
'replace-origin' => \$options{'replace-origin'}, |
|
|
'replace-origin' => \$options{'replace-origin'}, |
|
|
@ -55,7 +56,7 @@ for my $x (split(/,/, 'from-tag,to-tag,call-id,transport protocol,media address, |
|
|
for my $x (split(/,/, 'TOS,delete-delay')) { |
|
|
for my $x (split(/,/, 'TOS,delete-delay')) { |
|
|
defined($options{$x}) and $packet{$x} = $options{$x}; |
|
|
defined($options{$x}) and $packet{$x} = $options{$x}; |
|
|
} |
|
|
} |
|
|
for my $x (split(/,/, 'trust address,symmetric,asymmetric,force,strict source,media handover,sip source address,reset,port latching')) { |
|
|
|
|
|
|
|
|
for my $x (split(/,/, 'trust address,symmetric,asymmetric,force,strict source,media handover,sip source address,reset,port latching,no rtcp attribute')) { |
|
|
defined($options{$x}) and push(@{$packet{flags}}, $x); |
|
|
defined($options{$x}) and push(@{$packet{flags}}, $x); |
|
|
} |
|
|
} |
|
|
for my $x (split(/,/, 'origin,session connection')) { |
|
|
for my $x (split(/,/, 'origin,session connection')) { |
|
|
|