Changeset 30517 for main/trunk/greenstone2/perllib/buildcolutils.pm

Timestamp:

2016-05-09T16:53:48+12:00 (8 years ago)

Author:

ak19

Message:

Fixing incremental-rebuild when the database is gdbm. At this point (see buildcolutils.pm), the code needs to deactivate the collection before calling make_infodatabase(), since otherwise there's a lock on the gdbm database which prevents successful incremental-rebuild and activation.

File:

• main/trunk/greenstone2/perllib/buildcolutils.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/buildcolutils.pm

@@ -674 +674 @@
     #   processor [jmt12]
     map { local $_=$_; $_->build_indexes($indexname, $indexlevel); } @builders;
-    map { local $_=$_; $_->make_infodatabase(); }  @builders;
+
+    # when incrementally rebuilding a collection using a gdbm database, need to 
+    # deactivate the collecitob before make_infodatabase()
+    map { 
+    local $_=$_; 
+
+    if($_->supports_make_infodatabase()) {
+        my $infodbtype = $_->{'infodbtype'};
+        my $dbSupportsConcurrentRW = &dbutil::supportsConcurrentReadAndWrite($infodbtype);
+    
+        if(!$dbSupportsConcurrentRW) {
+        #$self->{'justdeactivate'} = 1;
+        #$self->activate_collection();
+        #$self->{'justdeactivate'} = 0;
+        $self->activate_collection("just_deactivate");      
+        }
+        $_->make_infodatabase();        
+    }
+
+    }  @builders;
+
     map { local $_=$_; $_->collect_specific(); } @builders;
   }
@@ -759 +779 @@
 sub activate_collection
 {
-  my $self = shift(@_);
+  my $self = shift(@_);  
+  my $activation_cmd = shift(@_);
+  my($just_activate, $just_deactivate);
+  if(defined $activation_cmd) {
+      $just_deactivate = 1 if($activation_cmd eq "just_deactivate");
+      $just_activate = 1 if($activation_cmd eq "just_activate");
+      if($activation_cmd eq "just_deactivate_and_activate") {
+      $just_deactivate = 1;
+      $just_activate = 1;
+      }
+  }
+
   # if buildcol.pl was run with -activate, need to run activate.pl
   # now that building's complete
@@ -773 +804 @@
     push(@activate_argv, '-keepold') if ($self->{'keepold'});
     push(@activate_argv, '-incremental') if ($self->{'incremental'});
+    push(@activate_argv, '-justactivate') if ($just_activate || $self->{'justactivate'});
+    push(@activate_argv, '-justdeactivate') if ($just_deactivate || $self->{'justdeactivate'});
     my $quoted_argv = join(' ', map { "\"$_\"" } @activate_argv);
     my $activatecol_cmd = '"' . &util::get_perl_exec(). '" -S activate.pl ' . $quoted_argv . ' "' . $self->get_collection() . '"';