From e1be20f6fc7755282a840cc0ce59fbd84395d03a Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 4 Oct 2016 11:15:16 +0100 Subject: [PATCH] Bug 17392: Make svc/overdrive_proxy plack safe --- opac/svc/overdrive_proxy | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/opac/svc/overdrive_proxy b/opac/svc/overdrive_proxy index fdddbbb..0a8097c 100755 --- a/opac/svc/overdrive_proxy +++ b/opac/svc/overdrive_proxy @@ -35,7 +35,7 @@ JS side from having to deal with cross-origin/authentication issues. use strict; use warnings; -use CGI qw(-oldstyle_urls -utf8); +use CGI qw( -utf8); use JSON; use C4::Context; @@ -46,8 +46,6 @@ use Koha; my $query = new CGI; -my $token; - if ( !IsOverDriveEnabled() || !( $token = GetOverDriveToken() ) ) { print $query->header( -status => '400 Bad Request', @@ -61,7 +59,12 @@ if ( !IsOverDriveEnabled() || !( $token = GetOverDriveToken() ) ) { exit; } -my $request = HTTP::Request::Common::GET( "https://api.overdrive.com/v1" . $query->path_info . '?' . $query->query_string ); +my $token; +my $q = $query->param('q'); +my $limit = $query->param('limit'); +my $offset = $query->param('offset'); + +my $request = HTTP::Request::Common::GET( "https://api.overdrive.com/v1?q=" . $q . "&limit=" . $limit . "&offset=".$offset); $request->header( Authorization => $token ); my $ua = LWP::UserAgent->new( "Koha " . Koha::version() ); -- 2.8.1