MT#56469 refactor ng-client integer options

Change-Id: I1502711617e2148dee68a26afc1b7f9d42bf9c71
pull/1611/head
Richard Fuchs 2 years ago
parent 159e31317e
commit 6df015ecb6

@ -85,6 +85,18 @@ my @string_opts = qw(
sdp
);
my @int_opts = qw(
TOS
delete-delay
delay-buffer
volume
trigger-end-time
trigger-end-digits
DTMF-delay
ptime
db-id
);
my %getopt = (
'json' => \$options{'json'},
'proxy-address=s' => \$options{'proxy-address'},
@ -102,8 +114,6 @@ my %getopt = (
'rtcp-mux=s@' => \$options{'rtcp-mux'},
'direction=s' => \$options{'direction'},
'v|verbose' => \$options{'verbose'},
'TOS=i' => \$options{'TOS'},
'delete-delay=i' => \$options{'delete-delay'},
'codec-strip=s@' => \$options{'codec-strip'},
'codec-offer=s@' => \$options{'codec-offer'},
'codec-transcode=s@' => \$options{'codec-transcode'},
@ -112,23 +122,16 @@ my %getopt = (
'codec-accept=s@' => \$options{'codec-accept'},
'codec-set=s@' => \$options{'codec-set'},
'codec-except=s@' => \$options{'codec-except'},
'ptime=i' => \$options{'ptime'},
'flags=s@' => \$options{'flags'},
'codec-options-flat' => \$options{'codec options flat'},
'flags=s@' => \$options{'flags'},
'supports=s@' => \$options{'supports'},
'blob-file=s' => \$options{'blob-file'},
'db-id=i' => \$options{'db-id'},
'T38=s@' => \$options{'T.38'},
'OSRTP=s@' => \$options{'OSRTP'},
'received-from=s@' => \$options{'received-from'},
'from-tags=s@' => \$options{'from-tags'},
'delay-buffer=i' => \$options{'delay-buffer'},
'frequencies=i@' => \$options{'frequencies'},
'volume=i' => \$options{'volume'},
'trigger-end-digits=i' => \$options{'trigger-end-digits'},
'trigger-end-time=i' => \$options{'trigger-end-time'},
'DTMF-delay=i' => \$options{'DTMF-delay'},
);
for my $flag (@flags) {
@ -137,6 +140,9 @@ for my $flag (@flags) {
for my $flag (@string_opts) {
$getopt{"$flag=s"} = \$options{$flag};
}
for my $flag (@int_opts) {
$getopt{"$flag=i"} = \$options{$flag};
}
GetOptions(%getopt) or die;
@ -154,7 +160,7 @@ for my $x (@string_opts) {
}
}
}
for my $x (split(/,/, 'TOS,delete-delay,delay-buffer,volume,trigger-end-time,trigger-end-digits,DTMF-delay,ptime,db-id')) {
for my $x (@int_opts) {
defined($options{$x}) and $packet{$x} = $options{$x};
}
for my $x (@flags) {

Loading…
Cancel
Save