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

(-)a/misc/cronjobs/check-url-quick.pl (-1 / +2 lines)
Lines 24-29 use C4::Context; Link Here
24
use C4::Biblio;
24
use C4::Biblio;
25
use AnyEvent;
25
use AnyEvent;
26
use AnyEvent::HTTP;
26
use AnyEvent::HTTP;
27
use Encode;
27
28
28
my ( $verbose, $help, $html ) = ( 0, 0, 0 );
29
my ( $verbose, $help, $html ) = ( 0, 0, 0 );
29
my ( $host,    $host_intranet ) = ( '', '' );
30
my ( $host,    $host_intranet ) = ( '', '' );
Lines 96-101 sub check_all_url { Link Here
96
                        my $url = $field->subfield('u');
97
                        my $url = $field->subfield('u');
97
                        next unless $url;
98
                        next unless $url;
98
                        $url = "$host/$url" unless $url =~ /^http/i;
99
                        $url = "$host/$url" unless $url =~ /^http/i;
100
                        $url = encode_utf8($url);
99
                        $count++;
101
                        $count++;
100
                        http_request(
102
                        http_request(
101
                            HEAD    => $url,
103
                            HEAD    => $url,
102
- 

Return to bug 21122