#!/usr/bin/env perl

use 5.036;

use strict;
use warnings;
use DDP;

use Plack::Builder;
use Plack::Session::Store::DBI;

use DBIx::Connector;
use HTML::Composer;
use FindBin;
use utf8::all;
use lib "$FindBin::Bin/../lib";

use CW;
use CW::Config;
use CW::Router;
use CW::Migration;

my $h       = HTML::Composer->new();
my $conf    = CW::Config->new;
my $db_conf = $conf->get('db');
my $conn    = DBIx::Connector->new(
    $db_conf->get('dsn'),
    $db_conf->get('username'),
    $db_conf->get('password')
);

CW::Migration->migrate( $conn->dbh );

my $router = CW::Router->new();

$router->get('/')->action('Index#index');
$router->get('/{board}')->action('Board#index');

builder {
    enable 'Session', store => Plack::Session::Store::DBI->new(
        get_dbh => sub {
            return $conn->dbh;
        }
    );
    enable 'Static', path => sub {
        /^\/robots\.txt/ or /^\/static\//;
      },
      root => "./public";
    CW->new(
        dbh         => $conn->dbh,
        environment => $conf->get('environment'),
        h           => $h,
        router      => $router
    )->app;
};