/ 
Log-Log4perl-Appender-Redis-0.01
River stage zero No dependents
/ Log::Log4perl::Appender::Redis

NAME

Log::Log4perl::Appender::Redis - Log to a Redis channel

Based on the Log::Log4perl::Appender::Socket by Mike Schilli <m@perlmeister.com> and Kevin Goess <cpan@goess.org>.

SYNOPSIS

use Log::Log4perl::Appender::Redis;

my $appender = Log::Log4perl::Appender::Redis->new(
  PeerAddr => "localhost",
  PeerPort => 1234,
);

$appender->log(message => "Log me\n");

DESCRIPTION

EXAMPLE

Start it and then run the following script as a client:

use Log::Log4perl qw(:easy);

my $conf = <<EOC;
log4perl.category = TRACE, Redis
log4perl.appender.Redis = Log::Log4perl::Appender::Redis
log4perl.appender.Redis.min_level = debug
log4perl.appender.Redis.PeerAddr = localhost
log4perl.appender.Redis.PeerPort = 6379
log4perl.appender.Redis.channel = mylog
log4perl.appender.Redis.separator = ;;
log4perl.appender.Redis.layout = Log::Log4perl::Layout::PatternLayout
log4perl.appender.Redis.layout.ConversionPattern = %d [%H:%P] %m
log4perl.appender.Redis.defer_connection = 1
EOC

Log::Log4perl->init(\$conf);
TRACE("The");
DEBUG("duck");
INFO("came");
WARN("singing");
ERROR("cheerfully");
FATAL("Quack!");

OUTPUT

echo "PSUBSCRIBE *" | redis-cli
Reading messages... (press Ctrl-C to quit)
1) "psubscribe"
2) "*"
3) (integer) 1
1) "pmessage"
2) "*"
3) "mylog;;gamma.localdomain;;r.pl;;TRACE"
4) "2014/01/24 12:55:41 [gamma.localdomain:1323] The"
1) "pmessage"
2) "*"
3) "mylog;;gamma.localdomain;;r.pl;;DEBUG"
4) "2014/01/24 12:55:41 [gamma.localdomain:1323] duck"
1) "pmessage"
2) "*"
3) "mylog;;gamma.localdomain;;r.pl;;INFO"
4) "2014/01/24 12:55:41 [gamma.localdomain:1323] came"
1) "pmessage"
2) "*"
3) "mylog;;gamma.localdomain;;r.pl;;WARN"
4) "2014/01/24 12:55:41 [gamma.localdomain:1323] singing"
1) "pmessage"
2) "*"
3) "mylog;;gamma.localdomain;;r.pl;;ERROR"
4) "2014/01/24 12:55:41 [gamma.localdomain:1323] cheerfully"
1) "pmessage"
2) "*"
3) "mylog;;gamma.localdomain;;r.pl;;FATAL"
4) "2014/01/24 12:55:41 [gamma.localdomain:1323] Quack!"

COPYRIGHT AND LICENSE

Copyright 2014 by pedro.frazao

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.