From 8fe267260de7813c541e2b77404d2c9e0337c8cd Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Fri, 18 Dec 2015 13:18:12 +0000
Subject: [PATCH] Bug 15253 - Log stderr via Koha::Logger as well
Content-Type: text/plain; charset=utf-8

By logging stderr to the log file, we can much more easily find
and debug errors in the SIP server. Stderr has its own category
STDERR so these messages can easily be filtered out of the log
if need be.

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
---
 C4/SIP/SIPServer.pm |  2 ++
 C4/SIP/Trapper.pm   | 21 +++++++++++++++++++++
 2 files changed, 23 insertions(+)
 create mode 100644 C4/SIP/Trapper.pm

diff --git a/C4/SIP/SIPServer.pm b/C4/SIP/SIPServer.pm
index c565c44..a96264a 100755
--- a/C4/SIP/SIPServer.pm
+++ b/C4/SIP/SIPServer.pm
@@ -18,6 +18,8 @@ use C4::SIP::Sip::Checksum qw(checksum verify_cksum);
 use C4::SIP::Sip::MsgType qw( handle login_core );
 
 use Koha::Logger;
+use C4::SIP::Trapper;
+tie *STDERR, "C4::SIP::Trapper";
 
 use base qw(Net::Server::PreFork);
 
diff --git a/C4/SIP/Trapper.pm b/C4/SIP/Trapper.pm
new file mode 100644
index 0000000..0a2b872
--- /dev/null
+++ b/C4/SIP/Trapper.pm
@@ -0,0 +1,21 @@
+package C4::SIP::Trapper;
+
+use Modern::Perl;
+
+use Koha::Logger;
+
+sub TIEHANDLE {
+    my $class = shift;
+    bless [], $class;
+}
+
+sub PRINT {
+    my $self = shift;
+    $Log::Log4perl::caller_depth++;
+    my $logger = Koha::Logger->get({ interface => 'sip', category => 'STDERR' });
+    warn @_;
+    $logger->error(@_);
+    $Log::Log4perl::caller_depth--;
+}
+
+1;
-- 
2.1.4