|
|
|
@ -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) { |
|
|
|
|