home *** CD-ROM | disk | FTP | other *** search
/ ftp.f-secure.com / 2014.06.ftp.f-secure.com.tar / ftp.f-secure.com / support / hotfix / fsis / IS-SpamControl.fsfix / iufssc / lib / FS / Logger.pm < prev    next >
Text File  |  2006-11-29  |  821b  |  46 lines
  1. # 
  2. # Copyright (C) 2006 F-Secure Corporation
  3. #
  4. # $Revision: ? $
  5.  
  6. package FS::Logger;
  7.  
  8. use strict;
  9. use warnings;
  10.  
  11. use vars qw(@ISA @EXPORT @EXPORT_OK);
  12.  
  13. require Exporter;
  14.  
  15. @ISA = qw(Exporter);
  16. @EXPORT = qw(debug info warning error);
  17.  
  18. my $logger = undef;
  19.  
  20. sub set_logger {
  21.     my ($_logger) = @_;
  22.     $logger = $_logger;    
  23. }
  24.  
  25. sub debug   { log_message("dbg",   @_); }
  26. sub info    { log_message("info",  @_); }
  27. sub warning { log_message("warn",  @_); }
  28. sub error   { log_message("error", @_); }
  29.  
  30. sub get_facility {
  31.     my $pkg = caller(2);
  32.     my $facility = eval "\$${pkg}::FS_Logger_facility" || "unknown";
  33.     return $facility;
  34. }
  35.  
  36. sub log_message {
  37.     return unless $logger;
  38.  
  39.     my $facility = get_facility();
  40.     my $level = shift;
  41.     my $msg = shift;
  42.     &$logger($level, "$facility: $msg", @_);
  43. }
  44.  
  45. 1;
  46.