db/explain.depesz.com
1
0
Fork 0
mirror of https://gitlab.com/depesz/explain.depesz.com.git synced 2025-02-21 19:48:37 +02:00
Code

Replace deprecated Mail::Sender with Email::Sender

Browse Source 
As Mail::Sender is deprecated, libmail-sender-perl is
no longer available on e.g. debian stretch. Updating to
use Email::Sender and libemail-sender-perl works well.
This commit is contained in:
Will Thames 2019-04-02 21:38:37 +10:00
parent db4b2d7f16
commit a0f094bb5e
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
README.md
View File

@ -47,19 +47,19 @@ You will need the following packages installed in your version of Perl:
DBD::Pg
Date::Simple
Mail::Sender
Email::Sender
Pg::Explain
Email::Valid
Install the above packages using `cpan` then `-i Date::Simple`, `-i Mail::Sender`, &etc.
Install the above packages using `cpan` then `-i Date::Simple`, `-i Email::Sender`, &etc.
Note that in case of most current Linux distributions, you can install most of
these from binary package repositories. For example, in case of Ubuntu and
Debian, you can:
apt-get install libmojolicious-perl \
libmail-sender-perl \
libemail-sender-perl \
libdate-simple-perl \
libemail-valid-perl \
libxml-simple-perl \

10
lib/Explain/Plugin/MailSender.pm
View File

@ -5,7 +5,7 @@ use Mojo::Base 'Mojolicious::Plugin';
# Mail Sender is broken on new perls, and I can't migrate to another mail sending module now (vacation time)
BEGIN {
eval {
require Mail::Sender;
require Email::Sender;
};
}
@ -42,8 +42,8 @@ sub register {
# log debug message
$controller->app->log->debug( sprintf "Sending mail:\n%s", $controller->dumper( $mail ) );
# create Mail::Sender instance
my $sender = Mail::Sender->new(
# create Email::Sender instance
my $sender = Email::Sender->new(
{
smtp => delete $mail->{ smtp },
from => delete $mail->{ from }
@ -54,7 +54,7 @@ sub register {
unless ( ref $sender ) {
# error message
my $message = qq|Can't create Mail::Sender instance, reason: [$sender] "$Mail::Sender::Error"|;
my $message = qq|Can't create Email::Sender instance, reason: [$sender] "$Email::Sender::Error"|;
# log error message
$controller->app->log->fatal( $message );
@ -70,7 +70,7 @@ sub register {
unless ( ref $result ) {
# error message
my $message = qq|Mail send failed, reason: [$result] "$Mail::Sender::Error"|;
my $message = qq|Mail send failed, reason: [$result] "$Email::Sender::Error"|;
# log error message
$controller->app->log->fatal( $message );