From 1c988ed7fb3ca7d018c9c7e7cea5f22415b95836 Mon Sep 17 00:00:00 2001 From: Liz Rea Date: Thu, 26 Jul 2018 16:26:15 +1200 Subject: [PATCH] Bug 21122: Fix check-url-quick when utf8 characters in URL's MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit To test: Make a record with a URL that has a UTF8 character, such as: http://some.nonexistent.tld/MāoriWomenAotearoa.pdf Run the check-url-quick.pl job, notice it dies at that URL Apply this patch Test again, it should work. Signed-off-by: Owen Leonard Signed-off-by: Jonathan Druart Signed-off-by: Tomas Cohen Arazi (cherry picked from commit 10720d2a5c50b82d565cab9ad70c8498164d81b2) Signed-off-by: Martin Renvoize --- misc/cronjobs/check-url-quick.pl | 2 ++ 1 file changed, 2 insertions(+) diff --git a/misc/cronjobs/check-url-quick.pl b/misc/cronjobs/check-url-quick.pl index f9b1c32020..22d2dfe461 100755 --- a/misc/cronjobs/check-url-quick.pl +++ b/misc/cronjobs/check-url-quick.pl @@ -24,6 +24,7 @@ use C4::Context; use C4::Biblio; use AnyEvent; use AnyEvent::HTTP; +use Encode; my ( $verbose, $help, $html ) = ( 0, 0, 0 ); my ( $host, $host_intranet ) = ( '', '' ); @@ -96,6 +97,7 @@ sub check_all_url { my $url = $field->subfield('u'); next unless $url; $url = "$host/$url" unless $url =~ /^http/i; + $url = encode_utf8($url); $count++; http_request( HEAD => $url, -- 2.39.5