On Mon, 18 Jun 2007, Quinn Weaver wrote:
> I noticed I can't call layout() on Log::Dispatch appenders:
>
> my $syslog_appender = Log::Log4perl::appender_by_name( 'MyAppender' );
> my $layout = $syslog_appender->layout();
>
> Can't locate object method "layout" via package "Log::Dispatch::Syslog" at ...
>
> Is there any way around this? Would it be worthwhile to write a set of
> wrappers to Log::Dispatch classes so they support the appender() method?
>
> Apologies if there is an obvious solution to this; I wasn't able to
> find one in the docs.
The "Access defined appenders" section explains this issue in detail,
what you need is not the real appender, it's the Log4perl wrapper:
http://log4perl.sourceforge.net/d/Log/Log4perl.html#356d5
Here's some sample code:
use Log::Log4perl;
use Log::Log4perl::Layout;
use Log::Log4perl::Level;
# Define a category logger
my $log = Log::Log4perl->get_logger("Foo::Bar");
# Define a layout
my $layout = Log::Log4perl::Layout::PatternLayout->new("%F-%L %m%n");
# Define a file appender
my $stdout_appender = Log::Log4perl::Appender->new(
"Log::Dispatch::Screen",
);
$stdout_appender->layout($layout);
$log->add_appender($stdout_appender);
$log->level($INFO);
$log->info("Waah!");
> PS: The reason I'm using Perl (instead of the configuration file little
> language) is that I have some behavior I want to configure conditionally...
> I want to add a ScreenAppender iff a MY_DEBUG environment variable is set,
> but with the same layout as my existing Log::Dispatch::Syslog appender.
Alternatively, you could use sub { } hooks on the right hand side of
the Log4perl configuration file. Or use two different config files and
switch between them according to the env variable setting. Or read the
configuration file, perform manipulations on its content according to
the env var setting and then feed it to init() (which also takes a
string ref).
Hope that helps!
-- Mike
Mike Schilli
m...@pe...
|
