|
|
|
@ -7,8 +7,8 @@ use IO::Socket::INET;
|
|
|
|
use Getopt::Long;
|
|
|
|
use Getopt::Long;
|
|
|
|
use Config::Tiny;
|
|
|
|
use Config::Tiny;
|
|
|
|
|
|
|
|
|
|
|
|
my $ip;
|
|
|
|
my $ip = 'localhost';
|
|
|
|
my $port;
|
|
|
|
my $port = 9900;
|
|
|
|
my $conffile = '/etc/rtpengine/rtpengine.conf';
|
|
|
|
my $conffile = '/etc/rtpengine/rtpengine.conf';
|
|
|
|
my $listen;
|
|
|
|
my $listen;
|
|
|
|
|
|
|
|
|
|
|
|
@ -45,9 +45,6 @@ if (!$argumentstring || !$optret || $port <= 0 || $port > 65535) {
|
|
|
|
exit 1;
|
|
|
|
exit 1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
$ip //= '127.0.0.1';
|
|
|
|
|
|
|
|
$port //= 9900;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# create a connecting socket
|
|
|
|
# create a connecting socket
|
|
|
|
my $socket = new IO::Socket::INET (
|
|
|
|
my $socket = new IO::Socket::INET (
|
|
|
|
PeerHost => $ip,
|
|
|
|
PeerHost => $ip,
|
|
|
|
|