Changeset 25573 for main/trunk/greenstone2/bin/script/buildcol.pl

Timestamp:

2012-05-10T21:32:52+12:00 (12 years ago)

Author:

ak19

Message:

Adding in the new activate.pl script to be called at the end of the build process. It moves building to index after first deactivating the collection on the server (if this is running and a persistent server). After the move operation, it then activates the collection on the server again, if the server is still running and is a persistent server.

File:

• main/trunk/greenstone2/bin/script/buildcol.pl (modified) (3 diffs)

main/trunk/greenstone2/bin/script/buildcol.pl

@@ -238 +238 @@
     'reqd' => "no",
     'hiddengli' => "yes" },
+      { 'name' => "activate",
+    'desc' => "{buildcol.activate}",
+    'type' => "flag",
+    'reqd' => "no",
+    'hiddengli' => "yes" },
       ];
 
@@ -301 +306 @@
     $no_strip_html, $store_metadata_coverage,
     $no_text, $faillog, $gli, $index, $language,
-    $sections_index_document_metadata, $maxnumeric);
-
+    $sections_index_document_metadata, $maxnumeric, $activate);
+    
     my $xml = 0;
     my $hashParsingResult = {};
@@ -682 +687 @@
     }
 
+    # if buildcol.pl was run with -activate, need to run activate.pl 
+    # now that building's complete  
+    if($activate) {
+    
+        #my $quoted_argv = join(" ", map { "\"$_\"" } @ARGV);
+        
+        my @activate_argv = ();
+        push(@activate_argv,"-collectdir","$collectdir") if($collectdir);
+        push(@activate_argv,"-builddir","$builddir") if($builddir);
+        push(@activate_argv,"-site","$site") if($site);
+        push(@activate_argv,"-removeold") if($removeold);
+        push(@activate_argv,"-keepold") if($keepold);
+        my $quoted_argv = join(" ", map { "\"$_\"" } @activate_argv);
+        
+        my $activatecol_cmd = "\"".&util::get_perl_exec()."\" -S activate.pl $quoted_argv \"$collection\"";
+        
+        my $activatecol_status = system($activatecol_cmd)/256;
+
+        if ($activatecol_status != 0) {
+            print STDERR "Error: Failed to run: $activatecol_cmd\n";
+            print STDERR "       $!\n" if ($! ne "");
+            exit(-1);
+        }
+    }
+    
     close OUT if $close_out;
     close FAILLOG;