On 2013-05-15 17:54, Duncan Garland wrote:
Hi,

Has anybody got some examples about how to use this.

It looks like you just have to put the following lines in the main package 
before __PACKAGE__->setup():

use Log::Log4perl::Catalyst;
__PACKAGE__->log(Log::Log4perl::Catalyst->new('/path/to/log4perl.conf'));

That works up to a point in that the log messages are formatted as I want. 
However they always go to the STDERR and not to the file given in 
log4perl.conf. I've used the conf file in a test, so I know it works outside 
Catalyst. I'm using the Catalyst development server, does that over-ride the 
logger?

The other thing is that I don't really want to hardcode the filename. It should 
be in the application's conf file. However, if I just stick it in there as so:

 <Log4perl>
  conf_file 
/var/www/mymercedesservice.co.uk/fcgi/catalyst/mbfl2/lib/mbfl2/log4perl.conf
</Log4perl>

I can't access it via __PACKAGE__->config->{Log4perl}->{conf_file};
until after setup() has run.

Does that matter?

Thanks

Duncan

That's how I do it in all of our Catalyst apps:

In My::App:

=item finalize_config

Initializes the logger after the config file merging and loading is done.

=cut

sub finalize_config {
    my $class = shift;
    $class->next::method(@_);
    $class->log(Log::Log4perl::Catalyst->new($class->config->{log}));
}

# Start the application
__PACKAGE__->setup;

around 'prepare' => sub {
    my $orig = shift;
    my $self = shift;

    Log::Log4perl::MDC->remove();

    my $c = $self->$orig(@_);

    Log::Log4perl::MDC->put( "username", $c->user->username )
        if $c->user_exists;

    return $c;
};

This assumes that the l4p config is in the app config file under 'log' e.g. 
from one of my Config::General config files:

<log>
    log4perl.logger                                     "WARN, FILE, MAIL"
    log4perl.appender.FILE                              
"Log::Log4perl::Appender::File"
    log4perl.appender.FILE.filename                     
"/home/nac/log/nac-web-request.log"
    log4perl.appender.FILE.utf8                         1
    log4perl.appender.FILE.syswrite                     1
    log4perl.appender.FILE.layout                       
"Log::Log4perl::Layout::PatternLayout"
    log4perl.appender.FILE.layout.ConversionPattern     "%d{yyyy-MM-dd 
HH:mm:ss} %-5p %X{username} %m%n"
    log4perl.appender.MAIL                              
"Log::Dispatch::Email::MailSend"
    log4perl.appender.MAIL.Threshold                    ERROR
    log4perl.appender.MAIL.from                         
"a...@t-systems.at"<mailto:a...@t-systems.at>
    log4perl.appender.MAIL.to                           
"poor.bastard-aka...@ourcompany.com"<mailto:poor.bastard-aka...@ourcompany.com>
    log4perl.appender.MAIL.subject                      "[NAC::Web::Request] 
errors"
    log4perl.appender.MAIL.buffered                     0
    log4perl.appender.MAIL.layout                       "PatternLayout"
    log4perl.appender.MAIL.layout.ConversionPattern     "%d{yyyy-MM-dd 
HH:mm:ss} %-5p %X{username} %m%n"
</log>





_______________________________________________
List: Catalyst@lists.scsys.co.uk<mailto:Catalyst@lists.scsys.co.uk>
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/




*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*
T-Systems Austria GesmbH Rennweg 97-99, 1030 Wien
Handelsgericht Wien, FN 79340b
*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*
Notice: This e-mail contains information that is confidential and may be 
privileged.
If you are not the intended recipient, please notify the sender and then
delete this e-mail immediately.
*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*
_______________________________________________
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/

Reply via email to