Log4Perl to send mail via SMTP

[weismat]

Maybe I am missing something obvious, but how do I send SMTP mail via Log4Perl?
I use this configuration

log4perl.category = FATAL, Mailer
log4perl.appender.Mailer = Log::Dispatch::Email::MailSend
log4perl.appender.Mailer.to = [e-mail]
log4perl.appender.Mailer.from = [e-mail]
log4perl.appender.Mailer.subject = Something's broken!
log4perl.appender.Mailer.layout = SimpleLayout
log4perl.appender.Mailer.Server = x.x.x.x
log4perl.appender.Mailer.smtp = 1

I have tested that Mail::Mailer works, but I do not get it to work with the standard appender. The constructor for Mailer needs to be in the following format: $mailer = Mail::Mailer->new('smtp', Server => $server);

[mje]

Am am successfully using Log4perl to send email using the following appender:

log4perl.logger=ERROR, Mailer

log4perl.appender.Mailer          = Log::Dispatch::Email::MailSend
# only mail ERRORs and above:
log4perl.appender.Mailer.Threshold = ERROR
log4perl.appender.Mailer.to       = x@y.z
log4perl.appender.Mailer.subject  = db error
log4perl.appender.Mailer.buffered = 0
log4perl.appender.Mailer.layout   = PatternLayout
log4perl.appender.Mailer.layout.ConversionPattern=%d %p> %F{1}:%L %M -
+ %m%n

[weismat]

I think that the main problem is that Log4Perl can only call the constructor with key-value pairs, unfortunately Mail:Mailer uses smtp as a scalar parameter.
The documentation mentions the following:
Since Mail::Send is a subclass of Mail::Mailer, you can change how mail is sent from this module by simply useing Mail::Mailer in your code before mail is sent. For example, to send mail via smtp, you could do:
use Mail::Mailer 'smtp', Server => 'foo.example.com';
I do not understand this part of the docu. Could one explaint it to me?

[Anonymous Monk]

#!/usr/bin/perl 

... this is your code, to it you add the following


use Mail::Mailer 'smtp', Server => 'foo.example.com';

[GeneralElektrix]

Hi,

Got it to work this way:

log4perl.rootLogger               = ERROR, Email
log4perl.appender.Email           = Log::Dispatch::Email::MailSender
log4perl.appender.Email.name      = email
log4perl.appender.Email.min_level = error
log4perl.appender.Email.to        = [e-mail]
log4perl.appender.Email.from      = [e-mail]
log4perl.appender.Email.subject   = Something's broken!
log4perl.appender.Email.smtp      = smtp.z.com
log4perl.appender.Email.layout    = SimpleLayout

[Anonymous Monk]

This worked for me too after lots of hair pulling.

Note the difference between:

Log::Dispatch::Email::MailSender

in the working example, and:

Log::Dispatch::Email::MailSend

in the original, which I also had from somewhere on the web, but was unable to get to work with SMTP, although it does not error, it just writes to mailer.testfile instead.

Also that:

log4perl.appender.Email.smtp = smtp.z.com

is the correct way to specify the server, at least this works for me.

[weismat]

I see - you are using the smtp server adress as a parameter - I will try this, but it did not work for me before when I added some prints into Mail::Mailer.
I have written my own appender now - it is the easier solution for me.