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 |
- |
|
|