Add w2v->compare_to parameter and use for count-based delta calcs

Change-Id: Ic53cbc5b3984659b3ebfa6c8ad30fd42850a9fc9
diff --git a/script/derekovecs-server b/script/derekovecs-server
index 372e472..3811858 100755
--- a/script/derekovecs-server
+++ b/script/derekovecs-server
@@ -25,6 +25,8 @@
 }
 my $DEFAULT_NET           = app->config->{w2v}->{net}            // $DEFAULT_NET_NAME;
 my $DOWNTIME_CALENDAR_URL = app->config->{downtime_calendar_url} // '';
+my $COMPARE_TO            = app->config->{w2v}->{compare_to}     // '';
+
 app->static->paths->[0] = getcwd;
 
 plugin 'Piwik';
@@ -184,12 +186,14 @@
 
 any '*/getClassicCollocators' => sub {
   my $self = shift;
-  $self->render(data => getClassicCollocatorsCached($self, getWord($self->param("w") ? $self->param("w") : $self->req->json)), format=>'json');
+  $self->render(data => getClassicCollocatorsCached($self, getWord($self->param("w") ? $self->param("w",) : $self->req->json),
+      $COMPARE_TO), format=>'json');
 } => 'getClassicCollocators1';
 
 any '/getClassicCollocators' => sub {
   my $self = shift;
-  $self->render(data => getClassicCollocatorsCached($self, getWord($self->param("w") ? $self->param("w") : $self->req->json)), format=>'json');
+  $self->render(data => getClassicCollocatorsCached($self, getWord($self->param("w") ? $self->param("w") : $self->req->json),
+      $COMPARE_TO), format=>'json');
 } => 'getClassicCollocators';
 
 any '/getBiggestVocabDistances' => sub {