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

(-)a/C4/SIP/Logger.pm (-1 / +21 lines)
Lines 6-16 use Modern::Perl; Link Here
6
our $activeSIPServer;
6
our $activeSIPServer;
7
our $activeLogger;
7
our $activeLogger;
8
8
9
=head1 NAME
10
11
C4::SIP::Logger - Module for handling SIP server logging
12
9
=head2 get_SIPServer
13
=head2 get_SIPServer
10
14
11
    my $sipServer = C4::SIP::SIPServer::get_SIPServer()
15
    my $sipServer = C4::SIP::SIPServer::get_SIPServer()
12
16
13
@RETURNS C4::SIP::SIPServer, the current server's child-process used to handle this SIP-transaction
17
    @RETURNS C4::SIP::SIPServer, the current server's child-process used to handle this SIP-transaction
14
18
15
=cut
19
=cut
16
20
Lines 18-23 sub get_SIPServer { Link Here
18
    return $activeSIPServer;
22
    return $activeSIPServer;
19
}
23
}
20
24
25
=head2 _set_SIPServer
26
27
    my $sipServer = C4::SIP::SIPServer::_set_SIPServer($sipServer)
28
29
    Sets the passed in SIP server as the active SIP server and returns it as well
30
31
    @RETURNS C4::SIP::SIPServer, the current server's child-process used to handle this SIP-transaction
32
33
=cut
34
21
sub _set_SIPServer {
35
sub _set_SIPServer {
22
    my ($sipServer) = @_;
36
    my ($sipServer) = @_;
23
    $activeSIPServer = $sipServer;
37
    $activeSIPServer = $sipServer;
Lines 36-41 sub get_logger { Link Here
36
    return $activeLogger;
50
    return $activeLogger;
37
}
51
}
38
52
53
=head2 set_logger
54
55
    my $logger = C4::SIP::SIPServer::set_logger($logger)
56
57
=cut
58
39
sub set_logger {
59
sub set_logger {
40
    my ($logger) = @_;
60
    my ($logger) = @_;
41
    $activeLogger = $logger;
61
    $activeLogger = $logger;
(-)a/C4/SIP/Trapper.pm (-1 / +16 lines)
Lines 4-14 use Modern::Perl; Link Here
4
4
5
use Koha::Logger;
5
use Koha::Logger;
6
6
7
=head1 NAME
8
9
C4::SIP::Trapper - Module for capturing warnings for the SIP logger
10
11
=head2 TIEHANDLE
12
13
    Ties the given class to this module.
14
15
=cut
16
7
sub TIEHANDLE {
17
sub TIEHANDLE {
8
    my $class = shift;
18
    my $class = shift;
9
    bless [], $class;
19
    bless [], $class;
10
}
20
}
11
21
22
=head2 PRINT
23
24
    Captures warnings and directs them to Koha::Logger as well as STDERR
25
26
=cut
27
12
sub PRINT {
28
sub PRINT {
13
    my $self = shift;
29
    my $self = shift;
14
    $Log::Log4perl::caller_depth++;
30
    $Log::Log4perl::caller_depth++;
15
- 

Return to bug 15253