Attachment 77277 Details for Bug 21122 – Bug 21122: check-url-quick dies on utf8 characters in URL's

[patch] Bug 21122: check-url-quick dies on utf8 characters in URL's

Bug-21122-check-url-quick-dies-on-utf8-characters-.patch (text/plain), 1.36 KB, created by Liz Rea on 2018-07-26 04:28:02 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Liz Rea

Created: 2018-07-26 04:28:02 UTC

Size: 1.36 KB

patch

obsolete

>From 961e7a9885620812edf7acd6687e29bb375c0440 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: check-url-quick dies on utf8 characters in URL's
>MIME-Version: 1.0
>Content-Type: text/plain; charset=UTF-8
>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.
>---
> 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 f9b1c32..22d2dfe 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.7.4

Actions: View | Diff | Splinter Review

Attachments on bug 21122: 77277 | 77289 | 77338 | 77339