1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
|
package Log::Dispatch::Email::MailSender;
# By: Joseph Annino
# (c) 2002
# Licensed under the same terms as Perl
#
use strict;
use Log::Dispatch::Email;
use base qw( Log::Dispatch::Email );
use fields qw( buffer buffered from subject to smtp );
use Carp ();
use Mail::Sender ();
use vars qw[ $VERSION ];
$VERSION = sprintf "%d.%02d", q$Revision: 1.4 $ =~ /: (\d+)\.(\d+)/;
1;
sub new
{
my $proto = shift;
my $class = ref $proto || $proto;
my %p = @_;
my $smtp = delete $p{smtp} || 'localhost';
my $self = $class->SUPER::new(%p);
$self->{smtp} = $smtp;
return $self;
}
sub send_email
{
my $self = shift;
my %p = @_;
eval
{
my $sender =
Mail::Sender->new( { from => $self->{from} || 'LogDispatch@foo.bar',
replyto => $self->{from} || 'LogDispatch@foo.bar',
to => ( join ',', @{ $self->{to} } ),
subject => $self->{subject},
smtp => $self->{smtp},
} );
die "Error sending mail ($sender): $Mail::Sender::Error"
unless ref $sender;
ref $sender->MailMsg( { msg => $p{message} } )
or die "Error sending mail: $Mail::Sender::Error";
};
warn $@ if $@ && $^W;
}
__END__
=head1 NAME
Log::Dispatch::Email::MailSender - Subclass of Log::Dispatch::Email that uses the Mail::Sender module
=head1 SYNOPSIS
use Log::Dispatch::Email::MailSender;
my $email =
Log::Dispatch::Email::MailSender->new
( name => 'email',
min_level => 'emerg',
to => [ qw( foo@bar.com bar@baz.org ) ],
subject => 'Oh no!!!!!!!!!!!',
smtp => 'mail.foo.bar' );
$email->log( message => 'Something bad is happening', level => 'emerg' );
=head1 DESCRIPTION
This is a subclass of Log::Dispatch::Email that implements the
send_email method using the Mail::Sender module.
=head1 METHODS
=over 4
=item * new
This method takes a hash of parameters. The following options are
valid:
=over 8
=item * name ($)
The name of the object (not the filename!). Required.
=item * min_level ($)
The minimum logging level this object will accept. See the
Log::Dispatch documentation for more information. Required.
=item * max_level ($)
The maximum logging level this obejct will accept. See the
Log::Dispatch documentation for more information. This is not
required. By default the maximum is the highest possible level (which
means functionally that the object has no maximum).
=item * subject ($)
The subject of the email messages which are sent. Defaults to "$0:
log email"
=item * to ($ or \@)
Either a string or a list reference of strings containing email
addresses. Required.
=item * from ($)
A string containing an email address. This is optional and may not
work with all mail sending methods.
NOTE: The Mail::Sender module requires an address be passed to it to
set this in the mail it sends. We pass in 'LogDispatch@foo.bar' as
the default.
=item * 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.
=item * smtp ($)
A string containing the network address of the SMTP server to use for
sending the email. This defaults to localhost.
=item * callbacks( \& or [ \&, \&, ... ] )
This parameter may be a single subroutine reference or an array
reference of subroutine references. These callbacks will be called in
the order they are given and passed a hash containing the following keys:
( message => $log_message, level => $log_level )
The callbacks are expected to modify the message and then return a
single scalar containing that modified message. These callbacks will
be called when either the C<log> or C<log_to> methods are called and
will only be applied to a given message once.
=back
=item * log_message( level => $, message => $ )
Sends a message if the level is greater than or equal to the object's
minimum level.
=back
=head1 AUTHORS
Joseph Annino. <jannino@jannino.com>
Dave Rolsky, <autarch@urth.org>
=cut
|
