Changeset 31490 for gs3-extensions/solr/trunk/src/perllib/solrserver.pm

Timestamp:

2017-03-10T22:03:47+13:00 (7 years ago)

Author:

ak19

Message:

1. Fix to issue of a tomcat host/port change not propagating to solr host/port change when rebuilding a solr collection after tomcat host/port change. The change to tomcat server props need to be made after gs3-setup.sh was already run in the terminal earlier, to encouner the problem upon solr build. The bug was reproduced on Linux, and the fix for it also tested on Linux. Still need to test fix out on Windows. 2. Simultaneously made http protocol used in solr more robust to whether it's http or https.

File:

• gs3-extensions/solr/trunk/src/perllib/solrserver.pm (modified) (1 diff)

gs3-extensions/solr/trunk/src/perllib/solrserver.pm

@@ -43 +43 @@
     $self->{'server_explicitly_started'} = undef;
 
-    my $server_port = $ENV{'SOLR_PORT'};
-    my $server_host = $ENV{'SOLR_HOST'};
-    my $base_url = "http://$server_host:$server_port/solr/";
-    my $admin_url = "http://$server_host:$server_port/solr/admin/cores";
-    
-    $self->{'base-url'} = $base_url;
-    $self->{'admin-url'} = $admin_url;
+    # set SOLR_HOST and SOLR_PORT env vars (tomcat host and port, if not using jetty) 
+    # by calling ant get-default-solr-servlet if possible. Else fallback on whatever the existing env vars are.
+    # tomcat host and port would have been set up in the env as SOLR_HOST and SOLR_PORT
+    # In case someone changed the tomcat host/port, we want to update the solr server variables too
+    my $solr_url = &solrutil::get_solr_servlet_url();    
+    # get the url parts, though we won't be using most of them
+    my ($protocol, $server_host, $server_port, $servlet_name) = &solrutil::get_solr_url_parts($solr_url);
+    
+    # set the solr server env vars to what was discovered, so that any other old perl code
+    # dependent on these env vars will have any changes propagated. 
+    # (All perl code referencing these env vars should already be updated, but still...)
+    $ENV{'SOLR_HOST'} = $server_host;
+    $ENV{'SOLR_PORT'} = $server_port;
+    
+    $self->{'base-url'} = $solr_url; # e.g. of the form http://localhost:8383/solr
+    $self->{'admin-url'} = "$solr_url/admin/cores";
 
     return bless $self, $class;
+}
+
+sub get_solr_base_url {
+    my $self = shift (@_);
+    return $self->{'base-url'};
 }