/ 
Log-Log4perl-Appender-Graylog-1.7
River stage zero No dependents
/ Log::Log4perl::Appender::Graylog

NAME

Log::Log4perl::Appender::Graylog - Log dispatcher writing to udp Graylog server

VERSION

version 1.7

SYNOPSIS

   use Log::Log4perl::Appender::Graylog;

   my $appender = Log::Log4perl::Appender::Graylog->new(
     PeerAddr => "glog.foo.com",
     PeerPort => 12209,
     Gzip => 1, # Glog2 usually requires gzip but can send plain text
   );

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

   or
   log4perl.appender.SERVER          = Log::Log4perl::Appender::Graylog
   log4perl.appender.SERVER.layout = NoopLayout
   log4perl.appender.SERVER.PeerAddr = <ip>
   log4perl.appender.SERVER.PeerPort = 12201
   log4perl.appender.SERVER.Gzip    = 1

DESCRIPTION

This is a simple appender for writing to a graylog server.

It relies on L<IO::Socket::INET>. L<Log::GELF::Util>. This sends in the 1.1
format.

NAME

Log::Log4perl::Appender::Graylog; - Log to a Graylog server

CONFIG

log4perl.appender.SERVER          = Log::Log4perl::Appender::Graylog
log4perl.appender.SERVER.layout = NoopLayout
log4perl.appender.SERVER.PeerAddr = <ip>
log4perl.appender.SERVER.PeerPort = 12201
log4perl.appender.SERVER.Gzip    = 1
log4perl.appender.SERVER.Chunked = <0|lan|wan> 

    layout This needs to be NoopLayout as we do not want any special formatting.
    Gzip Accepts an integer specifying if to compress the message. 
    Chunked Accepts an integer specifying the chunk size or the special string values lan or wan corresponding to 8154 or 1420 respectively.

EXAMPLE

Write a server quickly using the IO::Socket: (based on orelly-perl-cookbook-ch17)

use strict;
use IO::Socket;
my($sock, $oldmsg, $newmsg, $hisaddr, $hishost, $MAXLEN, $PORTNO);
$MAXLEN = 8192;
$PORTNO = 12201;
$sock = IO::Socket::INET->new(LocalPort => $PORTNO, Proto => 'udp')
    or die "socket: $@";
print "Awaiting UDP messages on port $PORTNO\n";
$oldmsg = "This is the starting message.";
while ($sock->recv($newmsg, $MAXLEN)) {
    my($port, $ipaddr) = sockaddr_in($sock->peername);
    $hishost = gethostbyaddr($ipaddr, AF_INET);
    print "Client $hishost said ``$newmsg''\n";
    $sock->send($oldmsg);
    $oldmsg = "[$hishost] $newmsg";
} 
die "recv: $!";

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

use Log::Log4perl qw(:easy);
my $conf = q{
        log4perl.category                  = WARN, Graylog
        log4perl.appender.Graylog           = Log::Log4perl::Appender::Graylog
        log4perl.appender.Graylog.PeerAddr  = localhost
        log4perl.appender.Graylog.PeerPort  = 12201
        log4perl.appender.Graylog.layout    = SimpleLayout
        
    };

Log::Log4perl->init( \$conf );

sleep(2);

for ( 1 .. 10 ) {
    ERROR("Quack!");
    sleep(5);
}

COPYRIGHT AND LICENSE

Copyright 2017 by Brandon "Dimentox Travanti" Husbands <xotmid@gmail.com>

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

AUTHOR

Brandon "Dimentox Travanti" Husbands <xotmid@gmail.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2017 by Brandon "Dimentox Travanti" Husbands.

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