NAME
Haineko::Log - Syslog interface
DESCRIPTION
Write log messages via UNIX syslog
SYNOPSIS
use Haineko::Log;
my $v = {
'remoteaddr' => '127.0.0.1',
'remoteport' => 1024,
};
my $e = Haineko::Log->new( %$v );
my $x = { 'message' => 'Log message' };
$e->w( 'info', $x );
# Jul 4 10:00:00 host haineko[6994]: client=127.0.0.1:1024, message='Log message'
$x = { 'message' => 'Rejected', 'dsn' => '5.2.1', 'code' => 550 };
$e->w( 'err', $x );
# Jul 4 10:00:00 host haineko[6994]: client=127.0.0.1:1024, message='Rejected', dsn=5.2.1, code=550
$v = { 'remoteaddr' => '192.0.1.2', 'queueid' => 'r67HY3E06994bogA' };
$e = Haineko::Log->new( %$v );
$x = { 'message' => [ 'Log1', 'Log2' ] 'neko' => 'Nyaa' };
$e->w( 'err', $x );
# Jul 4 10:00:00 host haineko[6994]: queueid=r67HY3E06994bogA, client=192.0.2.1, message='Log1 | Log2', neko=Nyaa
CLASS METHODS
new( %arguments )
new()
is a constructor of Haineko::Log
my $e = Haineko::Log->new(
'queueid' => 'ID string', # Haineko::SMTPD::Session->queueid
'useragent' => 'Agent name', # $self->req->header->user_agent
'remoteaddr' => '127.0.0.1', # REMOTE_HOST http environment variable
'remoteport' => 1024, # REMOTE_PORT http environment variable
);
INSTANCE METHODS
w( log-level, argument)
w()
write log messages via UNIX syslog
my $e = Haineko:::Log->new( %argvs );
my $m = { 'message' => 'error', 'cat' => 'kijitora' };
$e->w( 'err', $m );
REPOSITORY
https://github.com/azumakuniyuki/Haineko
AUTHOR
azumakuniyuki <perl.org [at] azumakuniyuki.org>
LICENSE
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.