Changeset 24483 for gs3-extensions/solr/trunk/src/bin/script/solr_passes.pl

Timestamp:

2011-08-26T00:22:29+12:00 (13 years ago)

Author:

davidb

Message:

Reworking of code that detects existing running instance of Solr/Jetty server. This was due to Windows version of Perl not implementing '' on an open call. Code currently messy and needs a further tidy up.

File:

• gs3-extensions/solr/trunk/src/bin/script/solr_passes.pl (modified) (5 diffs)

gs3-extensions/solr/trunk/src/bin/script/solr_passes.pl

@@ -58 +58 @@
 sub open_java_solr
 {
-  my ($collect, $doc_tag_level,$full_builddir,$indexdir,$removeold) = @_;
+  my ($collect, $ds_idx,$full_builddir,$indexdir,$removeold) = @_;
 
   # if removeold set, then delete the curring $full_builddir
@@ -74 +74 @@
 
   # Now start up the solr-post command
-  &solrutil::open_post_pipe($collect,$doc_tag_level);
+  &solrutil::open_post_pipe($collect,$ds_idx);
 }
 
@@ -224 +224 @@
 
   if ($filtered_argc < 5) {
-    print STDERR "Usage: solr_passes.pl [-removeold|-verbosity num] collect \"text\"|\"index\" doc-tag-level build-dir index-name\n";
+    print STDERR "Usage: solr_passes.pl [-removeold|-verbosity num] collect \"text\"|\"index\" {d|s}idx build-dir index-name\n";
     exit 1;
   }
@@ -230 +230 @@
   my $collect       = $filtered_argv[0];
   my $mode          = $filtered_argv[1];
-  my $doc_tag_level = $filtered_argv[2];
+  my $ds_idx        = $filtered_argv[2];
   my $full_builddir = $filtered_argv[3];
   my $indexdir      = $filtered_argv[4];
@@ -237 +237 @@
   # documents, not if we are just storing the text
   if ($mode eq "index") {
-    open_java_solr($collect, $doc_tag_level, $full_builddir, $indexdir, $removeold);
+    open_java_solr($collect, $ds_idx, $full_builddir, $indexdir, $removeold);
   }