From 06ac9863a72e53741c8872a9312733ac25d7c050 Mon Sep 17 00:00:00 2001
From: Tomas Plesnik <plesnik@ics.muni.cz>
Date: Tue, 25 Sep 2012 16:14:40 +0200
Subject: [PATCH] pridan modul SOAP::Fault, uprava log zprav, nastavena
 defaultni hodnota serveroveho limitu

---
 src/warden-server/lib/Warden.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/warden-server/lib/Warden.pm b/src/warden-server/lib/Warden.pm
index e0a1c7c..ce154d8 100755
--- a/src/warden-server/lib/Warden.pm
+++ b/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);
       }
     }
-- 
GitLab