pridana podminka aby se nestahovali testovaci udalosti

src/warden-server/bin/warden-server.pl

@@ -48,7 +48,7 @@ use Data::Dumper;
 use Net::CIDR::Lite;
 use DateTime;
 
-our $VERSION = "1.0.0";
+our $VERSION = "1.0";
 
 ################################################################################
 #			CONFIG FILE VARIABLES
@@ -314,11 +314,11 @@ sub getNewEvents
 
     # check if client want your own events or not
     if ($receive_own_events eq 't') {
-      $sth = $DBH->prepare("SELECT * FROM events WHERE id > $last_id_db AND type = $requested_type_db AND valid = 't' ORDER BY id ASC;");
+      $sth = $DBH->prepare("SELECT * FROM events WHERE type != 'test' AND id > $last_id_db AND type = $requested_type_db AND valid = 't' ORDER BY id ASC;");
     } else {
       my ($domain) = $CN =~ /([^\.]+\.[^\.]+)$/;
       my $domain_db = $DBH->quote("%$domain");
-      $sth = $DBH->prepare("SELECT * FROM events WHERE id > $last_id_db AND type = $requested_type_db AND valid = 't' AND hostname NOT LIKE $domain_db ORDER BY id ASC;");
+      $sth = $DBH->prepare("SELECT * FROM events WHERE type != 'test' AND id > $last_id_db AND type = $requested_type_db AND valid = 't' AND hostname NOT LIKE $domain_db ORDER BY id ASC;");
     }
     if ( !defined $sth ) { die("Cannot prepare statement in getNewEvents: $DBI::errstr\n") }
     $sth->execute;