Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 29501: Make gather_print_notices.pl use Koha::Email

Browse source 
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 <martin.renvoize@ptfs-europe.com>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
This commit is contained in:
Tomás Cohen Arazi 2021-11-18 09:40:22 -03:00 committed by Fridolin Somers
parent 9dcdb73e47
commit 241cd7ff37
1 changed files with 14 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
misc/cronjobs/gather_print_notices.pl
View file

@ -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