From 0329ecded97888527c047bad92ad0b2c2c15ca2f Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Mon, 22 Mar 2021 14:47:33 -0300 Subject: [PATCH] Bug 28017: Allow non-FQDN (@localhost) addresses This patch makes Koha::Email support using @localhost addresses. To test: 1. Apply the regression tests 2. Run: $ kshell k$ prove t/Koha/Email.t => FAIL: Koha::Email doesn't support non-fqdn addresses 3. Apply this patch 4. Repeat 2 => SUCCESS: All tests pass! 5. Sign off :-D Signed-off-by: Tomas Cohen Arazi Signed-off-by: Martin Renvoize --- Koha/Email.pm | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/Koha/Email.pm b/Koha/Email.pm index e91a49e402..d6a330ca0c 100644 --- a/Koha/Email.pm +++ b/Koha/Email.pm @@ -76,7 +76,7 @@ sub create { my $args = {}; $args->{from} = $params->{from} || C4::Context->preference('KohaAdminEmailAddress'); Koha::Exceptions::BadParameter->throw("Invalid 'from' parameter: ".$args->{from}) - unless Email::Valid->address($args->{from}); # from is mandatory + unless Email::Valid->address( -address => $args->{from}, -fqdn => 0 ); # from is mandatory $args->{subject} = $params->{subject} // ''; @@ -88,7 +88,7 @@ sub create { } Koha::Exceptions::BadParameter->throw("Invalid 'to' parameter: ".$args->{to}) - unless Email::Valid->address($args->{to}); # to is mandatory + unless Email::Valid->address( -address => $args->{to}, -fqdn => 0 ); # to is mandatory my $addresses = {}; $addresses->{reply_to} = $params->{reply_to}; @@ -106,9 +106,13 @@ sub create { if exists $params->{bcc}; } - foreach my $address ( keys %{ $addresses } ) { - Koha::Exceptions::BadParameter->throw("Invalid '$address' parameter: ".$addresses->{$address}) - if $addresses->{$address} and !Email::Valid->address($addresses->{$address}); + foreach my $address ( keys %{$addresses} ) { + Koha::Exceptions::BadParameter->throw( + "Invalid '$address' parameter: " . $addresses->{$address} ) + if $addresses->{$address} and !Email::Valid->address( + -address => $addresses->{$address}, + -fqdn => 0 + ); } $args->{cc} = $addresses->{cc} -- 2.20.1