1 package Koha::REST::V1;
3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 3 of the License, or (at your option) any later
10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
14 # You should have received a copy of the GNU General Public License along
15 # with Koha; if not, write to the Free Software Foundation, Inc.,
16 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19 use Mojo::Base 'Mojolicious';
21 use C4::Auth qw( check_cookie_auth get_session );
28 my $route = $self->routes->under->to(
31 # Mojo doesn't use %ENV the way CGI apps do
32 # Manually pass the remote_address to check_auth_cookie
33 my $remote_addr = $c->tx->remote_address;
34 my ($status, $sessionID) = check_cookie_auth(
35 $c->cookie('CGISESSID'), undef,
36 { remote_addr => $remote_addr });
38 if ($status eq "ok") {
39 my $session = get_session($sessionID);
40 my $user = Koha::Patrons->find($session->param('number'));
41 $c->stash('koha.user' => $user);
48 # Force charset=utf8 in Content-Type header for JSON responses
49 $self->types->type(json => 'application/json; charset=utf8');
51 my $secret_passphrase = C4::Context->config('api_secret_passphrase');
52 if ($secret_passphrase) {
53 $self->secrets([$secret_passphrase]);
56 $self->plugin(Swagger2 => {
58 url => $self->home->rel_file("api/v1/swagger.min.json"),