37 lines
998 B
Perl
37 lines
998 B
Perl
package Mounter;
|
|
use Mojo::Base 'Mojolicious';
|
|
use FindBin qw($Bin);
|
|
use File::Spec qw(catfile);
|
|
|
|
# This method will run once at server start
|
|
sub startup {
|
|
my $self = shift;
|
|
|
|
push @{$self->commands->namespaces}, 'Lufi::Command';
|
|
|
|
my $config = $self->plugin('Config' =>
|
|
{
|
|
file => File::Spec->catfile($Bin, '..' ,'lufi.conf'),
|
|
default => {
|
|
prefix => '/',
|
|
theme => 'default',
|
|
}
|
|
}
|
|
);
|
|
|
|
# Helpers
|
|
$self->plugin('Lufi::Plugin::Helpers');
|
|
|
|
# Themes handling
|
|
shift @{$self->static->paths};
|
|
if ($config->{theme} ne 'default') {
|
|
my $theme = $self->home->rel_file('themes/'.$config->{theme});
|
|
push @{$self->static->paths}, $theme.'/public' if -d $theme.'/public';
|
|
}
|
|
push @{$self->static->paths}, $self->home->rel_file('themes/default/public');
|
|
|
|
$self->plugin('Mount' => {$config->{prefix} => File::Spec->catfile($Bin, '..', 'script', 'application')});
|
|
}
|
|
|
|
1;
|