|
|
@ -43,6 +43,7 @@ GetOptions( |
|
|
'delete-delay=i' => \$options{'delete-delay'}, |
|
|
'delete-delay=i' => \$options{'delete-delay'}, |
|
|
'reset' => \$options{'reset'}, |
|
|
'reset' => \$options{'reset'}, |
|
|
'port-latching' => \$options{'port latching'}, |
|
|
'port-latching' => \$options{'port latching'}, |
|
|
|
|
|
'loop-protect' => \$options{'loop protect'}, |
|
|
'media-address=s' => \$options{'media address'}, |
|
|
'media-address=s' => \$options{'media address'}, |
|
|
'codec-strip=s@' => \$options{'codec-strip'}, |
|
|
'codec-strip=s@' => \$options{'codec-strip'}, |
|
|
'codec-offer=s@' => \$options{'codec-offer'}, |
|
|
'codec-offer=s@' => \$options{'codec-offer'}, |
|
|
@ -59,7 +60,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,no rtcp attribute')) { |
|
|
|
|
|
|
|
|
for my $x (split(/,/, 'trust address,symmetric,asymmetric,force,strict source,media handover,sip source address,reset,port latching,no rtcp attribute,loop protect')) { |
|
|
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')) { |
|
|
|