vracena kontrola na rootu kvuli zjistovani udaju z OS pomoci nastroju pro roota

src/warden-server/bin/getStatus.pl

@@ -52,6 +52,12 @@ if ($help) {
   usage;
 }
 
+# superuser controle
+my $UID = $<;
+if ($UID != 0) {
+  WardenCommon::errMsg("You must be root for running this script!");
+}
+
 # connect to DB
 our $DBH = DBI->connect("DBI:mysql:database=$WardenCommon::DB_NAME;host=$WardenCommon::DB_HOST", $WardenCommon::DB_USER, $WardenCommon::DB_PASS, {RaiseError => 1, mysql_auto_reconnect => 1})
            || die "Could not connect to database: $DBI::errstr";