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