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 / NTEventLogAppender.pm < prev    next >
Encoding:
Perl POD Document  |  2003-01-14  |  1.1 KB  |  66 lines
  1. package Log::Log4perl::JavaMap::NTEventLogAppender;
  2.  
  3. use Carp;
  4. use strict;
  5.  
  6.  
  7.  
  8. sub new {
  9.     my ($class, $appender_name, $data) = @_;
  10.     my $stderr;
  11.  
  12.     my ($source,   #        
  13.         );
  14.  
  15.     if (defined $data->{Source}{value}) {
  16.         $source = $data->{Source}{value}
  17.     }elsif (defined $data->{source}{value}){
  18.         $source = $data->{source}{value};
  19.     }else{
  20.         $source = 'user';
  21.     }
  22.  
  23.     
  24.     return Log::Log4perl::Appender->new("Log::Dispatch::Win32EventLog",
  25.         name      => $appender_name,
  26.         source    => $source,
  27.         min_level => 'debug',
  28.     );
  29. }
  30.  
  31. 1;
  32.  
  33. =head1 NAME
  34.  
  35. Log::Log4perl::JavaMap::NTEventLogAppender - wraps Log::Dispatch::Win32EventLog
  36.  
  37.  
  38. =head1 DESCRIPTION
  39.  
  40. This maps log4j's NTEventLogAppender to Log::Dispatch::Win32EventLog
  41.  
  42. Possible config properties for log4j NTEventLogAppender are 
  43.  
  44.     Source
  45.  
  46. Possible config properties for Log::Dispatch::Win32EventLog are
  47.  
  48.     source
  49.  
  50. Boy, that was hard.
  51.  
  52. =head1 AUTHORS
  53.  
  54.     Kevin Goess, <cpan@goess.org> 
  55.     Mike Schilli, <m@perlmeister.com>
  56.     
  57.     November, 2002
  58.  
  59. =head1 SEE ALSO
  60.  
  61. http://jakarta.apache.org/log4j/docs/
  62.  
  63. Log::Log4perl::Javamap
  64.  
  65. =cut
  66.