I'm not getting a delivered email. However, I know the base Mail::SendMail module delivers an email:use Log::Log4perl qw(get_logger :levels); my $log4perl_conf=<<CFG log4perl.rootLogger=INFO, Email log4perl.appender.Email=Log::Dispatch::Email::MailSendmail log4perl.appender.Email.to=me@company.com log4perl.appender.Email.from=me@company.com log4perl.appender.Email.min_level=info log4perl.appender.Email.layout=Log::Log4perl::Layout::PatternLayout log4perl.appender.Email.layout.ConversionPattern=%d{yyyy-MM-dd HH:mm:s +s} [%F{1}:%c{1}] %5p> %m%n CFG ; Log::Log4perl::init(\$log4perl_conf); my $logger = Log::Log4perl->get_logger(); $logger->info('Something bad is happening');
Any ideas how to get the log4perl appender working? Thanks, Mattuse Mail::Sendmail; # TLRTSRMG-CapacityPlanning@thomson.com %mail = ( To => 'me@company.com', From => 'me@company.com', Message => "Sorry, testing this out for emailing -- please i +gnore", Subject => "DELETE ME: Email Testing" ); sendmail(%mail) or die $Mail::Sendmail::error; print "OK. Log says:\n", $Mail::Sendmail::log;
In reply to log4perl and Log::Dispatch::Email::MailSendmail by mpettis
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |