Re: [log4perl-devel] appender initialisation issue

[Mike S. <m...@pe...>]

On Wed, 14 Jun 2006, Roger Day wrote:

>   my $appender = Log::Log4perl::Appender->new(
>                                               "Log::Dispatch::File",
>                                               filename =>  $main_logpath,
>                                               mode     => "append",
>                                               name
> =>$current_appender_name,
>                                               level=>$INFO
>                                              );
>
> I'm doing this, but it doesn't seem to change the level of initialisation.
> Am I doing something wrong?

I'd recommend using a Log4perl configuration file and the file
appender that comes with Log::Log4perl:

  use Log::Log4perl qw(:easy);

  my $conf = q{
  log4perl.category              = DEBUG, Logfile
  log4perl.appender.Logfile      = Log::Log4perl::Appender::File
  log4perl.appender.Logfile.mode = append
  log4perl.appender.Logfile.filename = /tmp/test.log
  log4perl.appender.Logfile.layout = Log::Log4perl::Layout::PatternLayout
  log4perl.appender.Logfile.layout.ConversionPattern = %d %F{1} %L> %m%n
  };

  Log::Log4perl->init(\$conf);
  DEBUG "Hey there!";

If you really need to use Log::Dispatch::File and the L4p API, here's
what I think you had in mind:

  use Log::Log4perl qw(get_logger :levels);

  my $logger = get_logger("");
  my $appender = Log::Log4perl::Appender->new(
    "Log::Dispatch::File",
    filename  =>  "woot.txt",
    mode      => "append",
    name      => "quack",
    min_level => "debug",
  );
  $logger->add_appender($appender);

  $logger->debug("waaa!");

-- Mike

Mike Schilli
m...@pe...