Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 32030: add maintenance script for HoldingsIQ

Browse source 
Signed-off-by: Jonathan Field <jonathan.field@ptfs-europe.com>

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
Jonathan Druart 2022-05-30 10:34:00 +02:00 committed by Tomas Cohen Arazi
parent 70f5e7913c
commit 151f6f3f0c
Signed by: tomascohen
GPG key ID: 0A272EA1B2F3C15F
1 changed files with 58 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

58
misc/maintenance/erm/ebsco/populate_from_holdingsiq.pl Normal file
View file

@ -0,0 +1,58 @@
use Modern::Perl;
use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );
use JSON qw( from_json to_json );
use HTTP::Request;
use LWP::UserAgent;
our ( $custid, $api_key );
my( $help, $verbose );
GetOptions(
'help|h' => \$help,
'verbose|v' => \$verbose,
'custid:s' => \$custid,
'api-key:s' => \$api_key,
) || podusage(1);
pod2usage(1) if $help;
pod2usage("Parameters 'custid' and 'api-key' are mandatory") unless $custid && $api_key;
my $status = get_status();
say "Status of the snapshot: $status";
if ( $status ne 'Completed' && $status ne 'In Progress' ) {
say "Populate holdings...";
populate_holdings();
}
while ($status ne 'Completed') {
sleep(60);
$status = get_status();
say "Status: " . $status;
}
sub get_status {
my $response= request(GET => '/holdings/status');
my $result = from_json( $response->decoded_content );
return $result->{status};
}
sub populate_holdings {
my $response = request( POST => '/holdings' );
if ( $response->code != 202 && $response->code != 409 ) {
my $result = from_json( $response->decoded_content );
die sprintf "ERROR - code %s: %s\n", $response->code,
$result->{message};
}
}
sub request {
my ( $method, $url ) = @_;
my $base_url = 'https://api.ebsco.io/rm/rmaccounts/' . $custid;
my $request = HTTP::Request->new( $method => $base_url . $url);
$request->header( 'x-api-key' => $api_key );
my $ua = LWP::UserAgent->new;
return $ua->simple_request($request);
}