From 1c988ed7fb3ca7d018c9c7e7cea5f22415b95836 Mon Sep 17 00:00:00 2001
From: Liz Rea <liz@catalyst.net.nz>
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 <oleonard@myacpl.org>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
(cherry picked from commit 10720d2a5c50b82d565cab9ad70c8498164d81b2)
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
---
 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