3 # script to action OverDrive API calls
5 # Copyright 2015 Catalyst IT
6 # This file is part of Koha.
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.
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.
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>.
23 use JSON qw(encode_json);
24 use C4::Auth qw( checkauth );
25 use C4::Output qw( output_with_http_headers );
28 use Koha::Library::OverDriveInfos;
29 use Koha::ExternalContent::OverDrive;
31 my $logger = Koha::Logger->get({ interface => 'opac' });
33 my $page_url = $cgi->referer();
35 my ( $user, $cookie, $sessionID, $flags ) = checkauth( $cgi, 1, {}, 'opac' );
36 $user && $sessionID or response_bad_request("User not logged in");
38 my $action = $cgi->param('action') or response_bad_request("No 'action' specified");
40 my $od = Koha::ExternalContent::OverDrive->new({ koha_session_id => $sessionID });
42 is_logged_in => JSON::false,
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;
52 if ( C4::Context->preference('OverDriveUsername') eq 'cardnumber' ){
53 $od_username = $patron ? $patron->cardnumber : undef;
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;
64 if ($od->is_logged_in) {
65 $data{is_logged_in} = JSON::true;
67 $action eq 'logout' && do {
69 $data{login_url} = $od->auth_url($page_url);
70 $data{is_logged_in} = JSON::false;
74 $action eq 'account' && do {
75 $data{account} = $od->patron;
76 $data{checkouts} = $od->checkouts;
77 $data{holds} = $od->holds;
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;
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;
101 $action eq 'download-url' && do {
102 my $id = $cgi->param('id')
103 or response_bad_request("No 'id' specified");
104 $data{action} = $od->checkout_download_url($id);
108 $action eq 'return' && do {
109 my $id = $cgi->param('id')
110 or response_bad_request("No 'id' specified");
112 $data{action} = eval { $od->return($id) };
113 $data{action} = $@ if $@;
114 $data{checkouts} = $od->checkouts;
118 $action eq 'place-hold' && do {
119 my $id = $cgi->param('id')
120 or response_bad_request("No 'id' specified");
121 $data{action} = $od->place_hold($id);
122 $data{holds} = $od->holds;
126 $action eq 'remove-hold' && do {
127 my $id = $cgi->param('id')
128 or response_bad_request("No 'id' specified");
130 $data{action} = eval { $od->remove_hold($id) };
131 $data{action} = $@ if $@;
132 $data{holds} = $od->holds;
136 response_bad_request("Invalid 'action': $action");
141 if ($od->is_not_authenticated_error("$@")) {
142 $logger->debug("OverDrive session timeout");
143 $data{is_logged_in} = JSON::false;
146 $data{error} = $od->error_message("$@");
153 sub response_bad_request {
155 response({error => $error}, "400 $error");
158 my ($data, $status_line) = @_;
159 $status_line ||= "200 OK";
160 output_with_http_headers $cgi, undef, encode_json($data), 'json', $status_line;