From 7ac527cbc7a616bd4beab3a0ebfd9fc7a9a7e201 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 --- 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 488ce0791e7..692b53b2e0c 100755 --- a/misc/cronjobs/gather_print_notices.pl +++ b/misc/cronjobs/gather_print_notices.pl @@ -13,8 +13,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, @@ -280,11 +280,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 ) { @@ -299,20 +300,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.25.1