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

(-)a/misc/cronjobs/check-url-quick.pl (+1 lines)
Lines 95-100 sub check_all_url { Link Here
95
                    foreach my $field ( $record->field($tag) ) {
95
                    foreach my $field ( $record->field($tag) ) {
96
                        my $url = $field->subfield('u');
96
                        my $url = $field->subfield('u');
97
                        next unless $url;
97
                        next unless $url;
98
                        next if $url =~ /^ftp/i;
98
                        $url = "$host/$url" unless $url =~ /^http/i;
99
                        $url = "$host/$url" unless $url =~ /^http/i;
99
                        $count++;
100
                        $count++;
100
                        http_request(
101
                        http_request(
(-)a/misc/cronjobs/check-url.pl (-2 / +3 lines)
Lines 112-118 sub check_biblio { Link Here
112
    foreach my $field ( $record->field('856') ) {
112
    foreach my $field ( $record->field('856') ) {
113
        my $url = $field->subfield('u');
113
        my $url = $field->subfield('u');
114
        next unless $url; 
114
        next unless $url; 
115
        $url = "$host/$url" unless $url =~ /^http/;
115
        next if $url =~ /^ftp/i;
116
117
        $url = "$host/$url" unless $url =~ /^http/i;
116
        my $check = { url => $url };
118
        my $check = { url => $url };
117
        if ( $bad_url->{ $url } ) {
119
        if ( $bad_url->{ $url } ) {
118
            $check->{ is_success } = 1;
120
            $check->{ is_success } = 1;
119
- 

Return to bug 14530