d659526b5a
This commit is generated using: % perl misc/devel/tidy.pl *within* ktd, to get the same version of perltidy than what will be used by our CI (currently v20230309). Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
59 lines
941 B
Perl
59 lines
941 B
Perl
package C4::SIP::Trapper;
|
|
|
|
use Modern::Perl;
|
|
|
|
use Koha::Logger;
|
|
|
|
=head1 NAME
|
|
|
|
C4::SIP::Trapper - Module for capturing warnings for the SIP logger
|
|
|
|
=head2 TIEHANDLE
|
|
|
|
Ties the given class to this module.
|
|
|
|
=cut
|
|
|
|
sub TIEHANDLE {
|
|
my $class = shift;
|
|
bless [], $class;
|
|
}
|
|
|
|
=head2 PRINT
|
|
|
|
Captures warnings and directs them to Koha::Logger as well as STDERR
|
|
|
|
=cut
|
|
|
|
sub PRINT {
|
|
my $self = shift;
|
|
$Log::Log4perl::caller_depth += 3;
|
|
my $logger = Koha::Logger->get( { interface => 'sip', category => 'STDERR' } );
|
|
warn @_;
|
|
$logger->warn(@_);
|
|
$Log::Log4perl::caller_depth -= 3;
|
|
}
|
|
|
|
=head2 OPEN
|
|
|
|
We need OPEN in case Net::Server tries to redirect STDERR. This will
|
|
be tried when param log_file or setsid is passed.
|
|
|
|
=cut
|
|
|
|
sub OPEN {
|
|
return 1;
|
|
}
|
|
|
|
=head2 BINMODE
|
|
|
|
Suppress errors from Log::Log4perl::Appender::Screen
|
|
|
|
=cut
|
|
|
|
sub BINMODE {
|
|
my ( $self, $mode ) = @_;
|
|
binmode( STDOUT, $mode );
|
|
}
|
|
|
|
1;
|