[log4perl-devel] Temporary string appender

[Carlos V. <cvi...@ne...>]

Hi,

First of all, thanks a lot for this great module!

I'm working on a project with libraries accessible via both a web
front-end (HTML::Mason, mod_perl) and command line scripts.
Most of the logging is intended for Syslog, but in some cases I
temporarily use the Screen appender (command-line) and the String
appender for output to the web.

My initial config looks like:

          log4perl.oneMessagePerAppender           = 1
          log4perl.category.Netdot                 = ERROR, Syslog
          log4perl.category.Netdot::Model          = INFO, Syslog
          log4perl.category.Netdot::Model::Device  = INFO, Syslog
          log4perl.category.Netdot::UI             = INFO, Syslog
          log4perl.appender.Syslog                 = Log::Dispatch::Syslog
          log4perl.appender.Syslog.ident           = netdot
          log4perl.appender.Syslog.facility        = local0
          log4perl.appender.Syslog.min_level       = debug
          log4perl.appender.Syslog.layout          =
Log::Log4perl::Layout::SimpleLayout

and then I add appenders as needed, via the API:

In a Mason component:

    $logger = Log::Log4perl->get_logger('Netdot::Model::Device');

    # Notice that I intentionally undef the object in order to call
DESTROY and make sure the string
    # is not being used (wasting memory) except when this component is
called
    if ( $logstr = Log::Log4perl::appender_by_name('updatedevice.html') ){
        undef($logstr);
    }
    $logstr  =
Log::Log4perl::Appender->new(Log::Log4perl::Appender::String,
name=>'updatedevice.html')
    $logger->add_appender($logstr);

    ... (stuff that produces log output)

    # somewhere in the presentation code:
    print $logstr->string();

    # at the end:
    undef($logstr) if defined $logstr;


The problem is my results are intermittent.  Sometimes I see the output
in the web page, sometimes I don't.  I'm not sure what I'm doing wrong
here.   Any ideas?  Suggestions on how to do this some other way?

Thanks in advance.

cv