zruseno zjistovani portu na kterem warden server bezi, kvuli nepresnostem =>...

zruseno zjistovani portu na kterem warden server bezi, kvuli nepresnostem => odstraneni kontroly superuzivatele

src/warden-server/bin/getStatus.pl

@@ -75,12 +75,6 @@ if ($script_version) {
   version;
 }
 
-# superuser controle
-my $UID = $<;
-if ($UID != 0) {
-  WardenCommon::errMsg("You must be root for running this script!");
-}
-
 # connect to DB
 my $dbh = WardenCommon::connectDB($WardenCommon::DB_NAME, $WardenCommon::DB_HOST, $WardenCommon::DB_USER, $WardenCommon::DB_PASS);
 
@@ -90,7 +84,6 @@ my $package_version 	= WardenCommon::trim(`cat /opt/warden-server/etc/package_ve
 my $version 		= substr($package_version, 14);
 my $hostname 		= WardenCommon::trim(`hostname -f`);
 my $ip_address 		= WardenCommon::trim(`hostname -i`);
-my $port		= WardenCommon::trim(`netstat -pln | grep apache | cut -f 4 -d ":"`);
 my ($syslog, $syslog_verbose);
 if ($WardenCommon::SYSLOG == 1) {
   $syslog = "enabled";
@@ -216,7 +209,6 @@ print "========================\n";
 print "SERVER_VERSION:\t\t$version\n";
 print "HOSTNAME:\t\t$hostname\n";
 print "IP_ADDRESS:\t\t$ip_address\n";
-print "PORT:\t\t\t$port\n";
 print "BASEDIR:\t\t$WardenCommon::BASEDIR\n";
 print "DB_NAME:\t\t$WardenCommon::DB_NAME\n";
 print "DB_USER:\t\t$WardenCommon::DB_USER\n";