opac/svc/overdrive_proxy

   1 #!/usr/bin/perl
   2
   3 # Copyright 2013 ByWater
   4 #
   5 # This file is part of Koha.
   6 #
   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.
  11 #
  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.
  16 #
  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>.
  19
  20 =head1 NAME
  21
  22 svc/overdrive_proxy: Proxy OAuth'd requests to OverDrive
  23
  24 =head1 SYNOPSIS
  25
  26 svc/overdrive_proxy/libraries/9001 -> https://api.overdrive.com/v1/libraries/9001
  27
  28 =head1 DESCRIPTION
  29
  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.
  32
  33 =cut
  34
  35 use strict;
  36 use warnings;
  37
  38 use CGI qw(-oldstyle_urls -utf8);
  39 use JSON;
  40
  41 use C4::Context;
  42 use C4::External::OverDrive;
  43 use C4::Output;
  44
  45 use Koha;
  46
  47 my $query = new CGI;
  48
  49 my $token;
  50
  51 if ( !IsOverDriveEnabled() || !( $token = GetOverDriveToken() ) ) {
  52     print $query->header(
  53         -status => '400 Bad Request',
  54     );
  55
  56     print to_json({
  57         error => 'invalid_client',
  58         error_description => 'OverDrive login failed'
  59     });
  60
  61     exit;
  62 }
  63 my $fixed_query = $query->query_string;
  64 $fixed_query =~ tr/;/&/;
  65
  66 my $request = HTTP::Request::Common::GET( "https://api.overdrive.com/v1" . $query->path_info . '?' . $fixed_query );
  67 $request->header( Authorization => $token );
  68
  69 my $ua = LWP::UserAgent->new( "Koha " . Koha::version() );
  70
  71 my $response = $ua->request( $request ) ;
  72 if ( $response->code eq '500' ) {
  73     print $query->header(
  74         -status => '500 Internal Server Error'
  75     );
  76
  77     warn "OverDrive request failed: " . $response->message;
  78     print to_json({
  79         error => 'invalid_client',
  80         error_description => 'OverDrive request failed'
  81     });
  82
  83     exit;
  84 }
  85
  86 output_with_http_headers $query, undef, $response->content, 'json', $response->status_line;