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 =head2 get_SIPServer
  10
  11     my $sipServer = C4::SIP::SIPServer::get_SIPServer()
  12
  13 @RETURNS C4::SIP::SIPServer, the current server's child-process used to handle this SIP-transaction
  14
  15 =cut
  16
  17 sub get_SIPServer {
  18     return $activeSIPServer;
  19 }
  20
  21 sub _set_SIPServer {
  22     my ($sipServer) = @_;
  23     $activeSIPServer = $sipServer;
  24     return $activeSIPServer;
  25 }
  26
  27 =head2 get_logger
  28
  29     my $logger = C4::SIP::SIPServer::get_logger()
  30
  31 @RETURNS Koha::Logger, the logger used to log this SIP-transaction
  32
  33 =cut
  34
  35 sub get_logger {
  36     return $activeLogger;
  37 }
  38
  39 sub set_logger {
  40     my ($logger) = @_;
  41     $activeLogger = $logger;
  42     return $activeLogger;
  43 }
  44
  45 1;
  46
  47 __END__