blob: 92097069ab8e103d16ef0c80d00a5ebe10dc9675 [file] [log] [blame]
Nils Diewald5d1ffb42014-05-21 17:45:34 +00001package Korap;
2use Mojo::Base 'Mojolicious';
3
Nils Diewald64bab252014-05-22 11:04:04 +00004our $VERSION = '0.01';
5
Nils Diewald5d1ffb42014-05-21 17:45:34 +00006# This method will run once at server start
7sub startup {
8 my $self = shift;
9
Nils Diewald33e15552014-06-13 19:38:37 +000010 $self->secrets(['fmhsfjgfchgsdbfgshfxztsbt32477eb45veu4vubrghfgghbtv']);
11
Nils Diewald5d1ffb42014-05-21 17:45:34 +000012 $self->plugin('Config');
Nils Diewald2329e1d2014-06-12 16:07:57 +000013 $self->plugin('CHI');
Nils Diewald02df9912014-06-03 16:08:07 +000014 $self->plugin('TagHelpers::Pagination' => {
15 prev => '<span><i class="fa fa-caret-left"></i></span>',
16 next => '<span><i class="fa fa-caret-right"></i></span>',
Nils Diewald2329e1d2014-06-12 16:07:57 +000017 ellipsis => '<span><i class="fa fa-ellipsis-h"></i></span>',
Nils Diewald02df9912014-06-03 16:08:07 +000018 separator => '',
19 current => '<span>{current}</span>',
20 page => '<span>{page}</span>'
21 });
Nils Diewalddd2d4e82014-05-31 17:08:33 +000022 $self->plugin('Notifications');
23 $self->plugin('Number::Commify');
Nils Diewald5d1ffb42014-05-21 17:45:34 +000024 push(@{$self->plugins->namespaces}, __PACKAGE__ . '::Plugin');
25 $self->plugin('KorapSearch');
Nils Diewald2329e1d2014-06-12 16:07:57 +000026 $self->plugin('KorapInfo');
27 $self->plugin('KorapTagHelpers');
28
29 $self->helper(
30 date_format => sub {
31 my ($c, $date) = @_;
32 return $date;
33 }
34 );
35
Nils Diewald64bab252014-05-22 11:04:04 +000036 # Routes
Nils Diewald5d1ffb42014-05-21 17:45:34 +000037 my $r = $self->routes;
38
Nils Diewalddd2d4e82014-05-31 17:08:33 +000039 # Create search endpoint
Nils Diewald5d1ffb42014-05-21 17:45:34 +000040 $r->add_shortcut(
41 search => sub {
Nils Diewald33e15552014-06-13 19:38:37 +000042 shift->route('/search')->to('search#remote')
Nils Diewald5d1ffb42014-05-21 17:45:34 +000043 }
44 );
45
Nils Diewald64bab252014-05-22 11:04:04 +000046 $r->get('/')->to(
47 cb => sub {
48 my $c = shift;
Nils Diewalddd2d4e82014-05-31 17:08:33 +000049 $c->render(
50 text =>
51 'Go to '.
52 $c->link_to('search', '/collection/search'));
Nils Diewald64bab252014-05-22 11:04:04 +000053 }
54 );
55
Nils Diewald33e15552014-06-13 19:38:37 +000056
57
58 $r->get('/util/query')->to('search#query');
59
Nils Diewald2329e1d2014-06-12 16:07:57 +000060 # Tutorial
61 $r->get('/tutorial')->to('tutorial#page')->name('tutorial');
62 $r->get('/tutorial/(*tutorial)')->to('tutorial#page');
63
Nils Diewald33e15552014-06-13 19:38:37 +000064 my $res = $r->route('/:resource', resource => [qw/collection corpus/]);
65 $res->to('search#info');
66 $res->search;
67 $res->route('/:corpus_id')->search;
68# $r->get(
69# '/:resource/:corpus_id/#doc_id/#match_id',
70# resource => [qw/collection corpus/])->to('search#match')->name('match');
71 # /matchInfo?id=...&f=&l=&spans
Nils Diewald64bab252014-05-22 11:04:04 +000072};
73
Nils Diewald5d1ffb42014-05-21 17:45:34 +000074
751;
Nils Diewald33e15552014-06-13 19:38:37 +000076
77__END__
78
79 # TODO: Write search snippet