C4/SIP/Logger.pm

   1 #!/usr/bin/perl
   2 package C4::SIP::Logger;
   3
   4 use Modern::Perl;
   5
   6 use base 'Exporter';
   7 our @EXPORT_OK = qw ( get_logger set_logger );
   8
   9 our $activeSIPServer;
  10 our $activeLogger;
  11
  12 =head1 NAME
  13
  14 C4::SIP::Logger - Module for handling SIP server logging
  15
  16 =head2 get_SIPServer
  17
  18     my $sipServer = C4::SIP::SIPServer::get_SIPServer()
  19
  20     @RETURNS C4::SIP::SIPServer, the current server's child-process used to handle this SIP-transaction
  21
  22 =cut
  23
  24 sub get_SIPServer {
  25     return $activeSIPServer;
  26 }
  27
  28 =head2 _set_SIPServer
  29
  30     my $sipServer = C4::SIP::SIPServer::_set_SIPServer($sipServer)
  31
  32     Sets the passed in SIP server as the active SIP server and returns it as well
  33
  34     @RETURNS C4::SIP::SIPServer, the current server's child-process used to handle this SIP-transaction
  35
  36 =cut
  37
  38 sub _set_SIPServer {
  39     my ($sipServer) = @_;
  40     $activeSIPServer = $sipServer;
  41     return $activeSIPServer;
  42 }
  43
  44 =head2 get_logger
  45
  46     my $logger = C4::SIP::SIPServer::get_logger()
  47
  48 @RETURNS Koha::Logger, the logger used to log this SIP-transaction
  49
  50 =cut
  51
  52 sub get_logger {
  53     return $activeLogger;
  54 }
  55
  56 =head2 set_logger
  57
  58     my $logger = C4::SIP::SIPServer::set_logger($logger)
  59
  60 =cut
  61
  62 sub set_logger {
  63     my ($logger) = @_;
  64     $activeLogger = $logger;
  65     return $activeLogger;
  66 }
  67
  68 1;
  69
  70 __END__