View | Details | Raw Unified | Return to bug 28603
Collapse All | Expand All

(-)a/misc/cronjobs/check-url-quick.pl (-1 / +2 lines)
Lines 27-32 use C4::Biblio; Link Here
27
use AnyEvent;
27
use AnyEvent;
28
use AnyEvent::HTTP;
28
use AnyEvent::HTTP;
29
use Encode;
29
use Encode;
30
use URI::Escape;
30
31
31
my ( $verbose, $help, $html ) = ( 0, 0, 0 );
32
my ( $verbose, $help, $html ) = ( 0, 0, 0 );
32
my ( $host,    $host_intranet ) = ( '', '' );
33
my ( $host,    $host_intranet ) = ( '', '' );
Lines 100-105 sub check_all_url { Link Here
100
                        next unless $url;
101
                        next unless $url;
101
                        $url = "$host/$url" unless $url =~ /^http/i;
102
                        $url = "$host/$url" unless $url =~ /^http/i;
102
                        $url = encode_utf8($url);
103
                        $url = encode_utf8($url);
104
                        $url = uri_escape( $url, " " );
103
                        $count++;
105
                        $count++;
104
                        http_request(
106
                        http_request(
105
                            HEAD    => $url,
107
                            HEAD    => $url,
106
- 

Return to bug 28603