98 lines
3.1 KiB
Markdown
98 lines
3.1 KiB
Markdown
|
# NAME
|
||
|
|
|
||
|
|
Log::Log4perl::Appender::Graylog; - Log to a Graylog server
|
||
|
|
|
||
|
|
# 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.
|
||
|
|
|
||
|
|
# 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.
|