| Log-Log4perl documentation | Contained in the Log-Log4perl distribution. |
Log::Log4perl::JavaMap - maps java log4j appenders to Log::Dispatch classes
###############################
log4j.appender.FileAppndr1 = org.apache.log4j.FileAppender
log4j.appender.FileAppndr1.File = /var/log/onetime.log
log4j.appender.FileAppndr1.Append = false
log4j.appender.FileAppndr1.layout = org.apache.log4j.PatternLayout
log4j.appender.FileAppndr1.layout.ConversionPattern=%d %4r [%t] %-5p %c %x - %m%n
###############################
If somebody wants to create an appender called org.apache.log4j.ConsoleAppender,
we want to translate it to Log::Dispatch::Screen, and then translate
the log4j options into Log::Dispatch parameters..
(Note that you can always use the Log::Dispatch::* module. By 'implemented' I mean having a translation class that translates log4j options into the Log::Dispatch options so you can use log4j rather than log4perl syntax in your config file.)
Here's the list of appenders I see on the current (6/2002) log4j site.
These are implemented
ConsoleAppender - Log::Dispatch::Screen
FileAppender - Log::Dispatch::File
RollingFileAppender - Log::Dispatch::FileRotate (by Mark Pfeiffer)
JDBCAppender - Log::Log4perl::Appender::DBI
SyslogAppender - Log::Dispatch::Syslog
NTEventLogAppender - Log::Dispatch::Win32EventLog
These should/will/might be implemented
DailyRollingFileAppender -
SMTPAppender - Log::Dispatch::Email::MailSender
These might be implemented but they don't have corresponding classes in Log::Dispatch (yet):
NullAppender
TelnetAppender
These might be simulated
LF5Appender - use Tk?
ExternallyRolledFileAppender - catch a HUP instead?
These will probably not be implemented
AsyncAppender
JMSAppender
SocketAppender - (ships a serialized LoggingEvent to the server side)
SocketHubAppender
Let's say you've in a mixed Java/Perl enviroment and you've
come up with some custom Java appender with behavior you want to
use in both worlds, myorg.customAppender. You write a
Perl appender with the same behavior Myorg::CustomAppender. You
want to use one config file accross both applications, so the
config file will have to say 'myorg.customAppender'. But
the mapping from myorg.customAppender to Myorg::CustomAppender
isn't in this JavaMap class, so what do you do?
In your Perl code, before you call Log::Log4perl::init(), do this:
$Log::Log4perl::JavaMap::user_defined{'myorg.customAppender'} =
'Myorg::CustomAppender';
and you can use 'myorg.customAppender' in your config file with impunity.
http://jakarta.apache.org/log4j/docs/
Copyright 2002-2009 by Mike Schilli <m@perlmeister.com> and Kevin Goess <cpan@goess.org>.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| Log-Log4perl documentation | Contained in the Log-Log4perl distribution. |
package Log::Log4perl::JavaMap; use Carp; use strict; use constant _INTERNAL_DEBUG => 0; our %translate = ( 'org.apache.log4j.ConsoleAppender' => 'Log::Log4perl::JavaMap::ConsoleAppender', 'org.apache.log4j.FileAppender' => 'Log::Log4perl::JavaMap::FileAppender', 'org.apache.log4j.RollingFileAppender' => 'Log::Log4perl::JavaMap::RollingFileAppender', 'org.apache.log4j.TestBuffer' => 'Log::Log4perl::JavaMap::TestBuffer', 'org.apache.log4j.jdbc.JDBCAppender' => 'Log::Log4perl::JavaMap::JDBCAppender', 'org.apache.log4j.SyslogAppender' => 'Log::Log4perl::JavaMap::SyslogAppender', 'org.apache.log4j.NTEventLogAppender' => 'Log::Log4perl::JavaMap::NTEventLogAppender', ); our %user_defined; sub get { my ($appender_name, $appender_data) = @_; print "Trying to map $appender_name\n" if _INTERNAL_DEBUG; $appender_data->{value} || die "ERROR: you didn't tell me how to implement your appender " . "'$appender_name'"; my $perl_class = $translate{$appender_data->{value}} || $user_defined{$appender_data->{value}} || die "ERROR: I don't know how to make a '$appender_data->{value}' " . "to implement your appender '$appender_name', that's not a " . "supported class\n"; eval { eval "require $perl_class"; #see 'perldoc -f require' for why two evals die $@ if $@; }; $@ and die "ERROR: trying to set appender for $appender_name to " . "$appender_data->{value} using $perl_class failed\n$@ \n"; my $app = $perl_class->new($appender_name, $appender_data); return $app; } #an external api to the two hashes sub translate { my $java_class = shift; return $translate{$java_class} || $user_defined{$java_class}; } 1;