TT#14008 rtpengine-ctl fix to allow override of default values

Change-Id: Ia5e5aafbfdfa28652c153852a664b3212544f74f

utils/rtpengine-ctl

@@ -7,8 +7,8 @@ use IO::Socket::INET;
 use Getopt::Long;
 use Config::Tiny;
 
-my $ip = 'localhost';
-my $port = 9900;
+my $ip;
+my $port;
 my $conffile = '/etc/rtpengine/rtpengine.conf';
 my $listen;
 
@@ -33,13 +33,16 @@ if (-f $conffile) {
     }
 }
 
-if ($ip && $ip =~ s/:(\d+)$//) {
+if ($ip && $ip =~ s/:(\d+)$// && !$port) {
     $port = $1;
 }
 
 my $argumentstring = "@ARGV";
 $argumentstring = trim($argumentstring);
 
+$ip //= '127.0.0.1';
+$port //= 9900;
+
 if (!$argumentstring || !$optret || $port <= 0 || $port > 65535) {
     showusage();
     exit 1;