Changeset 21733 for main/trunk/greenstone2/bin/script/incremental-import.pl

Timestamp:

2010-02-24T13:56:56+13:00 (14 years ago)

Author:

kjdon

Message:

a little tidying up and code reuse and making these work for gs3 with -site arg

File:

• main/trunk/greenstone2/bin/script/incremental-import.pl (modified) (5 diffs)

main/trunk/greenstone2/bin/script/incremental-import.pl

@@ -43 +43 @@
 use dbutil;
 use util;
-
+use colcfg;
 
 sub main
@@ -61 +61 @@
 
 
-    my $collect = pop @argv;
+    my $collection = pop @argv;
 
     my @filtered_argv = ();
@@ -67 +67 @@
     my $collect_dir = undef;
     my $archive_dir  = undef;
+    my $site = undef;
 
     while (my $arg = shift @argv) {
@@ -81 +82 @@
         push(@filtered_argv,$arg,$archive_dir);
     }
+    elsif ($arg eq "-site") {
+        $site = shift @argv;
+        push(@filtered_argv,$arg,$site);
+    }
     else {
         push(@filtered_argv,$arg);
     }
     }
-
-    if (!defined $collect_dir) {
-    $collect_dir = &util::filename_cat($ENV{'GSDLHOME'},"collect");
-    }
-    my $this_collect_dir = &util::filename_cat($collect_dir,$collect);
-
-    if (!-d $this_collect_dir) {
-    print STDERR "Error: $this_collect_dir does not exist\n";
-    exit(-1);
-    }
-
+    
+    # get and check the collection name
+    if ((&colcfg::use_collection($site, $collection, $collect_dir)) eq "") {
+    print STDERR "Unable to use collection \"$collection\" within \"$collect_dir\"\n";
+    exit -1;
+    }   
 
     if (!defined $archive_dir) {
-    $archive_dir = &util::filename_cat($this_collect_dir,"archives");
+    $archive_dir = &util::filename_cat ($ENV{'GSDLCOLLECTDIR'}, "archives")
     }
 
@@ -132 +132 @@
     }
 
-    $import_cmd .= " $quoted_argv \"$collect\"";
+    $import_cmd .= " $quoted_argv \"$collection\"";