@@ -, +, @@ --- basket/sendbasket.pl | 3 ++- misc/cronjobs/notifyMailsOp.pl | 13 +++++++------ misc/cronjobs/runreport.pl | 5 +++-- misc/cronjobs/smsoverdues.pl | 5 ++--- opac/opac-sendbasket.pl | 3 ++- opac/opac-sendshelf.pl | 3 ++- virtualshelves/sendshelf.pl | 3 ++- 7 files changed, 20 insertions(+), 15 deletions(-) --- a/basket/sendbasket.pl +++ a/basket/sendbasket.pl @@ -20,6 +20,7 @@ use warnings; use CGI; use Encode qw(encode); +use Carp; use Mail::Sendmail; use MIME::QuotedPrint; @@ -164,7 +165,7 @@ END_OF_BODY } else { # do something if it doesnt work.... - warn "Error sending mail: $Mail::Sendmail::error \n"; + carp "Error sending mail: $Mail::Sendmail::error \n"; $template->param( error => 1 ); } $template->param( email_add => $email_add ); --- a/misc/cronjobs/notifyMailsOp.pl +++ a/misc/cronjobs/notifyMailsOp.pl @@ -1,6 +1,7 @@ #!/usr/bin/perl use strict; #use warnings; FIXME - Bug 2505 +use Carp; BEGIN { # find Koha's Perl modules # test carefully before changing this @@ -201,12 +202,12 @@ foreach my $num (@getnofifys) { 'content-type' => 'text/html; charset="utf-8"', ); # if we don't have any content for the mail, we don't launch mail, but notify it in a file - if ($mailtext ne 'nonotifys') { - sendmail(%mail); - } - else { - print OUT $email ; - } + if ($mailtext ne 'nonotifys') { + sendmail(%mail) or carp $Mail::Sendmail::error; + } + else { + print OUT $email ; + } # now deal with the debarred mode # if ($debarred eq 1) { --- a/misc/cronjobs/runreport.pl +++ a/misc/cronjobs/runreport.pl @@ -28,6 +28,7 @@ use Pod::Usage; use Mail::Sendmail; use Text::CSV_XS; use CGI; +use Carp; use vars qw($VERSION); @@ -159,7 +160,7 @@ unless (scalar(@ARGV)) { foreach my $report (@ARGV) { my ($sql, $type) = get_saved_report($report); unless ($sql) { - warn "ERROR: No saved report $report found"; + carp "ERROR: No saved report $report found"; next; } $verbose and print "SQL: $sql\n\n"; @@ -188,7 +189,7 @@ foreach my $report (@ARGV) { Subject => $subject, Message => $message ); - sendmail(%mail) or warn "mail not sent"; + sendmail(%mail) or carp 'mail not sent:' . $Mail::Sendmail::error; } else { print $message; } --- a/misc/cronjobs/smsoverdues.pl +++ a/misc/cronjobs/smsoverdues.pl @@ -40,13 +40,13 @@ BEGIN { use C4::Context; use C4::Search; use C4::Circulation; -use C4::Circulation::Fines; use C4::Members; use C4::Dates qw/format_date/; use HTML::Template::Pro; use Mail::Sendmail; use Mail::RFC822::Address; use C4::SMS; +use Carp; use utf8; my ($res,$ua);##variables for SMS @@ -312,8 +312,7 @@ sub sendEmail { if (not(sendmail %mail)) { -warn $Mail::Sendmail::error; - warn "sendEmail to $to failed."; +carp "sendEmail to $to failed: " . $Mail::Sendmail::error; return 0; } --- a/opac/opac-sendbasket.pl +++ a/opac/opac-sendbasket.pl @@ -20,6 +20,7 @@ use warnings; use CGI; use Encode qw(encode); +use Carp; use Mail::Sendmail; use MIME::QuotedPrint; @@ -170,7 +171,7 @@ END_OF_BODY } else { # do something if it doesnt work.... - warn "Error sending mail: $Mail::Sendmail::error \n"; + carp "Error sending mail: $Mail::Sendmail::error \n"; $template->param( error => 1 ); } $template->param( email_add => $email_add ); --- a/opac/opac-sendshelf.pl +++ a/opac/opac-sendshelf.pl @@ -22,6 +22,7 @@ use warnings; use CGI; use Encode qw(encode); +use Carp; use Mail::Sendmail; use MIME::QuotedPrint; @@ -162,7 +163,7 @@ END_OF_BODY } else { # do something if it doesnt work.... - warn "Error sending mail: $Mail::Sendmail::error \n"; + carp "Error sending mail: $Mail::Sendmail::error \n"; $template->param( error => 1 ); } --- a/virtualshelves/sendshelf.pl +++ a/virtualshelves/sendshelf.pl @@ -22,6 +22,7 @@ use warnings; use CGI; use Encode qw(encode); +use Carp; use Mail::Sendmail; use MIME::QuotedPrint; @@ -157,7 +158,7 @@ END_OF_BODY } else { # do something if it doesnt work.... - warn "Error sending mail: $Mail::Sendmail::error \n"; + carp "Error sending mail: $Mail::Sendmail::error \n"; $template->param( error => 1 ); } --