From a229757a860197e9bc67044423dadd0575381e1c Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Thu, 18 Nov 2021 09:40:22 -0300 Subject: [PATCH] Bug 29501: Make gather_print_notices.pl use Koha::Email This patch makes the cronjob script use Koha::Email and thus relying on configured SMTP settings instead of just trying localhost. Signed-off-by: Martin Renvoize Signed-off-by: Jonathan Druart Signed-off-by: Fridolin Somers Signed-off-by: Kyle M Hall --- misc/cronjobs/gather_print_notices.pl | 27 ++++++++++++++------------- 1 file changed, 14 insertions(+), 13 deletions(-) diff --git a/misc/cronjobs/gather_print_notices.pl b/misc/cronjobs/gather_print_notices.pl index a777acbbcf..767678e80d 100755 --- a/misc/cronjobs/gather_print_notices.pl +++ b/misc/cronjobs/gather_print_notices.pl @@ -20,8 +20,8 @@ use Getopt::Long qw( GetOptions ); use C4::Log qw( cronlogaction ); use Koha::DateUtils qw( dt_from_string output_pref ); +use Koha::Email; use Koha::Util::OpenDocument qw( generate_ods ); -use MIME::Lite; my ( $help, @@ -287,11 +287,12 @@ sub send_files { my $from = $params->{from}; return unless $to and $from; - my $mail = MIME::Lite->new( - From => $from, - To => $to, - Subject => 'Print notices for ' . $today_syspref, - Type => 'multipart/mixed', + my $email = Koha::Email->create( + { + from => $from, + to => $to, + subject => 'Print notices for ' . $today_syspref, + } ); while ( my ( $type, $filenames ) = each %$files ) { @@ -306,20 +307,20 @@ sub send_files { next unless $mimetype; - my $filepath = File::Spec->catdir( $directory, $filename ); + my $filepath = File::Spec->catfile( $directory, $filename ); next unless $filepath or -f $filepath; - $mail->attach( - Type => $mimetype, - Path => $filepath, - Filename => $filename, - Encoding => 'base64', + $email->attach_file( + $filepath, + content_type => $mimetype, + name => $filename, + disposition => 'attachment', ); } } - $mail->send; + $email->send_or_die; } =head1 NAME -- 2.39.2