Net::Frame::Layer::Syslog is a Perl module that implements the encoding and decoding of the Syslog layer.
SYNOPSIS
use Net::Frame::Simple;
use Net::Frame::Layer::Syslog qw(:consts);
my $layer = Net::Frame::Layer::Syslog->new(
facility => NF_SYSLOG_FACILITY_LOCAL7,
severity => NF_SYSLOG_SEVERITY_INFORMATIONAL,
timestamp => (current time MMM DD HH:MM:SS),
host => (hostname),
tag => ($0[$$]),
content => 'syslog message',
);
#
# Read a raw layer
#
my $layer = Net::Frame::Layer::Syslog->new(raw => $raw);
print $layer->print."\n";
print 'PAYLOAD: '.unpack('H*', $layer->payload)."\n"
if $layer->payload;
Product's homepage
Requirements:
· Perl