3 # Copyright 2013 ByWater
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
22 svc/overdrive_proxy: Proxy OAuth'd requests to OverDrive
26 svc/overdrive_proxy/libraries/9001 -> https://api.overdrive.com/v1/libraries/9001
30 This service proxies incoming requests to the OverDrive OAuth API, to keep the
31 JS side from having to deal with cross-origin/authentication issues.
38 use CGI
qw(-oldstyle_urls -utf8);
42 use C4
::External
::OverDrive
;
49 if ( !IsOverDriveEnabled
() || !( $token = GetOverDriveToken
() ) ) {
51 -status
=> '400 Bad Request',
55 error
=> 'invalid_client',
56 error_description
=> 'OverDrive login failed'
62 my $request = HTTP
::Request
::Common
::GET
( "https://api.overdrive.com/v1" . $query->path_info . '?' . $query->query_string );
63 $request->header( Authorization
=> $token );
65 my $ua = LWP
::UserAgent
->new( "Koha " . C4
::Context
->KOHAVERSION );
67 my $response = $ua->request( $request ) ;
68 if ( $response->code eq '500' ) {
70 -status
=> '500 Internal Server Error'
73 warn "OverDrive request failed: " . $response->message;
75 error
=> 'invalid_client',
76 error_description
=> 'OverDrive request failed'
82 output_with_http_headers
$query, undef, $response->content, 'json', $response->status_line;