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

Timestamp:

2023-06-21T09:44:36+12:00 (10 months ago)

Author:

kjdon

Message:

added admin_unload_all_cores_for_prefix - when we are rebuilding a collection, we don't know what cores were previously there. eg if had subcollections, and now they have changed/gone. So we just unload all existing cores for that collection

File:

• gs3-extensions/solr/trunk/src/perllib/solrserver.pm (modified) (2 diffs)

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

@@ -183 +183 @@
 }
 
+sub admin_unload_all_cores_for_prefix
+{
+    my $self = shift @_;
+    my ($coreprefix) = @_;
+
+    my $cgi_get_args = "action=STATUS&indexInfo=false";
+    my $output = $self->_admin_service($cgi_get_args);
+
+    if (defined $output->{'error'}) {
+    # severe error, such as failing to connect to the server
+    $self->print_error($output);
+    return;
+    }
+
+    my $xml_output = $output->{'output'};
+    
+    my $matching_element="<lst\\s+name=\"($coreprefix-[a-z]+)\">";
+    my @matches = ($xml_output =~ m/$matching_element/g);
+
+    foreach my $core (@matches) {
+    print STDERR "unloading solr core $core\n";
+    $self->admin_unload_core_explicitly_retaining_index($core);
+    }
+}
+
+sub print_error {
+    my $self = shift @_;
+    my ($output) = @_;
+
+    my $url      = $output->{'url'};
+    my $preamble = $output->{'preamble'};
+    my $error    = $output->{'error'};
+    
+    print STDERR "----\n";
+    print STDERR "Error: Failed to get XML response from:\n";
+    print STDERR "         $url\n";
+    print STDERR "Output was:\n";
+    print STDERR $preamble if ($preamble ne "");
+    print STDERR "$error\n";
+    print STDERR "----\n";
+}
 
 sub admin_ping_core
@@ -198 +239 @@
     # severe error, such as failing to connect to the server
     $ping_status = 0;
-
-    my $url      = $output->{'url'};
-    my $preamble = $output->{'preamble'};
-    my $error    = $output->{'error'};
-    
-    print STDERR "----\n";
-    print STDERR "Error: Failed to get XML response from:\n";
-    print STDERR "         $url\n";
-    print STDERR "Output was:\n";
-    print STDERR $preamble if ($preamble ne "");
-    print STDERR "$error\n";
-    print STDERR "----\n";
+    $self->print_error($output);
+
     }
     else {