Log::Dispatch::Email(3pm) User Contributed Perl Documentation Log::Dispatch::Email(3pm)NAME
Log::Dispatch::Email - Base class for objects that send log messages via email
VERSION
version 2.32
SYNOPSIS
package Log::Dispatch::Email::MySender;
use Log::Dispatch::Email;
use base qw( Log::Dispatch::Email );
sub send_email {
my $self = shift;
my %p = @_;
# Send email somehow. Message is in $p{message}
}
DESCRIPTION
This module should be used as a base class to implement Log::Dispatch::* objects that send their log messages via email. Implementing a
subclass simply requires the code shown in the SYNOPSIS with a real implementation of the "send_email()" method.
CONSTRUCTOR
The constructor takes the following parameters in addition to the standard parameters documented in Log::Dispatch::Output:
o subject ($)
The subject of the email messages which are sent. Defaults to "$0: log email"
o to ($ or @)
Either a string or a list reference of strings containing email addresses. Required.
o from ($)
A string containing an email address. This is optional and may not work with all mail sending methods.
o buffered (0 or 1)
This determines whether the object sends one email per message it is given or whether it stores them up and sends them all at once.
The default is to buffer messages.
METHODS
o send_email(%p)
This is the method that must be subclassed. For now the only parameter in the hash is 'message'.
o flush
If the object is buffered, then this method will call the "send_email()" method to send the contents of the buffer and then clear the
buffer.
o DESTROY
On destruction, the object will call "flush()" to send any pending email.
AUTHOR
Dave Rolsky <autarch@urth.org>
COPYRIGHT AND LICENSE
This software is Copyright (c) 2011 by Dave Rolsky.
This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
perl v5.14.2 2012-05-25 Log::Dispatch::Email(3pm)
Check Out this Related Man Page
Log::Dispatch::Syslog(3pm) User Contributed Perl Documentation Log::Dispatch::Syslog(3pm)NAME
Log::Dispatch::Syslog - Object for logging to system log.
VERSION
version 2.32
SYNOPSIS
use Log::Dispatch;
my $log = Log::Dispatch->new(
outputs => [
[
'Syslog',
min_level => 'info',
ident => 'Yadda yadda'
]
]
);
$log->emerg("Time to die.");
DESCRIPTION
This module provides a simple object for sending messages to the system log (via UNIX syslog calls).
Note that logging may fail if you try to pass UTF-8 characters in the log message. If logging fails and warnings are enabled, the error
message will be output using Perl's "warn".
CONSTRUCTOR
The constructor takes the following parameters in addition to the standard parameters documented in Log::Dispatch::Output:
o ident ($)
This string will be prepended to all messages in the system log. Defaults to $0.
o logopt ($)
A string containing the log options (separated by any separator you like). See the openlog(3) and Sys::Syslog docs for more details.
Defaults to ''.
o facility ($)
Specifies what type of program is doing the logging to the system log. Valid options are 'auth', 'authpriv', 'cron', 'daemon', 'kern',
'local0' through 'local7', 'mail, 'news', 'syslog', 'user', 'uucp'. Defaults to 'user'
o socket ($ or @)
Tells what type of socket to use for sending syslog messages. Valid options are listed in "Sys::Syslog".
If you don't provide this, then we let "Sys::Syslog" simply pick one that works, which is the preferred option, as it makes your code
more portable.
If you pass an array reference, it is dereferenced and passed to "Sys::Syslog::setlogsock()".
AUTHOR
Dave Rolsky <autarch@urth.org>
COPYRIGHT AND LICENSE
This software is Copyright (c) 2011 by Dave Rolsky.
This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
perl v5.14.2 2012-05-25 Log::Dispatch::Syslog(3pm)