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; |