blob: 5980b3f33f0ce796755f459058df1d7c978667b3 [file] [log] [blame]
Nils Diewald5d1ffb42014-05-21 17:45:34 +00001package Korap::Search;
2use Mojo::Base 'Mojolicious::Controller';
3
Nils Diewald996aa552014-12-02 03:26:44 +00004# Add X-Forwarded-For to user agent call everywhere
5
6
Nils Diewald5d1ffb42014-05-21 17:45:34 +00007# This action will render a template
8sub remote {
9 my $c = shift;
Nils Diewald2329e1d2014-06-12 16:07:57 +000010 $c->layout('default');
11 $c->title('KorAP');
Nils Diewald5d1ffb42014-05-21 17:45:34 +000012
Nils Diewald7cad8402014-07-08 17:06:56 +000013 my $api = $c->config('KorAP')->{'api-0.1'};
14
15 # Todo: Support query building directly
Nils Diewald2329e1d2014-06-12 16:07:57 +000016 if ((scalar $c->param('action') // '') eq 'inspect') {
Nils Diewald7cad8402014-07-08 17:06:56 +000017 my $url = Mojo::URL->new($api)->path('search');
Nils Diewald33e15552014-06-13 19:38:37 +000018
Nils Diewald02df9912014-06-03 16:08:07 +000019 $url->query({
Nils Diewald94bae912014-09-22 13:40:31 +000020 q => scalar $c->param('q') // '',
Nils Diewald02df9912014-06-03 16:08:07 +000021 ql => scalar $c->param('ql') // 'poliqarp'
22 });
Nils Diewald33e15552014-06-13 19:38:37 +000023
Nils Diewald7cad8402014-07-08 17:06:56 +000024 my $tx = $c->ua->build_tx(TRACE => $url);
Nils Diewald446fbe72014-09-02 17:13:40 +000025
26 $c->app->log->debug('Trace URL: ' . $url);
27 $c->app->log->debug('Trace Request: ' . $tx->req->url);
28
Nils Diewald7cad8402014-07-08 17:06:56 +000029 if (my $response = $c->ua->start($tx)->success) {
Nils Diewald02df9912014-06-03 16:08:07 +000030 $c->stash('search.query' => $response->json);
31 }
32 else {
Nils Diewald7cad8402014-07-08 17:06:56 +000033 $c->notify(error => 'Unable to trace query');
Nils Diewald02df9912014-06-03 16:08:07 +000034 };
35
36 $c->param(cutoff => 1);
Nils Diewald127c2932014-06-25 10:39:29 +000037 return $c->render(template => 'query_info');
Nils Diewald2329e1d2014-06-12 16:07:57 +000038 }
39
40 elsif ($c->param('snippet')) {
41 $c->layout('snippet');
Nils Diewald02df9912014-06-03 16:08:07 +000042 };
43
Nils Diewald5d1ffb42014-05-21 17:45:34 +000044 $c->render(template => 'search');
45};
46
Nils Diewald2329e1d2014-06-12 16:07:57 +000047
Nils Diewald5d1ffb42014-05-21 17:45:34 +0000481;
Nils Diewald02df9912014-06-03 16:08:07 +000049
50
51__END__
52
Nils Diewald2329e1d2014-06-12 16:07:57 +000053[{"shared":false,"id":1,"managed":true,"created":1401193381119,"stats":{"documents":196510,"tokens":51545081,"sentences":4116282,"paragraphs":2034752},"query":[{"@type":"korap:meta-filter","@value":{"@type":"korap:term","@field":"korap:field#corpusID","@value":"WPD"}}],"description":"Die freie Enzyklopädie","name":"Wikipedia","foundries":"base;corenlp;mate;mpt;opennlp;tt;xip"}]
Nils Diewald33e15552014-06-13 19:38:37 +000054
55
Nils Diewald33e15552014-06-13 19:38:37 +000056http://10.0.10.13:8070/api/v1/resource/matchInfo?id=match-WPD!WPD_NNN.02848-p1223-1224&f=mate&l=
57
58{"author":"Filzstift,Alexander Sommer,TheK","textClass":"freizeit-unterhaltung reisen","corpusID":"WPD","title":"Neuseeland","foundries":"xip xip/morpho xip/constituency xip/dependency corenlp corenlp/namedentities corenlp/namedentities/ne_dewac_175m_600 corenlp/namedentities corenlp/namedentities/ne_hgc_175m_600 mate mate/morpho mate/dependency connexor connexor/morpho connexor/syntax connexor/phrase treetagger treetagger/morpho base base/sentences base/paragraphs opennlp opennlp/morpho","tokenization":"opennlp#tokens","field":"tokens","startMore":false,"endMore":false,"docID":"WPD_NNN.02848","snippet":"<span class=\"context-left\"></span><span class=\"match\"><span title=\"mate/l:besonders\"><span title=\"mate/p:ADV\">Besonders</span></span> <span title=\"mate/l:auffällig\"><span title=\"mate/m:degree:pos\"><span title=\"mate/p:ADJD\">auffällig</span></span></span> <span title=\"mate/l:sein\"><span title=\"mate/m:mood:ind\"><span title=\"mate/m:number:pl\"><span title=\"mate/m:person:3\"><span title=\"mate/m:tense:pres\"><span title=\"mate/p:VAFIN\">sind</span></span></span></span></span></span> <span title=\"mate/l:schließlich\"><span title=\"mate/p:ADV\">schließlich</span></span> <span title=\"mate/l:noch\"><span title=\"mate/p:ADV\">noch</span></span> <span title=\"mate/l:der\"><span title=\"mate/m:case:nom\"><span title=\"mate/m:gender:masc\"><span title=\"mate/m:number:sg\"><span title=\"mate/p:ART\">der</span></span></span></span></span> <span title=\"mate/l:pohutukawa\"><span title=\"mate/m:case:nom\"><span title=\"mate/m:gender:masc\"><span title=\"mate/m:number:sg\"><span title=\"mate/p:NE\">Pohutukawa</span></span></span></span></span> <span title=\"mate/l:und\"><span title=\"mate/p:KON\">und</span></span> <span title=\"mate/l:der\"><span title=\"mate/m:case:nom\"><span title=\"mate/m:gender:masc\"><span title=\"mate/m:number:sg\"><span title=\"mate/p:ART\">der</span></span></span></span></span> <span title=\"mate/l:cabbage\"><span title=\"mate/m:case:nom\"><span title=\"mate/m:gender:masc\"><span title=\"mate/m:number:sg\"><span title=\"mate/p:NE\">Cabbage</span></span></span></span></span> <span title=\"mate/l:tree\"><span title=\"mate/m:gender:masc\"><span title=\"mate/m:number:sg\"><span title=\"mate/p:NE\"><span title=\"mate/m:case:nom\">Tree</span></span></span></span></span></span><span class=\"context-right\"></span>","ID":"match-WPD!WPD_NNN.02848-p1213-1224","pubDate":"2005-03-28","context":{"left":["token",0],"right":["token",0]}}