TT#14008 add missing flag to test script

Change-Id: Ic6cf398a6d3c0bfaf2304116bad0d2844fe90a93
pull/1285/head
Richard Fuchs 4 years ago
parent 5802ff2379
commit 98a42a099d

@ -31,6 +31,7 @@ GetOptions(
'replace-sdp-version' => \$options{'replace-sdp version'},
'replace-username' => \$options{'replace-username'},
'replace-session-name' => \$options{'replace-session-name'},
'replace-zero-address' => \$options{'replace-zero-address'},
'client-address=s' => \$options{'client-address'},
'sdp=s' => \$options{'sdp'},
'sdp-file=s' => \$options{'sdp-file'},
@ -103,7 +104,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,username,session-name')) {
for my $x (split(/,/, 'origin,session connection,sdp version,username,session-name,zero-address')) {
defined($options{'replace-' . $x}) and push(@{$packet{replace}}, $x);
}
for my $x (split(/,/, 'rtcp-mux,SDES,supports,T.38,OSRTP')) {

Loading…
Cancel
Save