1 package XYZ::LogDispatchEmailSender;
  2 
  3 #  2018-0515: From the MetaCPAN page
  4 #  https://metacpan.org/pod/Log::Dispatch::Email, here's a local module that
  5 #  will send E-Mail. ..
  6 #  ..
  7 
  8 use Log::Dispatch::Email;
  9 
 10 use base qw( Log::Dispatch::Email );
 11 
 12 use Email::Simple;
 13 use Email::Sender::Simple qw(sendmail);
 14 use Email::Sender::Transport::SMTP qw();
 15 use Try::Tiny;
 16 
 17 use lib ..;
 18 
 19 use XYZEMail;
 20 
 21 sub send_email
 22 {
 23     my $self = shift;
 24     my %p    = @_;
 25 
 26     my $message = Email::Simple->create(
 27       header => [
 28         To      => join(', ',@{ $self->{'to'} }),
 29         From    => 'anotherguy@example.com',
 30         Subject => $self->{'subject'},
 31       ],
 32       body => $p{ message },
 33     );
 34 
 35     try {
 36       sendmail(
 37         $message,
 38         {
 39           from      => 'anotherguy@example.com',
 40           transport => Email::Sender::Transport::SMTP->new(
 41             {
 42               host          => $XYZEMail::Host,
 43               port          => $XYZEMail::Port,
 44               sasl_username => $XYZEMail::User,
 45               sasl_password => $XYZEMail::Password,
 46               ssl           => 'starttls',
 47             }
 48           )
 49         }
 50       );
 51     }
 52     catch {
 53       warn "sending failed: $_";
 54     };
 55 }
 56 
 57 1;