|
Lines 174-184
sub harvest_sushi {
Link Here
|
| 174 |
$self->{report_type} = $args->{report_type}; |
174 |
$self->{report_type} = $args->{report_type}; |
| 175 |
$self->{begin_date} = $args->{begin_date}; |
175 |
$self->{begin_date} = $args->{begin_date}; |
| 176 |
$self->{end_date} = $args->{end_date}; |
176 |
$self->{end_date} = $args->{end_date}; |
| 177 |
my $url = $self->_build_url_query; |
177 |
my $url = $self->_build_url_query; |
| 178 |
my $request = HTTP::Request->new( 'GET' => $url ); |
178 |
my $response = _handle_sushi_request($url); |
| 179 |
my $ua = LWP::UserAgent->new; |
|
|
| 180 |
$ua->agent( 'Koha/' . Koha::version() ); |
| 181 |
my $response = $ua->simple_request($request); |
| 182 |
|
179 |
|
| 183 |
if ( $response->code >= 400 ) { |
180 |
if ( $response->code >= 400 ) { |
| 184 |
my $result = decode_json( $response->decoded_content ); |
181 |
my $result = decode_json( $response->decoded_content ); |
|
Lines 279-288
sub test_connection {
Link Here
|
| 279 |
$url .= '&requestor_id=' . $self->requestor_id if $self->requestor_id; |
276 |
$url .= '&requestor_id=' . $self->requestor_id if $self->requestor_id; |
| 280 |
$url .= '&api_key=' . $self->api_key if $self->api_key; |
277 |
$url .= '&api_key=' . $self->api_key if $self->api_key; |
| 281 |
|
278 |
|
| 282 |
my $request = HTTP::Request->new( 'GET' => $url ); |
279 |
my $response = _handle_sushi_request($url); |
| 283 |
my $ua = LWP::UserAgent->new; |
|
|
| 284 |
$ua->agent( 'Koha/' . Koha::version() ); |
| 285 |
my $response = $ua->simple_request($request); |
| 286 |
|
280 |
|
| 287 |
if ( $response->{_rc} >= 400 ) { |
281 |
if ( $response->{_rc} >= 400 ) { |
| 288 |
my $message = $response->{_msg}; |
282 |
my $message = $response->{_msg}; |
|
Lines 520-525
sub _counter_file_size_too_large {
Link Here
|
| 520 |
return 0; |
514 |
return 0; |
| 521 |
} |
515 |
} |
| 522 |
|
516 |
|
|
|
517 |
=head3 _handle_sushi_response |
| 518 |
|
| 519 |
Creates and sends the request based on a provided url |
| 520 |
Also handles any redirects |
| 521 |
|
| 522 |
=cut |
| 523 |
|
| 524 |
sub _handle_sushi_request { |
| 525 |
my ($url) = @_; |
| 526 |
|
| 527 |
my $request = HTTP::Request->new( 'GET' => $url ); |
| 528 |
my $ua = LWP::UserAgent->new; |
| 529 |
$ua->agent( 'Koha/' . Koha::version() ); |
| 530 |
my $response = $ua->simple_request($request); |
| 531 |
|
| 532 |
if ( $response->is_redirect ) { |
| 533 |
my $redirect_url = $response->header('Location'); |
| 534 |
$redirect_url = URI->new_abs( $redirect_url, $url ); |
| 535 |
$response = $ua->get($redirect_url); |
| 536 |
} |
| 537 |
|
| 538 |
return $response; |
| 539 |
} |
| 540 |
|
| 523 |
=head3 _type |
541 |
=head3 _type |
| 524 |
|
542 |
|
| 525 |
=cut |
543 |
=cut |
| 526 |
- |
|
|