C4/SIP/Logger.pm

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