"Fossies" - the Fresh Open Source Software Archive

Member "koha-19.11.15/opac/svc/overdrive" (23 Feb 2021, 6054 Bytes) of package /linux/misc/koha-19.11.15.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. See also the last Fossies "Diffs" side-by-side code changes report for "overdrive": 20.05.06_vs_20.11.00.

    1 #!/usr/bin/perl
    2 
    3 # script to action OverDrive API calls
    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 JSON qw(encode_json);
   24 use C4::Auth qw(checkauth);
   25 use C4::Output;
   26 use Koha::Logger;
   27 use Koha::Patrons;
   28 use Koha::Library::OverDriveInfos;
   29 use Koha::ExternalContent::OverDrive;
   30 
   31 my $logger = Koha::Logger->get({ interface => 'opac' });
   32 our $cgi = new CGI;
   33 my $page_url = $cgi->referer();
   34 
   35 my ( $user, $cookie, $sessionID, $flags ) = checkauth( $cgi, 1, {}, 'opac' );
   36 $user && $sessionID or response_bad_request("User not logged in");
   37 
   38 my $action = $cgi->param('action') or response_bad_request("No 'action' specified");
   39 
   40 my $od = Koha::ExternalContent::OverDrive->new({ koha_session_id => $sessionID });
   41 my %data = (
   42    is_logged_in => JSON::false,
   43 );
   44 local $@;
   45 eval {
   46         {
   47             $action eq 'login' && do {
   48                 my $password = $cgi->param("password") // q{} ;
   49                 my $patron = Koha::Patrons->find({ userid => $user });
   50                 my $branch_info = $patron ? Koha::Library::OverDriveInfos->find( $patron->branchcode ) : undef;
   51                 my $od_username;
   52                 if ( C4::Context->preference('OverDriveUsername') eq 'cardnumber' ){
   53                     $od_username = $patron ? $patron->cardnumber : undef;
   54                 } else {
   55                     $od_username = $user;
   56                 }
   57                 my $branch_authname = $branch_info ? $branch_info->authname : undef;
   58                 my $authname = $branch_authname || C4::Context->preference('OverDriveAuthname');
   59                 $od->auth_by_userid($od_username, $password,C4::Context->preference('OverDriveWebsiteID'),$authname);
   60                 $data{login_success} = 1;
   61                 last;
   62             };
   63 
   64             if ($od->is_logged_in) {
   65                 $data{is_logged_in} = JSON::true;
   66 
   67                 $action eq 'logout' && do {
   68                     $od->forget();
   69                     $data{login_url} = $od->auth_url($page_url);
   70                     $data{is_logged_in} = JSON::false;
   71                     last;
   72                 };
   73 
   74                 $action eq 'account' && do {
   75                     $data{account} = $od->patron;
   76                     $data{checkouts} = $od->checkouts;
   77                     $data{holds} = $od->holds;
   78                     last;
   79                 };
   80 
   81                 $action eq 'checkout' && do {
   82                     my $id = $cgi->param('id')
   83                       or response_bad_request("No 'id' specified");
   84                     my $format = $cgi->param('format');
   85                     $data{action} = $od->checkout($id, $format);
   86                     $data{checkouts} = $od->checkouts;
   87                     $data{holds} = $od->holds;
   88                     last;
   89                 };
   90 
   91                 $action eq 'checkout-format' && do {
   92                     my $id = $cgi->param('id')
   93                       or response_bad_request("No 'id' specified");
   94                     my $format = $cgi->param('format')
   95                       or response_bad_request("No 'format' specified");
   96                     $data{action} = $od->lock_format($id, $format);
   97                     $data{checkouts} = $od->checkouts;
   98                     last;
   99                 };
  100 
  101                 $action eq 'download-url' && do {
  102                     my $id = $cgi->param('id')
  103                       or response_bad_request("No 'id' specified");
  104                     my $format = $cgi->param('format')
  105                       or response_bad_request("No 'format' specified");
  106                     $data{action} = $od->checkout_download_url($id, $format, $page_url, $page_url);
  107                     last;
  108                 };
  109 
  110                 $action eq 'return' && do {
  111                     my $id = $cgi->param('id')
  112                       or response_bad_request("No 'id' specified");
  113                     local $@;
  114                     $data{action} = eval { $od->return($id) };
  115                     $data{action} = $@ if $@;
  116                     $data{checkouts} = $od->checkouts;
  117                     last;
  118                 };
  119 
  120                 $action eq 'place-hold' && do {
  121                     my $id = $cgi->param('id')
  122                       or response_bad_request("No 'id' specified");
  123                     $data{action} = $od->place_hold($id);
  124                     $data{holds} = $od->holds;
  125                     last;
  126                 };
  127 
  128                 $action eq 'remove-hold' && do {
  129                     my $id = $cgi->param('id')
  130                       or response_bad_request("No 'id' specified");
  131                     local $@;
  132                     $data{action} = eval { $od->remove_hold($id) };
  133                     $data{action} = $@ if $@;
  134                     $data{holds} = $od->holds;
  135                     last;
  136                 };
  137 
  138                 response_bad_request("Invalid 'action': $action");
  139             }
  140         }
  141 };
  142 if ($@) {
  143     if ($od->is_not_authenticated_error("$@")) {
  144         $logger->debug("OverDrive session timeout");
  145         $data{is_logged_in} = JSON::false;
  146     } else {
  147         $logger->error($@);
  148         $data{error} = $od->error_message("$@");
  149     }
  150 }
  151 
  152 response(\%data);
  153 
  154 
  155 sub response_bad_request {
  156     my ($error) = @_;
  157     response({error => $error}, "400 $error");
  158 }
  159 sub response {
  160     my ($data, $status_line) = @_;
  161     $status_line ||= "200 OK";
  162     output_with_http_headers $cgi, undef, encode_json($data), 'json', $status_line;
  163     exit;
  164 }