allow -ip host:port syntax in rtpengine-ctl, and document loglevel cmds

Change-Id: I8004e2bd002ceeee56bb9cc974bbeef533001c0d

utils/rtpengine-ctl

@@ -22,6 +22,9 @@ for (my $argnum=0; $argnum <= $#ARGV; $argnum++) {
 	die "No argument after -ip\n" unless $argnum+1<=$#ARGV;
         $argnum = $argnum+1;
 	$ip = $ARGV[$argnum];
+	if ($ip =~ s/:(\d)$//) {
+		$port = $1;
+	}
     } elsif ($ARGV[$argnum] eq "-port") {
 	die "No argument after -port\n" unless $argnum+1<=$#ARGV;
         $argnum = $argnum+1;
@@ -64,11 +67,12 @@ $socket->close();
 
 sub showusage {
     print "\n";
-    print "    rtpengine-ctl [ -ip <ipaddress> -port <port> ] <command>\n";
+    print "    rtpengine-ctl [ -ip <ipaddress>[:<port>] -port <port> ] <command>\n";
     print "\n";
     print "    Supported commands are:\n";
     print "\n";
-    print "    list [ numsessions | maxsessions | maxopenfiles | sessions [ <callid> | all | own | foreign ] | totals ]\n";
+    print "    list [ numsessions | maxsessions | maxopenfiles\n";
+    print "          | sessions [ <callid> | all | own | foreign ] | totals | loglevel ]\n";
     print "         numsessions           : print the number of sessions\n";
     print "         maxsessions           : print the number of allowed sessions\n";
     print "         maxopenfiles          : print the number of allowed open files\n";
@@ -78,6 +82,7 @@ sub showusage {
     print "         sessions foreign      : print one-liner foreign sessions information\n";
     print "         totals                : print total statistics\n";
     print "         timeout               : print timeout parameters\n";
+    print "         loglevel              : print current log level\n";
     print "\n";
     print "    terminate [ <callid> | all | own | foreign ]\n";
     print "         <callid>              : session is immediately terminated\n";
@@ -85,12 +90,14 @@ sub showusage {
     print "         own                   : terminates own current sessions\n";
     print "         foreign               : terminates foreign current sessions\n";
     print "\n";
-    print "    set [ maxsessions <int> | maxopenfiles <uint> | timeout <uint> | silent_timeout <uint> | final_timeout <uint>]\n";
+    print "    set [ maxsessions <int> | maxopenfiles <uint> | timeout <uint>\n";
+    print "          | silent_timeout <uint> | final_timeout <uint> | loglevel <uint> ]\n";
     print "         maxsessions  <int>    : set the max nr of allowed sessions\n";
     print "         maxopenfiles <uint>   : set the max nr of allowed open files\n";
     print "         timeout <uint>        : set the --timeout parameter \n";
     print "         silenttimeout <uint>  : set the --silent-timeout parameter \n";
     print "         finaltimeout <uint>   : set the --final-timeout parameter \n";
+    print "         loglevel <uint>       : set the log level to new value (1-7)\n";
     print "\n";
     print "    ksadd [ keyspace <uint>]\n";
     print "         keyspace <uint>       : subscribe to 'keyspace' database\n";