Changeset 28802 for gs2-extensions/apache-jena/trunk/src/perllib/jenaTDBBuilder.pm

Timestamp:

2014-01-30T15:11:04+13:00 (10 years ago)

Author:

ak19

Message:

Removed 'die' statements in favour of rint to STDERR to allow the perl process to continue, rather than stopping abruptly.

File:

• gs2-extensions/apache-jena/trunk/src/perllib/jenaTDBBuilder.pm (modified) (1 diff)

gs2-extensions/apache-jena/trunk/src/perllib/jenaTDBBuilder.pm

@@ -98 +98 @@
 
     }
-
+    
     # Run the docs through the jenaTDB document processor
 
     $self->{'buildproc'}->set_mode ('text');
     $self->{'buildproc'}->reset();
+
+    # If '-removeold' in effect (i.e. *not* keepold), then clear out
+    # the triple-store graph for this collection
+
+    if (!$self->{'keepold'}) {
+    my $collection = $self->{'collection'};
+    my $cmd = "gs-triplestore-reset $collection";
+        
+    my $status = system($cmd);
+    if ($status == 0) {
+        print $outhandle "    => removeold: Deleting triplestore graph for $collection\n";
+    }
+    else {
+        print STDERR "Error: failed to run:\n  $cmd\n$!\n";
+        print STDERR "       Graph has not been deleted\n";
+    }
+    }
+
     &plugin::begin($self->{'pluginfo'}, $self->{'source_dir'},
            $self->{'buildproc'}, $self->{'maxdocs'});