From 7ebd54887afb7c0348cb937e2b142e39f57de825 Mon Sep 17 00:00:00 2001 From: erickson Date: Wed, 6 Sep 2006 04:20:27 +0000 Subject: [PATCH] added .1 second sleep to inbound processer when it goes nuts on reading empty socket data.. still not sure what the cause is, but this will prevent the log storm git-svn-id: svn://svn.open-ils.org/ILS/trunk@5973 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../src/perlmods/OpenSRF/Transport/SlimJabber/Inbound.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/OpenSRF/src/perlmods/OpenSRF/Transport/SlimJabber/Inbound.pm b/OpenSRF/src/perlmods/OpenSRF/Transport/SlimJabber/Inbound.pm index 81240bc609..32b7e7e663 100644 --- a/OpenSRF/src/perlmods/OpenSRF/Transport/SlimJabber/Inbound.pm +++ b/OpenSRF/src/perlmods/OpenSRF/Transport/SlimJabber/Inbound.pm @@ -5,6 +5,7 @@ use OpenSRF::EX qw(:try); use OpenSRF::Utils::Logger qw(:level); use OpenSRF::Utils::SettingsClient; use OpenSRF::Utils::Config; +use Time::HiRes qw/usleep/; my $logger = "OpenSRF::Utils::Logger"; @@ -151,8 +152,11 @@ sub listen { $logger->debug("Inbound listener received ".length($o)." bytes of data"); - if(!$o){$logger->error( - "Inbound received no data from the Jabber socket in process()")} + if(!$o){ + $logger->error( + "Inbound received no data from the Jabber socket in process()"); + usleep(100000); # otherwise we loop and pound syslog logger with errors + } } catch OpenSRF::EX::JabberDisconnected with { -- 2.43.2