pridan modul SOAP::Fault, uprava log zprav, nastavena defaultni hodnota serveroveho limitu

src/warden-server/lib/Warden.pm

@@ -19,6 +19,7 @@ use Net::CIDR::Lite;
 use DateTime;
 use MIME::Base64;
 use Crypt::X509;
+use SOAP::Lite;
 
 our $VERSION = "2.1";
 
@@ -33,7 +34,7 @@ our $DB_NAME	= undef;
 our $DB_USER	= undef;
 our $DB_PASS	= undef;
 our $DB_HOST	= undef;
-our $MAX_EVENTS_LIMIT	= undef; # server events limit
+our $MAX_EVENTS_LIMIT	= 1000000; # default value
 our %VALID_STRINGS	= undef;
 
 # load set variables by user
@@ -362,11 +363,11 @@ sub getNewEvents
     if (scalar @events != 0) {
       if (scalar @ids == 1) {
         sendMsg("info",
-	       "Sent 1 event [#$ids[0]] to '$ip' (CN(AN): $alt_names) with client limit '$max_rcv_events_limit' events",
+	       "Sent 1 event [#$ids[0]] to '$ip' [CN(AN): $alt_names], client_limit: '$max_rcv_events_limit', requested_type: '$requested_type'",
 	        undef);
       } else {
         sendMsg("info",
-	       "Sent " . scalar @ids . " events [#$ids[0] - #$ids[-1]] to '$ip' (CN(AN): $alt_names) with client limit '$max_rcv_events_limit' events",
+	       "Sent " . scalar @ids . " events [#$ids[0] - #$ids[-1]] to '$ip' [CN(AN): $alt_names], client_limit: '$max_rcv_events_limit', requested_type: '$requested_type'",
 	        undef);
       }
     }