|
|
@ -64,6 +64,7 @@ GetOptions( |
|
|
'pad-crypto' => \$options{'pad crypto'}, |
|
|
'pad-crypto' => \$options{'pad crypto'}, |
|
|
'generate-mid' => \$options{'generate mid'}, |
|
|
'generate-mid' => \$options{'generate mid'}, |
|
|
'fragment' => \$options{'fragment'}, |
|
|
'fragment' => \$options{'fragment'}, |
|
|
|
|
|
'original-sendrecv' => \$options{'original sendrecv'}, |
|
|
) or die; |
|
|
) or die; |
|
|
|
|
|
|
|
|
my $cmd = shift(@ARGV) or die; |
|
|
my $cmd = shift(@ARGV) or die; |
|
|
@ -76,7 +77,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,full rtcp attribute,loop protect,record call,always transcode,all,pad crypto,generate mid,fragment')) { |
|
|
|
|
|
|
|
|
for my $x (split(/,/, 'trust address,symmetric,asymmetric,force,strict source,media handover,sip source address,reset,port latching,no rtcp attribute,full rtcp attribute,loop protect,record call,always transcode,all,pad crypto,generate mid,fragment,original sendrecv')) { |
|
|
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')) { |
|
|
|