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 under the
   8 # terms of the GNU General Public License as published by the Free Software
   9 # Foundation; either version 2 of the License, or (at your option) any later
  10 # version.
  11 #
  12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  14 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  15 #
  16 # You should have received a copy of the GNU General Public License along
  17 # with Koha; if not, write to the Free Software Foundation, Inc.,
  18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  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         -content
  53     );
  54
  55     print to_json({
  56         error => 'invalid_client',
  57         error_description => 'OverDrive login failed'
  58     });
  59
  60     exit;
  61 }
  62
  63 my $request = HTTP::Request::Common::GET( "https://api.overdrive.com/v1" . $query->path_info . '?' . $query->query_string );
  64 $request->header( Authorization => $token );
  65
  66 my $ua = LWP::UserAgent->new( "Koha " . C4::Context->KOHAVERSION );
  67
  68 my $response = $ua->request( $request ) ;
  69 if ( $response->code eq '500' ) {
  70     print $query->header(
  71         -status => '500 Internal Server Error'
  72     );
  73
  74     warn "OverDrive request failed: " . $response->message;
  75     print to_json({
  76         error => 'invalid_client',
  77         error_description => 'OverDrive request failed'
  78     });
  79
  80     exit;
  81 }
  82
  83 output_with_http_headers $query, undef, $response->content, 'json', $response->status_line;