Changeset 31132 for main/trunk/greenstone2/bin/script/import.pl

Timestamp:

2016-11-21T13:50:51+13:00 (7 years ago)

Author:

kjdon

Message:

added a new flag to import -NO_IMPORT. set it in collectionConfig.xml as an importOption to prevent import.pl being accidentally run. If you are doing web editing of documents, it edits the archives files and running import will clobber any changes

File:

• main/trunk/greenstone2/bin/script/import.pl (modified) (4 diffs)

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

@@ -69 +69 @@
 # Pragma
 use strict;
+no strict 'subs'; # allow barewords (eg STDERR) as function arguments
 use warnings;
 
@@ -147 +148 @@
     'reqd' => "no",
     'modegli' => "3" },
-     @$inexport::arguments
+     @$inexport::arguments,
+      { 'name' => "NO_IMPORT",
+    'desc' => "{import.NO_IMPORT}",
+    'type' => "flag",
+    'reqd' => "no",
+    'modegli' => "3"}
 ];
 
@@ -175 +181 @@
   foreach my $argument (@ARGV)
   {
+      if ($argument eq "-NO_IMPORT") {
+      &gsprintf(STDERR, "{import.NO_IMPORT_set}\n\n");  
+      exit 0;
+      }
     # proper arguments start with a hyphen
     if ($argument =~ /^-/ && defined $function_to_inexport_subclass_mappings->{$argument})
@@ -213 +223 @@
   {
     my ($config_filename,$collect_cfg) = $inexport->read_collection_cfg($collection,$options);
-
+    if ($collect_cfg->{'NO_IMPORT'}) {
+    &gsprintf(STDERR, "{import.NO_IMPORT_set}\n\n");    
+    exit 0;
+    }
     #$inexport->set_collection_options($collect_cfg);
     &set_collection_options($inexport, $collect_cfg);
 
+    
     my $pluginfo = $inexport->process_files($config_filename,$collect_cfg);