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 / ConsoleAppender.pm < prev    next >
Encoding:
Perl POD Document  |  2003-01-14  |  1.2 KB  |  68 lines
  1. package Log::Log4perl::JavaMap::ConsoleAppender;
  2.  
  3. use Carp;
  4. use strict;
  5. use Log::Dispatch::Screen;
  6.  
  7.  
  8. sub new {
  9.     my ($class, $appender_name, $data) = @_;
  10.     my $stderr;
  11.  
  12.     if (my $t = $data->{Target}{value}) {
  13.         if ($t eq 'System.out') {
  14.             $stderr = 0;
  15.         }elsif ($t eq 'System.err') {
  16.             $stderr = 1;
  17.         }else{
  18.             die "ERROR: illegal value '$t' for $data->{value}.Target' in appender $appender_name\n";
  19.         }
  20.     }elsif (defined $data->{stderr}{value}){
  21.         $stderr = $data->{stderr}{value};
  22.     }else{
  23.         $stderr = 0;
  24.     }
  25.  
  26.     return Log::Log4perl::Appender->new("Log::Dispatch::Screen",
  27.         name   => $appender_name,
  28.         stderr => $stderr );
  29. }
  30.  
  31.  
  32. 1;
  33.  
  34.  
  35. =head1 NAME
  36.  
  37. Log::Log4perl::JavaMap::ConsoleAppender - wraps Log::Dispatch::Screen
  38.  
  39. =head1 SYNOPSIS
  40.  
  41.  
  42. =head1 DESCRIPTION
  43.  
  44. Possible config properties for log4j ConsoleAppender are 
  45.  
  46.     Target (System.out, System.err, default is System.out)
  47.  
  48. Possible config properties for Log::Dispatch::Screen are
  49.  
  50.     stderr (0 or 1)
  51.  
  52. =head1 AUTHORS
  53.  
  54.     Kevin Goess, <cpan@goess.org> 
  55.     Mike Schilli, <m@perlmeister.com>
  56.     
  57.     June, 2002
  58.  
  59. =head1 SEE ALSO
  60.  
  61. http://jakarta.apache.org/log4j/docs/
  62.  
  63. Log::Log4perl::Javamap
  64.  
  65. Log::Dispatch::Screen
  66.  
  67. =cut
  68.