View | Details | Raw Unified | Return to bug 15253
Collapse All | Expand All

(-)a/C4/SIP/SIPServer.pm (+2 lines)
Lines 18-23 use C4::SIP::Sip::Checksum qw(checksum verify_cksum); Link Here
18
use C4::SIP::Sip::MsgType qw( handle login_core );
18
use C4::SIP::Sip::MsgType qw( handle login_core );
19
19
20
use Koha::Logger;
20
use Koha::Logger;
21
use C4::SIP::Trapper;
22
tie *STDERR, "C4::SIP::Trapper";
21
23
22
use base qw(Net::Server::PreFork);
24
use base qw(Net::Server::PreFork);
23
25
(-)a/C4/SIP/Trapper.pm (-1 / +21 lines)
Line 0 Link Here
0
- 
1
package C4::SIP::Trapper;
2
3
use Modern::Perl;
4
5
use Koha::Logger;
6
7
sub TIEHANDLE {
8
    my $class = shift;
9
    bless [], $class;
10
}
11
12
sub PRINT {
13
    my $self = shift;
14
    $Log::Log4perl::caller_depth++;
15
    my $logger = Koha::Logger->get({ interface => 'sip', category => 'STDERR' });
16
    warn @_;
17
    $logger->error(@_);
18
    $Log::Log4perl::caller_depth--;
19
}
20
21
1;

Return to bug 15253