package LDV; use strict; use warnings; use utf8; use Mojo::Base 'Mojolicious'; sub startup { my ($self) = @_; $self->plugin(I18N => {default => 'ru'}); my $config = $self->app->home->rel_file('conf/ldv.conf'); $self->plugin(Config => {file => $config}); $self->app->mode('production'); $self->app->secret($self->app->config->{secret}); $self->app->attr(ldap => sub { require LDV::LDAP; my $ldap = LDV::LDAP->new($self->app->config->{ldap}); return $ldap; }); my $r = $self->routes; # /user my $user = $r->route('/user') -> to(controller => 'user'); $user->get('/') ->to(cb => sub { shift->redirect_to('/user/login'); }); $user->get('/login') ->to(action => 'login'); $user->get('/register') ->to(action => 'register'); $user->get('/profile') ->to(action => 'profile'); $user->post('/auth') ->to(action => 'auth'); $user->get ('/logout') ->to(action => 'logout'); $user->post('/create') ->to(action => 'create'); $user->post('/update') ->to(action => 'update'); # /zerobin my $zb = $r->route('/zerobin2') -> to(controller => 'zerobin'); $zb->post('/') -> to(action => 'save'); $zb->get ('/') -> to(action => 'create'); $zb->route('/:time', time => qr/\d+/) ->via('GET') -> to(action => 'view'); my $root = $self->app->config->{zerobin}->{root}; mkdir $self->app->home->rel_dir($root); } 1;