120 lines
2.9 KiB
Perl
120 lines
2.9 KiB
Perl
package BeastBB;
|
|
|
|
use 5.30.3;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Data::Dumper;
|
|
|
|
use Mojo::Base 'Mojolicious';
|
|
use Mojo::File;
|
|
|
|
use Const::Fast;
|
|
use Params::ValidationCompiler 'validation_for';
|
|
|
|
use BeastBB::Constants (
|
|
'$HOME_DIR', '$HOME_CONFIG_DIR', '$CONFIG_FILE',
|
|
'$SECRET_DEFAULT_SIZE'
|
|
);
|
|
use BeastBB::ConfigWriter;
|
|
use BeastBB::Database;
|
|
use BeastBB::Response;
|
|
|
|
sub new {
|
|
my $class = shift;
|
|
my $self = $class->SUPER::new(@_);
|
|
$self;
|
|
}
|
|
|
|
sub startup {
|
|
my $self = shift;
|
|
$self->PrepareConfig;
|
|
$self->PrepareSecrets;
|
|
$self->PrepareRoutes;
|
|
$self->PrepareHelpers;
|
|
return $self;
|
|
}
|
|
|
|
sub PrepareHelpers {
|
|
my $self = shift;
|
|
my $database;
|
|
$self->helper(
|
|
db => sub {
|
|
if ( !defined $database ) {
|
|
my $config = $self->config;
|
|
$database =
|
|
BeastBB::Database->NewFromConfig( config => $config->{db} );
|
|
}
|
|
return $database;
|
|
}
|
|
);
|
|
$self->helper(
|
|
logged_user => sub {
|
|
my $self = shift;
|
|
my $session = $self->session;
|
|
return BeastBB::Response->new( is_error => 1, error_message => 'User is not logged in.');
|
|
my $username = $session->{username};
|
|
}
|
|
);
|
|
|
|
}
|
|
|
|
sub PrepareSecrets {
|
|
my $self = shift;
|
|
my $config = $self->config;
|
|
$self->secrets( $config->{secrets} );
|
|
}
|
|
|
|
sub PrepareRoutes {
|
|
my $self = shift;
|
|
my $routes = $self->routes;
|
|
|
|
@{ $self->renderer->paths() } =
|
|
( Mojo::File::curfile->dirname->child('BeastBB')->child('templates')
|
|
->to_string );
|
|
@{ $self->static->paths() } =
|
|
( Mojo::File::curfile->dirname->child('BeastBB')->child('public')
|
|
->to_string );
|
|
print Data::Dumper::Dumper $self->renderer->paths;
|
|
if ( !exists $self->config->{finished_install} ) {
|
|
$self->PrepareInstallationRoutes;
|
|
return;
|
|
}
|
|
|
|
$self->PrepareCommonRoutes;
|
|
}
|
|
|
|
sub PrepareCommonRoutes {
|
|
my $self = shift;
|
|
my $routes = $self->routes;
|
|
|
|
$routes->get('/')->to('Main#Index');
|
|
$routes->get('/login')->to('Main#GetLogin');
|
|
$routes->post('/login')->to('Main#Login');
|
|
$routes->post('/logout')->to('Main#Logout');
|
|
}
|
|
|
|
sub PrepareInstallationRoutes {
|
|
my $self = shift;
|
|
my $routes = $self->routes;
|
|
|
|
$routes->get('/')->to('install#welcome');
|
|
$routes->post('/install/database')->to('install#install_database');
|
|
$routes->post('/install/admin_user_create')
|
|
->to('install#admin_user_create');
|
|
}
|
|
|
|
sub PrepareConfig {
|
|
my $self = shift;
|
|
$HOME_CONFIG_DIR->make_path if !-e $HOME_CONFIG_DIR;
|
|
if ( !-e $CONFIG_FILE ) {
|
|
my $config_writer =
|
|
BeastBB::ConfigWriter->new( config_file => $CONFIG_FILE );
|
|
$config_writer->PopulateExampleConfigFile(
|
|
secret_size => $SECRET_DEFAULT_SIZE );
|
|
}
|
|
$self->plugin( Config => file => $CONFIG_FILE->to_string );
|
|
}
|
|
1;
|