From 9536f6a88dbf763a7bddc6a0499ff0895e7589bc Mon Sep 17 00:00:00 2001 From: erickson Date: Tue, 19 Sep 2006 16:34:11 +0000 Subject: [PATCH] added a "use open :utf-8" to prevent wide char errors in mail sending, wrapped mail sending in try/catch git-svn-id: svn://svn.open-ils.org/ILS/trunk@6138 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../src/perlmods/OpenILS/Application/Circ/HoldNotify.pm | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/HoldNotify.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/HoldNotify.pm index 31d9535256..f2e4b4071b 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/HoldNotify.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/HoldNotify.pm @@ -28,8 +28,11 @@ use OpenILS::Const qw/:const/; use OpenILS::Utils::Fieldmapper; use Email::Send; use Data::Dumper; +use OpenSRF::EX qw/:try/; my $U = 'OpenILS::Application::AppUtils'; +use open ':utf8'; + __PACKAGE__->register_method( method => 'send_email_notify_pub', @@ -166,9 +169,18 @@ sub send_email { my $sender = Email::Send->new({mailer => 'SMTP'}); $sender->mailer_args([Host => $smtp]); - my $stat = $sender->send($text); - if( $stat->type eq 'success' ) { + my $stat; + my $err; + + try { + $stat = $sender->send($text); + } catch Error with { + $err = $stat = shift; + $logger->error("Email notify caught error: $err"); + }; + + if( !$err and $stat and $stat->type eq 'success' ) { $logger->info("hold_notify: successfully sent hold notification"); return 1; } else { -- 2.11.0