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