1 package C4::External::OverDrive;
3 # Copyright (c) 2013 ByWater
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or ( at your option ) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
26 use HTTP::Request::Common;
27 use LWP::Authen::Basic;
32 our $VERSION = 3.07.00.049;
33 our @ISA = qw( Exporter ) ;
42 my $ua = LWP::UserAgent->new( "Koha " . C4::Context->KOHAVERSION );
46 $response = $ua->request( $request ) ;
49 warn "OverDrive request failed: $@";
58 C4::External::OverDrive - Retrieve OverDrive content availability information
62 This module provides content search for OverDrive,
66 =item IsOverDriveEnabled
68 Returns 1 if all of the necessary system preferences for OverDrive are set.
74 sub IsOverDriveEnabled {
76 C4::Context->preference( 'OverDriveClientKey' ) &&
77 C4::Context->preference( 'OverDriveClientSecret' )
83 =item GetOverDriveToken
85 Fetches an OAuth2 auth token for the OverDrive API, reusing an existing token in
88 Returns the token ( as "bearer ..." ) or undef on failure.
94 sub GetOverDriveToken {
95 my $key = C4::Context->preference( 'OverDriveClientKey' );
96 my $secret = C4::Context->preference( 'OverDriveClientSecret' );
98 return unless ( $key && $secret ) ;
102 eval { $cache = Koha::Cache->new() };
105 $cache and $token = $cache->get_from_cache( "overdrive_token" ) and return $token;
107 my $request = HTTP::Request::Common::POST( 'https://oauth.overdrive.com/token', [
108 grant_type => 'client_credentials'
110 $request->header( Authorization => LWP::Authen::Basic->auth_header( $key, $secret ) );
112 my $response = _request( $request ) or return;
113 if ( $response->header('Content-Type') !~ m!application/json! ) {
114 warn "Could not connect to OverDrive: " . $response->message;
117 my $contents = from_json( $response->decoded_content );
119 if ( !$response->is_success ) {
120 warn "Could not log into OverDrive: " . ( $contents ? $contents->{'error_description'} : $response->decoded_content );
124 $token = $contents->{'token_type'} . ' ' . $contents->{'access_token'};
126 # Fudge factor to prevent spurious failures
127 $cache and $cache->set_in_cache( 'overdrive_token', $token, $contents->{'expires_in'} - 5 );
141 Jesse Weaver <pianohacker@gmail.com>