package DocBook::Controller::Root;

use Mojo::Base 'Mojolicious::Controller';

sub shimmy {
    my $self = shift;

    $self->session('username', $self->param("name"));
}

1;

package DocBook;
use Mojo::Base 'Mojolicious';

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

    # Router
    my $r = $self->routes;

    $r->get('/')->to('root#index');
    $r->get('/session/:name')->to('root#shimmy', name => "");

    # Under
    my $login = $r->under(sub {
        my $self = shift;

        $DB::single = 1;

        my $username = $self->session('username') || '';

        if ($username eq '') {
            $self->redirect_to('/');

            return undef;
        }

        return 1;
    });

    # Login
    $login->get('/login')->to('root#login');
    $login->post('/login')->to('root#login');
}

1;