commit 19c68243a9d12ea6504e4b725dbfca78a325b336
author Marc Kupietz <kupietz@ids-mannheim.de> Mon Mar 12 09:42:21 2018 +0100
committer Marc Kupietz <kupietz@ids-mannheim.de> Mon Mar 12 09:42:21 2018 +0100
tree f02f5282350a0b3f635f9b98f4eb4c4951755b46
parent deb8f622f74c428c3b78f9ae49e24787d75b4dde

w2v-server: cache classic ca results

w2v-server.pl

diff --git a/w2v-server.pl b/w2v-server.pl
index e04f212..a5ef690 100755
--- a/w2v-server.pl
+++ b/w2v-server.pl
@@ -30,6 +30,7 @@
 my $training_args="";
 my $mergedEnd=0;
 my %cache;
+my %cccache; # classic collocator cache
 
 getopts('d:Gil:p:m:n:M:');
 
@@ -83,6 +84,16 @@
 	$c->reply->static($url);
 };
 
+sub getClassicCollocatorsCached {
+  my ($c, $word) = @_;
+  if(!$cccache{$word}) {
+    $cccache{$word} = getClassicCollocators($word);
+  } else {
+    $c->app->log->info("Getting classic collocators for $word from cache.");
+  }
+  return $cccache{$word};
+}
+
 post '/derekovecs/getVecsByRanks' => sub {
   my $self = shift;
   my $vec = getVecs($self->req->json);
@@ -91,12 +102,12 @@
 
 any '*/getClassicCollocators' => sub {
   my $self = shift;
-  $self->render(data => getClassicCollocators($self->param("w") ? $self->param("w") : $self->req->json), format=>'json');
+  $self->render(data => getClassicCollocatorsCached($self, $self->param("w") ? $self->param("w") : $self->req->json), format=>'json');
 };
 
 any '/getClassicCollocators' => sub {
   my $self = shift;
-  $self->render(data => getClassicCollocators($self->param("w") ? $self->param("w") : $self->req->json), format=>'json');
+  $self->render(data => getClassicCollocatorsCached($self, $self->param("w") ? $self->param("w") : $self->req->json), format=>'json');
 };
 
 get '*/img/*' => sub {