[log4perl-devel] re-init question

[Bret J. <bre...@ut...>]

Dear Authors,

First I would like to say how great your tool Log::Log4perl module is.  Well
done.  I do have a question on how to make changes on the fly without using
the init_and_wait feature that is only for the  configuration file.  Or how
do we make init_and_wait work for a ref to a hash that contains the
config?.  What I would like is something like the following:

use Log::Log4perl;

# Initialize Logger
my %log_conf = (
   'log4perl.rootLogger'              => "SCREEN",
   'log4perl.appender.SCREEN'         => "Log::Log4perl::Appender::Screen",
   'log4perl.appender.SCREEN.stderr'  => "0",
   'log4perl.appender.SCREEN.layout'  =>
"Log::Log4perl::Layout::PatternLayout",
   'log4perl.appender.SCREEN.layout.ConversionPattern' => "%d %p %m %n",
   'log4perl.appender.SCREEN1'         => "Log::Log4perl::Appender::Screen",
   'log4perl.appender.SCREEN1.stderr'  => "0",
   'log4perl.appender.SCREEN1.layout'  =>
"Log::Log4perl::Layout::PatternLayout",
   'log4perl.appender.SCREEN1.layout.ConversionPattern' => "FOOBAR %m %n",
);

my $ref = \%log_conf;
Log::Log4perl::init($ref);
my $logger = Log::Log4perl->get_logger();
$logger->info("this is an info log message");

###################
### Now this is where you would change the running config per say, basically
adding a second output
####################
$ref->{log4perl.rootLogger} = "SCREEN, SCREEN1";
$logger->info("this is more info log message");

But this does not obviously work.  How would you suggest this work?  Could
you do something like:
$logger->{log4perl.rootLogger} = "SCREEN, SCREEN1";

Thanks in advance.
Bret