File Coverage

lib/Mojolicious/Plugin/Qooxdoo.pm

Criterion	Covered	Total	%
statement	61	66	92.4
branch	15	24	62.5
condition	6	15	40.0
subroutine	6	7	85.7
pod	1	1	100.0
total	89	113	78.7

package Mojolicious::Plugin::Qooxdoo;

use Mojo::Base 'Mojolicious::Plugin';
use File::Spec::Functions qw(splitdir updir catdir file_name_is_absolute);
use Cwd qw(abs_path);

our $VERSION = '1.0.12';

sub register {
    my ($self, $app, $conf) = @_;

    # Config
    $conf ||= {};
    if ($conf->{prefix}) {
        $conf->{prefix} =~ s{^/+}{};
        $conf->{prefix} .= '/';
        $conf->{prefix} =~ s{/+/$}{/};
    }
    my $root = ($conf->{prefix} || '/');
    my $path = $conf->{path} || 'jsonrpc';
    my $r = $app->routes;

    if ($conf->{controller}){
        $r->any($root.$path)->to(
            controller  => $conf->{controller},
            action      => 'dispatch',
            $conf->{namespace} ? ( namespace   => $conf->{namespace}):(),
        );
    }
    if ($ENV{QX_SRC_MODE}){
        my $qx_app_src = abs_path(
            $ENV{QX_SRC_PATH} && file_name_is_absolute($ENV{QX_SRC_PATH})
            ? $ENV{QX_SRC_PATH}
            : $app->home->rel_file($ENV{QX_SRC_PATH} || catdir(updir,'frontend','source'))
        );
        $app->log->info("Runnning in QX_SRC_MODE with files from $qx_app_src");
        unshift @{$app->static->paths}, $qx_app_src;
        my %prefixCache;
        my $static = Mojolicious::Static->new();
        my $static_cb = sub {
            my $ctrl = shift;
            my $prefix = $ctrl->param('prefix');
            if ($ctrl->param('file')){
                $ctrl->req->url->path('/'.$prefix.'/'.$ctrl->param('file'));
            }
            if (not defined $prefixCache{$prefix}){
                my $prefix_local = catdir(split /\//, $prefix);
                my $path = $qx_app_src;
                my $last_path = '';
                while ($path ne $last_path and not -d catdir($path,$prefix_local)){
                    $last_path = $path;
                    $path = abs_path(catdir($last_path,updir));
                }
                $app->log->info("Auto register static path mapping from '$prefix' to '$path'");
                $prefixCache{$prefix} = $path;
            }
            $static->paths([$prefixCache{$prefix}]);

            unless ($static->dispatch($ctrl)){
                $ctrl->render(text=>$ctrl->req->url->path.' not found', status => 404);
            }
        };

        $r->get('/*prefix/framework/source/*a' => $static_cb );
        $r->get('/*prefix/source/class/*a' => $static_cb );
        $r->get('/*prefix/source/resource/*a' => $static_cb );
        $r->get('/*prefix/source/script/*a' => $static_cb );
        $r->get('/*prefix/downloads/*a/source/*b' => $static_cb );
        $r->get('/source/index.html' => {prefix=>'source'} => $static_cb );
        $r->get('/source/class/*b' => {prefix=>'source'} => $static_cb );
        $r->get('/source/resource/*b' => {prefix=>'source'} => $static_cb );
        $r->get('/source/script/*b' => {prefix=>'source'} => $static_cb );
        $r->get($root.'*file' => {prefix => 'source', file => 'index.html' } => $static_cb);
    }
    else {
        # redirect root to index.html
        $r->any('/' => sub { shift->reply->static('/index.html')});
        if ($root ne '/'){
            $app->hook(before_dispatch => sub {
                my $self = shift;
                my $file = $self->req->url->path->to_string;
                if ($file =~ s|^/${root}|/|){
                    if ($file eq '/') {
                        $file = '/index.html';
                    }
                    if (-r $app->home->rel_file('public'.$file)){
                        $self->req->url->path($file);
                        return $app->static->dispatch($self);
                    }
                }
           });
        }
    }
}

1;

__END__