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;
51 if ( !IsOverDriveEnabled() || !( $token = GetOverDriveToken() ) ) {
53 -status => '400 Bad Request',
57 error => 'invalid_client',
58 error_description => 'OverDrive login failed'
64 my $request = HTTP::Request::Common::GET( "https://api.overdrive.com/v1" . $query->path_info . '?' . $query->query_string );
65 $request->header( Authorization => $token );
67 my $ua = LWP::UserAgent->new( "Koha " . Koha::version() );
69 my $response = $ua->request( $request ) ;
70 if ( $response->code eq '500' ) {
72 -status => '500 Internal Server Error'
75 warn "OverDrive request failed: " . $response->message;
77 error => 'invalid_client',
78 error_description => 'OverDrive request failed'
84 output_with_http_headers $query, undef, $response->content, 'json', $response->status_line;