You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
47 lines
936 B
47 lines
936 B
package CMTD; |
|
|
|
use strict; |
|
use warnings; |
|
|
|
use Mojo::Base 'Mojolicious'; |
|
|
|
sub startup { |
|
my $self = shift; |
|
|
|
$self->plugin('CMTD::Helpers'); |
|
$self->plugin(Config => {file => 'cmtd.conf'}); |
|
|
|
$self->app->attr(captcha => sub { |
|
my $config = $self->app->config->{captcha}; |
|
require CMTD::Captcha; |
|
my $cap = CMTD::Captcha->new(%{ $config }); |
|
return $cap; |
|
}); |
|
$self->app->attr(db => sub { |
|
my $config = $self->app->config->{db} || []; |
|
require DBIx::Simple; |
|
my $dbh = DBIx::Simple->new(@{ $config }); |
|
return $dbh; |
|
}); |
|
|
|
# initial |
|
$self->app->maintenance; |
|
# periodic |
|
my $loop = Mojo::IOLoop->singleton; |
|
$loop->recurring(60 => sub { |
|
$self->app->maintenance; |
|
}); |
|
|
|
my $r = $self->routes; |
|
|
|
$r->get('/') |
|
-> to('main#index'); |
|
$r->get('/captcha') |
|
-> to('main#captcha'); |
|
$r->get('/comments/list') |
|
-> to('main#c_list'); |
|
$r->get('/comments/add') |
|
-> to('main#c_add'); |
|
} |
|
|
|
1;
|
|
|