CharmBoard/lib/CharmBoard.pm

package CharmBoard;
use utf8;
use experimental 'try', 'smartmatch';
use Mojo::Base 'Mojolicious', -signatures;
use CharmBoard::Schema;

=pod
=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;