sub PRINT {
my $self = shift;
$Log::Log4perl::caller_depth++;
$Log::Log4perl::caller_depth += 3;
my $logger =
Koha::Logger->get( { interface => 'sip', category => 'STDERR' } );
warn @_;
$logger->warn(@_);
$Log::Log4perl::caller_depth--;
$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;
<server-params
min_servers='1'
min_spare_servers='0'
log_file='/var/log/koha/__KOHASITE__/sip.log'
syslog_ident='koha_sip'
syslog_facility='local6'
/>
<listeners>
max_servers='1'
log_file='Sys::Syslog'
setsid="1"
user='koha'
group='koha'
-