CharmBoard/lib/CharmBoard.pm

package CharmBoard;

use utf8;
use strict;
use warnings;
use experimental qw(try);
use feature ':5.20';

use Mojo::Base 'Mojolicious', -signatures;
use CharmBoard::Model::Schema;
use CharmBoard::Util::Crypt::Seasoning;

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

  # load plugins that require no additional conf
  $self->plugin('TagHelpers');
  $self->plugin('Model', {namespaces => ['CharmBoard::Model']});

  # load configuration from config file
  my $config =
      $self->plugin('Config' => { file => 'charmboard.conf' });

  # set this specific forum's name
  $self->helper(board_name => sub { $config->{board_name} });

  # load dev env only stuff, if applicable
  if (lc($config->{environment}) eq 'dev') {
    $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, $_unicode);
    if (lc($self->config->{database}->{type}) eq 'sqlite') {
      $_dsn     = "dbi:SQLite:" . $config->{database}->{name};
      $_unicode = "sqlite_unicode"

    } elsif (lc($self->config->{database}->{type}) eq 'mariadb') {
      $_dsn     = "dbi:mysql:" . $config->{database}->{name};
      $_unicode = "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'"
    }

    our $schema = CharmBoard::Model::Schema->connect(
      $_dsn,
      $config->{database}->{user},
      $config->{database}->{pass},
      { $_unicode => 1 }
    );

    $self->helper(schema => sub { $schema })
  }

  # session helpers
  ## create session
  $self->helper(session_create => sub {
    my $self = shift;

    my $_session_key = seasoning(16);

    # create session entry in db
    $self->schema->resultset('Session')->create({
      session_key    => $_session_key,
      user_id        => $_[0],
      session_expiry => time + 604800,
      is_ip_bound    => 0,
      bound_ip       => undef
    });

    # now create session cookie
    $self->session(is_auth     => 1            );
    $self->session(user_id     => $_[0]        );
    $self->session(session_key => $_session_key);
    $self->session(expiration  => 604800       );
  });
  ## destroy session
  $self->helper(session_destroy => sub {
    my $self = shift;

    my $_session_key = $self->session('session_key');

    # destroy entry for this session in the database
    $self->schema->resultset('Session')
        ->search({ session_key => $_session_key })
        ->delete;

    # now nuke the actual session cookie
    $self->session(expires => 1);
  });
  ## verify session
  $self->helper(session_verify => sub {
    my $self = shift;

    # get info from user's session cookie and store it in vars
    my $_user_id = $self->session('user_id');
    my $_session_key = $self->session('session_key');

    my $_validity = 1;
    my $_catch_error;

    try {
      # check to see if session with this id is present in db
      ($self->schema->resultset('Session')->search
        ({ 'session_key' => $_session_key })
        ->get_column('session_key')->first)
            or die;

      # check to see if the current session key's user id matches
      # that of the user id in the database
      $_user_id == ($self->schema->resultset('Session')->
        session_uid($_session_key))
           or die;
      
      # check if session is still within valid time as recorded in
      # the db
      time < ($self->schema->resultset('Session')->
        session_expiry($_session_key))
            or die;
    } catch ($_catch_error) {
      $_validity = undef;
      $self->session_destroy;
    }
    
    return $_validity;
  });

  # 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'
  );

  # view subforum
  $r->get('/board/:id')->to(
    controller => 'Controller::ViewSubf',
    action     => 'subf_view'
  );

  # create thread
  $r->get('/board/:id/new')->to(
    controller => 'Controller::NewThread',
    action     => 'thread_compose'
  );
  $r->post('/board/:id/new')->to(
    controller => 'Controller::NewThread',
    action     => 'thread_submit'
  );
}

1;
__END__

=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 70 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.
=cut