koha-dev.rot13.org Git - srvgit/blob - opac/external/overdrive/auth.pl

   1 #!/usr/bin/perl
   2
   3 # script to handle redirect back from OverDrive auth endpoint
   4
   5 # Copyright 2015 Catalyst IT
   6 # This file is part of Koha.
   7 #
   8 # Koha is free software; you can redistribute it and/or modify it
   9 # under the terms of the GNU General Public License as published by
  10 # the Free Software Foundation; either version 3 of the License, or
  11 # (at your option) any later version.
  12 #
  13 # Koha is distributed in the hope that it will be useful, but
  14 # WITHOUT ANY WARRANTY; without even the implied warranty of
  15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  16 # GNU General Public License for more details.
  17 #
  18 # You should have received a copy of the GNU General Public License
  19 # along with Koha; if not, see <http://www.gnu.org/licenses>.
  20
  21 use Modern::Perl;
  22 use CGI qw ( -utf8 );
  23 use URI;
  24 use URI::Escape;
  25 use C4::Auth qw(checkauth);
  26 use Koha::Logger;
  27 use Koha::ExternalContent::OverDrive;
  28
  29 my $logger = Koha::Logger->get({ interface => 'opac' });
  30 my $cgi = CGI->new;
  31
  32 my ( $user, $cookie, $sessionID, $flags ) = checkauth( $cgi, 1, {}, 'opac' );
  33 my ($redirect_page, $error);
  34 if ($user && $sessionID) {
  35     my $od = Koha::ExternalContent::OverDrive->new({ koha_session_id => $sessionID });
  36     if ( my $auth_code = $cgi->param('code') ) {
  37         my $base_url = $cgi->url(-base => 1);
  38         local $@;
  39         $redirect_page = eval { $od->auth_by_code($auth_code, $base_url) };
  40         if ($@) {
  41             $logger->error($@);
  42             $error = $od->error_message($@);
  43         }
  44     }
  45     else {
  46         $error = "Missing OverDrive auth code";
  47     }
  48     $redirect_page ||= $od->get_return_page_from_koha_session;
  49 }
  50 else {
  51     $error = "User not logged in";
  52 }
  53 $redirect_page ||= "/cgi-bin/koha/opac-user.pl";
  54 my $uri = URI->new($redirect_page);
  55 $uri->query_form( $uri->query_form, overdrive_tab => 1, overdrive_error => uri_escape($error || "") );
  56 print $cgi->redirect($redirect_page);