107 lines
3.0 KiB
Perl
107 lines
3.0 KiB
Perl
package CharmBoard;
|
|
use utf8;
|
|
use experimental 'try', 'smartmatch';
|
|
use Mojo::Base 'Mojolicious', -signatures;
|
|
use CharmBoard::Schema;
|
|
|
|
=pod
|
|
=encoding utf8
|
|
=head1 NAME
|
|
CharmBoard - revive the fun posting experience!
|
|
=head1 NOTES
|
|
This documentation is intended for prospective code
|
|
contributors. If you're looking to set CharmBoard up,
|
|
look for the Markdown format (.md) documentation instead.
|
|
|
|
CharmBoard uses a max line length of 60 chars and a tab
|
|
size of two spaces.
|
|
=head1 DESCRIPTION
|
|
CharmBoard is forum software written in Perl with
|
|
Mojolicious, intended to be a more fun alternative to the
|
|
bigger forum suites available today, inspired by older
|
|
forum software like AcmlmBoard, while also being more
|
|
modernized in terms of security practices than they are.
|
|
Customization ability is another important goal next to
|
|
making software that feels fun for the end user to use.
|
|
=cut
|
|
|
|
# this method will run once at server start
|
|
sub startup ($self) {
|
|
# load plugins that require no additional conf
|
|
$self->plugin('TagHelpers');
|
|
|
|
# load configuration from config file
|
|
my $config = $self->plugin('Config' =>
|
|
{file => 'charmboard.conf'});
|
|
|
|
# set this specific forum's name
|
|
$self->helper(boardName => sub {$config->{board_name}});
|
|
|
|
# load dev env only stuff, if applicable
|
|
if ( $config->{environment} eq 'dev' ) {
|
|
$self->plugin('Renderer::WithoutCache');
|
|
$self->renderer->cache->max_keys(0)};
|
|
|
|
# import Mojolicious secrets
|
|
$self->secrets($config->{secrets});
|
|
|
|
# import password pepper value
|
|
$self->helper(pepper => sub {$config->{pass_crypt}->{pepper}});
|
|
|
|
## database setup
|
|
# ? this could maybe be a given/when
|
|
my ($dsn, $dbUnicode);
|
|
if ($self->config->{database}->{type} ~~ 'sqlite') {
|
|
$dsn = "dbi:SQLite:" . $config->{database}->{name};
|
|
$dbUnicode = "sqlite_unicode"}
|
|
|
|
elsif ($self->config->{database}->{type} ~~ 'mysql') {
|
|
$dsn = "dbi:mysql:" . $config->{database}->{name};
|
|
$dbUnicode = "mysql_enable_utf"}
|
|
|
|
else {die "\nUnknown, unsupported, or empty database type
|
|
in charmboard.conf. If you're sure you've set it to
|
|
something supported, maybe double check your spelling?
|
|
\n\n\t
|
|
Valid options: 'sqlite', 'mysql'"};
|
|
|
|
my $schema = CharmBoard::Schema->connect(
|
|
$dsn,
|
|
$config->{database}->{user},
|
|
$config->{database}->{pass},
|
|
{$dbUnicode => 1});
|
|
$self->helper(schema => sub {$schema});
|
|
|
|
# router
|
|
my $r = $self->routes;
|
|
|
|
# controller routes
|
|
## index page
|
|
$r->get('/')->to(
|
|
controller => 'Controller::Index',
|
|
action => 'index');
|
|
|
|
## registration page
|
|
$r->get('/register')->to(
|
|
controller => 'Controller::Register',
|
|
action => 'register');
|
|
$r->post('/register')->to(
|
|
controller => 'Controller::Register',
|
|
action => 'register_do');
|
|
|
|
## login page
|
|
$r->get('/login')->to(
|
|
controller => 'Controller::Login',
|
|
action => 'login');
|
|
$r->post('/login')->to(
|
|
controller => 'Controller::Login',
|
|
action => 'login_do');
|
|
|
|
## logout
|
|
$r->get('/logout')->to(
|
|
controller => 'Controller::Logout',
|
|
action => 'logout_do')
|
|
}
|
|
|
|
1;
|