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
  64 my $request = HTTP::Request::Common::GET( "https://api.overdrive.com/v1" . $query->path_info . '?' . $query->query_string );
  65 $request->header( Authorization => $token );
  66
  67 my $ua = LWP::UserAgent->new( "Koha " . Koha::version() );
  68
  69 my $response = $ua->request( $request ) ;
  70 if ( $response->code eq '500' ) {
  71     print $query->header(
  72         -status => '500 Internal Server Error'
  73     );
  74
  75     warn "OverDrive request failed: " . $response->message;
  76     print to_json({
  77         error => 'invalid_client',
  78         error_description => 'OverDrive request failed'
  79     });
  80
  81     exit;
  82 }
  83
  84 output_with_http_headers $query, undef, $response->content, 'json', $response->status_line;