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

(-)a/misc/cronjobs/check-url-quick.pl (-3 / +18 lines)
Lines 27-32 use Koha::Biblios; Link Here
27
use AnyEvent;
27
use AnyEvent;
28
use AnyEvent::HTTP qw( http_request );
28
use AnyEvent::HTTP qw( http_request );
29
use Encode         qw( encode_utf8 );
29
use Encode         qw( encode_utf8 );
30
use HTTP::Request;
31
use LWP::UserAgent;
32
use URI;
30
33
31
my ( $verbose, $help, $html ) = ( 0, 0, 0 );
34
my ( $verbose, $help, $html ) = ( 0, 0, 0 );
32
my ( $host,    $host_intranet ) = ( '', '' );
35
my ( $host,    $host_intranet ) = ( '', '' );
Lines 108-115 sub check_all_url { Link Here
108
                            sub {
111
                            sub {
109
                                my ( undef, $hdr ) = @_;
112
                                my ( undef, $hdr ) = @_;
110
                                $count--;
113
                                $count--;
111
                                report( $hdr, $biblionumber, $url )
114
                                if ( $hdr->{Status} !~ /^2/ ) {
112
                                    if $hdr->{Status} !~ /^2/ || $verbose;
115
                                    my $request = HTTP::Request->new( 'GET' => $url );
116
                                    my $ua      = LWP::UserAgent->new;
117
                                    $ua->agent($user_agent);
118
                                    my $response = $ua->request($request);
119
                                    if ( $response->is_redirect ) {
120
                                        my $redirect_url = $response->header('Location');
121
                                        $redirect_url = URI->new_abs( $redirect_url, $url );
122
                                        $response     = $ua->get($redirect_url);
123
                                    }
124
                                    my $status_code = substr( $response->status_line, 0, 3 );
125
                                    my $reason      = substr( $response->status_line, 3 );
126
                                    report( { Status => $status_code, Reason => $reason }, $biblionumber, $url )
127
                                        if !$response->is_success || $verbose;
128
                                }
113
                            },
129
                            },
114
                        );
130
                        );
115
                    }
131
                    }
116
- 

Return to bug 30614