From 74c226dfd7efbf8cd447a0358b87aab952397ddf Mon Sep 17 00:00:00 2001
From: TC <tc.arise@giboulees.net>
Date: Sat, 8 Feb 2014 22:48:28 +0000
Subject: [PATCH] Un peu moins de debug, sinon les logs se remplissent trop
vite
---
Core/EventHandler.pm | 16 ++++++----------
1 file changed, 6 insertions(+), 10 deletions(-)
diff --git a/Core/EventHandler.pm b/Core/EventHandler.pm
index e434c4e..bb866f1 100644
--- a/Core/EventHandler.pm
+++ b/Core/EventHandler.pm
@@ -157,6 +157,8 @@ sub dispatch_event
{
my ($conn, $event) = @_;
+ $::logger->debug("Dispatching event $event...");
+
# Events enregistrés dans la partie 'before'
&do_events($conn, $event, 'before');
@@ -177,6 +179,8 @@ sub dispatch_event
# Events enregistrés dans la partie 'after'
&do_events($conn, $event, 'after');
+
+ $::logger->debug("$event dispatched.");
} # Fin dispatch_event
@@ -196,13 +200,7 @@ sub do_events
if(defined($changed_events{$event->{'type'}}))
{
- $::logger->debug("Event '".$event->{'type'}."', processing '$when'...");
- unless(@{$changed_events{$event->{'type'}}{lc $when}})
- {
- $::logger->debug(" No registered event, nothing to do.");
- return;
- }
-
+ return unless(@{$changed_events{$event->{'type'}}{lc $when}});
foreach my $hdls (@{$changed_events{$event->{'type'}}{lc $when}})
{
@@ -238,12 +236,10 @@ sub do_events
if(stop_propagation($event))
{
- $::logger->debug(" ... Stopping propagation of the event");
+ $::logger->debug(" ... Stopping propagation of the event for $when");
last;
}
}
-
- $::logger->debug(" Event '".$event->{'type'}."', '$when', done.");
}
} # Fin do_events
--
GitLab