C4/SIP/Logger.pm

   1 #!/usr/bin/perl
   2 package C4::SIP::Logger;
   3
   4 use Modern::Perl;
   5
   6 our $activeSIPServer;
   7 our $activeLogger;
   8
   9 =head1 NAME
  10
  11 C4::SIP::Logger - Module for handling SIP server logging
  12
  13 =head2 get_SIPServer
  14
  15     my $sipServer = C4::SIP::SIPServer::get_SIPServer()
  16
  17     @RETURNS C4::SIP::SIPServer, the current server's child-process used to handle this SIP-transaction
  18
  19 =cut
  20
  21 sub get_SIPServer {
  22     return $activeSIPServer;
  23 }
  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
  35 sub _set_SIPServer {
  36     my ($sipServer) = @_;
  37     $activeSIPServer = $sipServer;
  38     return $activeSIPServer;
  39 }
  40
  41 =head2 get_logger
  42
  43     my $logger = C4::SIP::SIPServer::get_logger()
  44
  45 @RETURNS Koha::Logger, the logger used to log this SIP-transaction
  46
  47 =cut
  48
  49 sub get_logger {
  50     return $activeLogger;
  51 }
  52
  53 =head2 set_logger
  54
  55     my $logger = C4::SIP::SIPServer::set_logger($logger)
  56
  57 =cut
  58
  59 sub set_logger {
  60     my ($logger) = @_;
  61     $activeLogger = $logger;
  62     return $activeLogger;
  63 }
  64
  65 1;
  66
  67 __END__