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);
  39 use JSON;
  40
  41 use C4::Context;
  42 use C4::External::OverDrive;
  43 use C4::Output;
  44
  45 my $query = new CGI;
  46
  47 my $token;
  48
  49 if ( !IsOverDriveEnabled() || !( $token = GetOverDriveToken() ) ) {
  50     print $query->header(
  51         -status => '400 Bad Request',
  52     );
  53
  54     print to_json({
  55         error => 'invalid_client',
  56         error_description => 'OverDrive login failed'
  57     });
  58
  59     exit;
  60 }
  61
  62 my $request = HTTP::Request::Common::GET( "https://api.overdrive.com/v1" . $query->path_info . '?' . $query->query_string );
  63 $request->header( Authorization => $token );
  64
  65 my $ua = LWP::UserAgent->new( "Koha " . C4::Context->KOHAVERSION );
  66
  67 my $response = $ua->request( $request ) ;
  68 if ( $response->code eq '500' ) {
  69     print $query->header(
  70         -status => '500 Internal Server Error'
  71     );
  72
  73     warn "OverDrive request failed: " . $response->message;
  74     print to_json({
  75         error => 'invalid_client',
  76         error_description => 'OverDrive request failed'
  77     });
  78
  79     exit;
  80 }
  81
  82 output_with_http_headers $query, undef, $response->content, 'json', $response->status_line;