Changeset 18491 for gsdl/trunk

Timestamp:

2009-02-10T13:55:05+13:00 (15 years ago)

Author:

davidb

Message:

incremental-import.pl now switches to full import.pl if archiveinf-doc.{ldb,bdb} not present

File:

• gsdl/trunk/bin/script/incremental-import.pl (modified) (1 diff)

gsdl/trunk/bin/script/incremental-import.pl

@@ -31 +31 @@
 
 
+
+BEGIN {
+    die "GSDLHOME not set\n" unless defined $ENV{'GSDLHOME'};
+    die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'};
+    unshift (@INC, "$ENV{'GSDLHOME'}/perllib");
+}
+
+
 use strict;
 
-my $quoted_argv = join(" ", map { "\"$_\"" } @ARGV);
+use util;
 
 
-my $import_cmd = "import.pl -incremental $quoted_argv";
+sub main
+{
+    my ($argc,@argv) = @_;
 
-my $import_status = system($import_cmd)/256;
+    if (($argc==0)  || (($argc==1) && ($argv[0] =~ m/^--?h(elp)?$/))) {
+    my ($progname) = ($0 =~ m/^.*\/(.*?)$/);
 
-if ($import_status != 0) {
-    print STDERR "Error: Failed to run: $import_cmd\n";
-    print STDERR "       $!\n" if ($! ne "");
-    exit(-1);
+
+    print STDERR "\n";
+    print STDERR "Usage: $progname [import.pl options] collection\n";
+    print STDERR "\n";
+
+    exit(-1);
+    }
+
+
+    my $collect = pop @argv;
+
+    my @filtered_argv = ();
+
+    my $collect_dir = undef;
+    my $archive_dir  = undef;
+
+    while (my $arg = shift @argv) {
+    # No actual filtering happens at the moment (@filterd_argv == @argv)
+    # Useful to do it this way if we want incremental-import.pl
+    # to start accepting its own arguments that are different to import.pl
+    
+    if ($arg eq "-collectdir") {
+        $collect_dir = shift @argv;
+        push(@filtered_argv,$arg,$collect_dir);
+    }
+    elsif ($arg eq "-archivedir") {
+        $archive_dir = shift @argv;
+        push(@filtered_argv,$arg,$archive_dir);
+    }
+    else {
+        push(@filtered_argv,$arg);
+    }
+    }
+
+
+    if (!defined $collect_dir) {
+    $collect_dir = &util::filename_cat($ENV{'GSDLHOME'},"collect",$collect);
+    }
+    if (!-d $collect_dir) {
+    print STDERR "Error: $collect_dir does not exist\n";
+    exit(-1);
+    }
+
+
+    if (!defined $archive_dir) {
+    $archive_dir = &util::filename_cat($collect_dir,"archive_dir");
+    }
+    
+    my $db_ext = (&util::is_little_endian() ? ".ldb" : ".bdb");
+
+    my $archiveinf_doc = &util::filename_cat($archive_dir,"archiveinf-doc$db_ext");
+
+    my $quoted_argv = join(" ", map { "\"$_\"" } @filtered_argv);
+    
+
+    my $import_cmd = "import.pl";
+    if (-e $archiveinf_doc) {
+    $import_cmd .= " -incremental";
+    
+    }
+    else {
+    print STDERR "$archiveinf_doc does not exist.\n";
+    print STDERR "First time built. Switching to full import.pl.\n";
+    $import_cmd .= " -removeold";
+    }
+
+    $import_cmd .= " $quoted_argv";
+
+
+    my $import_status = system($import_cmd)/256;
+    
+    if ($import_status != 0) {
+    print STDERR "Error: Failed to run: $import_cmd\n";
+    print STDERR "       $!\n" if ($! ne "");
+    exit(-1);
+    }
 }
 
+&main(scalar(@ARGV),@ARGV);