home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / SyslogAppender.pm < prev    next >
Encoding:
Perl POD Document  |  2003-01-14  |  1.7 KB  |  76 lines
  1. package Log::Log4perl::JavaMap::SyslogAppender;
  2.  
  3. use Carp;
  4. use strict;
  5. use Log::Dispatch::Syslog;
  6.  
  7.  
  8. sub new {
  9.     my ($class, $appender_name, $data) = @_;
  10.     my $stderr;
  11.  
  12.     my ($ident,    #defaults to $0
  13.         $logopt,   #Valid options are 'cons', 'pid', 'ndelay', and 'nowait'.
  14.         $facility, #Valid options are 'auth', 'authpriv',
  15.                    #  'cron', 'daemon', 'kern', 'local0' through 'local7',
  16.                    #   'mail, 'news', 'syslog', 'user', 'uucp'.  Defaults to
  17.                    #   'user'
  18.         $socket,   #Valid options are 'unix' or 'inet'. Defaults to 'inet'
  19.         );
  20.  
  21.     if (defined $data->{Facility}{value}) {
  22.         $facility = $data->{Facility}{value}
  23.     }elsif (defined $data->{facility}{value}){
  24.         $facility = $data->{facility}{value};
  25.     }else{
  26.         $facility = 'user';
  27.     }
  28.  
  29.     
  30.     return Log::Log4perl::Appender->new("Log::Dispatch::Syslog",
  31.         name      => $appender_name,
  32.         facility  => $facility,
  33.         min_level => 'debug',
  34.     );
  35. }
  36.  
  37. 1;
  38.  
  39. =head1 NAME
  40.  
  41. Log::Log4perl::JavaMap::SysLogAppender - wraps Log::Dispatch::Syslog
  42.  
  43.  
  44. =head1 DESCRIPTION
  45.  
  46. This maps log4j's SyslogAppender to Log::Dispatch::Syslog
  47.  
  48. Possible config properties for log4j SyslogAppender are 
  49.  
  50.     SyslogHost (Log::Dispatch::Syslog only accepts 'localhost')
  51.     Facility
  52.  
  53. Possible config properties for Log::Dispatch::Syslog are
  54.  
  55.     min_level (debug)
  56.     max_level
  57.     ident    (defaults to $0)
  58.     logopt
  59.     facility 
  60.     socket   (defaults to 'inet')
  61.  
  62. =head1 AUTHORS
  63.  
  64.     Kevin Goess, <cpan@goess.org> 
  65.     Mike Schilli, <m@perlmeister.com>
  66.     
  67.     December, 2002
  68.  
  69. =head1 SEE ALSO
  70.  
  71. http://jakarta.apache.org/log4j/docs/
  72.  
  73. Log::Log4perl::Javamap
  74.  
  75. =cut
  76.