CharmBoard/lib/CharmBoard.pm

package CharmBoard;

use utf8;
use strict;
use warnings;
use experimental qw(try smartmatch);

use Mojo::Base 'Mojolicious', -signatures;
use CharmBoard::Schema;

# this method will run once at server start
sub startup {
  my $self = shift;

  # 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} ~~ 'mariadb') {
    $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', 'mariadb'"};

  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;

__END__