|
|
|
@ -29,6 +29,7 @@ GetOptions( |
|
|
|
'replace-origin' => \$options{'replace-origin'}, |
|
|
|
'replace-session-connection' => \$options{'replace-session connection'}, |
|
|
|
'replace-sdp-version' => \$options{'replace-sdp version'}, |
|
|
|
'replace-username' => \$options{'replace-username'}, |
|
|
|
'client-address=s' => \$options{'client-address'}, |
|
|
|
'sdp=s' => \$options{'sdp'}, |
|
|
|
'sdp-file=s' => \$options{'sdp-file'}, |
|
|
|
@ -101,7 +102,7 @@ for my $x (split(/,/, 'TOS,delete-delay')) { |
|
|
|
for my $x (split(/,/, 'trust address,symmetric,asymmetric,unidirectional,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,symmetric codecs,asymmetric codecs,inject DTMF,generate RTCP,single codec,reorder codecs')) { |
|
|
|
defined($options{$x}) and push(@{$packet{flags}}, $x); |
|
|
|
} |
|
|
|
for my $x (split(/,/, 'origin,session connection,sdp version')) { |
|
|
|
for my $x (split(/,/, 'origin,session connection,sdp version,username')) { |
|
|
|
defined($options{'replace-' . $x}) and push(@{$packet{replace}}, $x); |
|
|
|
} |
|
|
|
for my $x (split(/,/, 'rtcp-mux,SDES,supports,T.38,OSRTP')) { |
|
|
|
|