blob: 7103fe99850daf9585c6789b41f07d213560b7a7 [file] [log] [blame]
Nils Diewald2fe12e12015-03-06 16:47:06 +00001package Kalamar;
Nils Diewald5d1ffb42014-05-21 17:45:34 +00002use Mojo::Base 'Mojolicious';
Nils Diewalde2c83812014-11-11 21:13:18 +00003use Mojo::ByteStream 'b';
Nils Diewalda944fab2015-04-08 21:02:04 +00004use Mojo::JSON 'decode_json';
Nils Diewald5d1ffb42014-05-21 17:45:34 +00005
Nils Diewald709f52f2015-05-21 18:32:58 +00006# Minor version - may be patched from package.json
7our $VERSION = '0.15';
Nils Diewald7cad8402014-07-08 17:06:56 +00008
Nils Diewald7148c6f2015-05-04 15:07:53 +00009# TODO: The FAQ-Page has a contact form for new questions
Nils Diewald709f52f2015-05-21 18:32:58 +000010# TODO: Embed query serialization
11# TODO: Embed collection statistics
12# TODO: Implement tab opener for matches and the tutorial
13# TODO: Make the tutorial ql sensitive
14# TODO: Implement a "projects" system
Nils Diewald7148c6f2015-05-04 15:07:53 +000015
Nils Diewald002e8fb2014-06-22 14:27:01 +000016# Start the application and register all routes and plugins
Nils Diewald5d1ffb42014-05-21 17:45:34 +000017sub startup {
18 my $self = shift;
19
Nils Diewalda944fab2015-04-08 21:02:04 +000020 # Set version based on package file
Nils Diewald709f52f2015-05-21 18:32:58 +000021 # This may introduce a SemVer patch number
22 my $pkg = b($self->home . '/package.json')->slurp;
23 $Kalamar::VERSION = decode_json($pkg)->{version};
Nils Diewalda944fab2015-04-08 21:02:04 +000024
Nils Diewaldab4d3ca2015-04-17 01:48:43 +000025 # Add additional plugin path
26 push(@{$self->plugins->namespaces}, __PACKAGE__ . '::Plugin');
27
Nils Diewalda79b2682015-05-18 18:34:06 +000028 # korap.ids-mannheim.de specific path prefixing
Nils Diewalda0defc42015-05-07 23:54:17 +000029 $self->hook(
30 before_dispatch => sub {
31 my $c = shift;
32 my $host = $c->req->headers->header('X-Forwarded-Host');
33 if ($host && $host eq 'korap.ids-mannheim.de') {
34 $c->req->url->base->path('/kalamar/');
Nils Diewald705b74a2015-05-07 23:57:34 +000035 $c->stash(prefix => '/kalamar');
Nils Diewalda0defc42015-05-07 23:54:17 +000036 };
37 }) if $self->mode eq 'production';
38
Nils Diewalda748b0e2015-05-19 22:54:06 +000039
Nils Diewaldfccfbcb2015-04-29 20:48:19 +000040 # Set secrets for signed cookies
Nils Diewald19402142015-04-30 15:44:52 +000041 if (-e (my $secret = $self->home . '/kalamar.secret')) {
Nils Diewalda79b2682015-05-18 18:34:06 +000042
43 # Load file and split lines for multiple secrets
44 $self->secrets([b($secret)->slurp->split("\n")]);
Nils Diewald4347ee92015-05-04 20:32:48 +000045 }
Nils Diewald709f52f2015-05-21 18:32:58 +000046
47 # File not found ...
48 # Kalamar needs secrets in a file to be easily deployable
49 # and publishable at the same time.
Nils Diewald4347ee92015-05-04 20:32:48 +000050 else {
51 $self->log->warn('Please create a kalamar.secret file');
Nils Diewald19402142015-04-30 15:44:52 +000052 };
Nils Diewaldfccfbcb2015-04-29 20:48:19 +000053
Nils Diewald709f52f2015-05-21 18:32:58 +000054
Nils Diewaldab4d3ca2015-04-17 01:48:43 +000055 # Load plugins
Nils Diewaldfccfbcb2015-04-29 20:48:19 +000056 foreach (
Nils Diewaldc46003b2015-05-07 15:55:35 +000057 'Config', # Configuration framework
58 'Localize', # Localization framework
59 'Notifications', # Client notifications
60 'Search', # Abstract Search framework
61 'CHI', # Global caching mechanism
62 'TagHelpers::Pagination', # Pagination widget
63 'TagHelpers::MailToChiffre', # Obfuscate email addresses
Nils Diewalda79b2682015-05-18 18:34:06 +000064 'KalamarHelpers', # Specific Helpers for Kalamar
Nils Diewaldfccfbcb2015-04-29 20:48:19 +000065 ) {
Nils Diewaldab4d3ca2015-04-17 01:48:43 +000066 $self->plugin($_);
67 };
68
Nils Diewald709f52f2015-05-21 18:32:58 +000069
Nils Diewaldfccfbcb2015-04-29 20:48:19 +000070 # Configure mail exception
Nils Diewaldab4d3ca2015-04-17 01:48:43 +000071 $self->plugin('MailException' => $self->config('MailException'));
72
Nils Diewald709f52f2015-05-21 18:32:58 +000073
Nils Diewaldfccfbcb2015-04-29 20:48:19 +000074 # Configure documentation navigation
Nils Diewald7148c6f2015-05-04 15:07:53 +000075 my $navi = b($self->home . '/templates/doc/navigation.json')->slurp;
76 $self->config(navi => decode_json($navi)) if $navi;
Nils Diewaldfccfbcb2015-04-29 20:48:19 +000077
Nils Diewald709f52f2015-05-21 18:32:58 +000078
Nils Diewaldab4d3ca2015-04-17 01:48:43 +000079 # Establish routes
80 my $r = $self->routes;
81
Nils Diewalda79b2682015-05-18 18:34:06 +000082 # Base query route
Nils Diewaldab4d3ca2015-04-17 01:48:43 +000083 $r->get('/')->to('search#query')->name('index');
84
Nils Diewalda79b2682015-05-18 18:34:06 +000085 # Documentation routes
Nils Diewald7148c6f2015-05-04 15:07:53 +000086 $r->get('/doc')->to('documentation#page', page => 'korap')->name('doc_start');
Nils Diewaldab4d3ca2015-04-17 01:48:43 +000087 $r->get('/doc/:page')->to('documentation#page', scope => undef);
88 $r->get('/doc/*scope/:page')->to('documentation#page')->name('doc');
Nils Diewaldab4d3ca2015-04-17 01:48:43 +000089
Nils Diewaldc46003b2015-05-07 15:55:35 +000090 # Contact route
91 $r->get('/contact')->to('documentation#contact');
92 $r->get('/contact')->mail_to_chiffre('documentation#contact');
93
Nils Diewald7148c6f2015-05-04 15:07:53 +000094 # Match route
Nils Diewald8f4b5da2014-12-03 22:13:39 +000095 my $corpus = $r->route('/corpus/:corpus_id');
Nils Diewald7148c6f2015-05-04 15:07:53 +000096 my $doc = $corpus->get('/:doc_id');
97 my $text = $doc->get('/:text_id');
98 my $match = $text->get('/:match_id');
99 $match->to('search#match_info')->name('match');
Akroncddd1642015-06-10 21:31:53 +0200100
101 # Default user is called 'korap'
102 # $r->route('/user/:user/:collection')
Nils Diewald996aa552014-12-02 03:26:44 +0000103};
104
105
1061;
107
108
109__END__
Nils Diewalda898dac2015-05-06 21:04:16 +0000110
111=pod
112
Nils Diewaldeb5f3072015-05-20 09:32:42 +0000113=encoding utf8
Nils Diewalda898dac2015-05-06 21:04:16 +0000114
Nils Diewaldeb5f3072015-05-20 09:32:42 +0000115=head1 NAME
116
117Kalamar
Nils Diewalda0defc42015-05-07 23:54:17 +0000118
119
Nils Diewaldeb5f3072015-05-20 09:32:42 +0000120=head1 DESCRIPTION
Nils Diewalda0defc42015-05-07 23:54:17 +0000121
Nils Diewaldeb5f3072015-05-20 09:32:42 +0000122L<Kalamar> is a L<Mojolicious|http://mojolicio.us/> based user interface
123frontend for the L<KorAP Corpus Analysis Platform|http://korap.ids-mannheim.de/>.
124
Akron456abd92015-06-02 15:07:21 +0200125B<See the README for further information!>
Nils Diewaldeb5f3072015-05-20 09:32:42 +0000126
Akron456abd92015-06-02 15:07:21 +0200127=head2 COPYRIGHT AND LICENSE
Nils Diewalda748b0e2015-05-19 22:54:06 +0000128
129Copyright (C) 2015, L<IDS Mannheim|http://www.ids-mannheim.de/>
130Author: L<Nils Diewald|http://nils-diewald.de/>
131
132Kalamar is developed as part of the L<KorAP|http://korap.ids-mannheim.de/>
133Corpus Analysis Platform at the
134L<Institute for the German Language (IDS)|http://ids-mannheim.de/>,
135member of the
136L<Leibniz-Gemeinschaft|http://www.leibniz-gemeinschaft.de/en/about-us/leibniz-competition/projekte-2011/2011-funding-line-2/>
137and supported by the L<KobRA|http://www.kobra.tu-dortmund.de> project,
138funded by the
139L<Federal Ministry of Education and Research (BMBF)|http://www.bmbf.de/en/>.
140
141Kalamar is free software published under the
Akron456abd92015-06-02 15:07:21 +0200142L<BSD-2 License|https://raw.githubusercontent.com/KorAP/Kalamar/master/LICENSE>.
Nils Diewalda748b0e2015-05-19 22:54:06 +0000143
144=cut