- 

#!/usr/bin/perl

# This file is part of Koha.

#

# This program is free software: you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation, either version 3 of the License, or

# (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with this program.  If not, see <http://www.gnu.org/licenses/>.

use Modern::Perl;

use FindBin;

use Plack::Builder;

use Plack::App::CGIBin;

use Mojo::Server::PSGI;

# Pre-load libraries

use C4::Boolean;

use C4::Koha;

use C4::Languages;

use C4::Letters;

use C4::Members;

use C4::XSLT;

use Koha::Caches;

use Koha::Cache::Memory::Lite;

use Koha::Database;

use Koha::DateUtils;

use CGI qw(-utf8 ); # we will loose -utf8 under plack, otherwise

{

    no warnings 'redefine';

    my $old_new = \&CGI::new;

    *CGI::new = sub {

        my $q = $old_new->( @_ );

        $CGI::PARAM_UTF8 = 1;

        Koha::Caches->flush_L1_caches();

        Koha::Cache::Memory::Lite->flush();

        return $q;

    };

}

my $home = $FindBin::Bin;

my $intranet = Plack::App::CGIBin->new(

    root => $home

)->to_app;

my $opac = Plack::App::CGIBin->new(

    root => "$home/opac"

)->to_app;

my $apiv1 = builder {

    my $server = Mojo::Server::PSGI->new;

    $server->load_app("$home/api/v1/app.pl");

    $server->to_psgi_app;

};

builder {

    enable "ReverseProxy";

    enable "+Koha::Middleware::SetEnv";

    mount '/opac'          => $opac;

    mount '/intranet'      => $intranet;

    mount '/api/v1/app.pl' => $apiv1;

};