Changeset 20571 for gsdl/trunk/bin/script/export.pl

Timestamp:

2009-09-10T10:33:00+12:00 (15 years ago)

Author:

davidb

Message:

Introduction of variable 'incremental_mode' that is set to 'none', 'onlyadd', or 'all' depending on settings of -removeold -keepold and -incremental. Some minor edits to tidy up the code have also been made in this commit

File:

• gsdl/trunk/bin/script/export.pl (modified) (4 diffs)

gsdl/trunk/bin/script/export.pl

@@ -276 +276 @@
     my ($language, $verbosity, $debug,
     $collectdir, $importdir, $exportdir, $site, $manifest, 
-    $incremental, $keepold, $removeold,
+    $incremental, $incremental_mode, $keepold, $removeold,
     $saveas,
     $OIDtype, $OIDmetadata,
@@ -450 +450 @@
 
     # check keepold and removeold
-    ($removeold, $keepold, $incremental) = &scriptutil::check_removeold_and_keepold($removeold, $keepold, $incremental, "export", $collectcfg);
+    ($removeold, $keepold, $incremental, $incremental_mode) 
+    = &scriptutil::check_removeold_and_keepold($removeold, $keepold, 
+                           $incremental, "export", 
+                           $collectcfg);
 
     print STDERR "<export>\n" if $gli;
@@ -469 +472 @@
     
     # load all the plugins
-    $pluginfo = &plugin::load_plugins ($plugins, $verbosity, $out, $faillog, \@global_opts);
+    $pluginfo = &plugin::load_plugins ($plugins, $verbosity, $out, $faillog, \@global_opts, $incremental_mode);
         
     if (scalar(@$pluginfo) == 0) {
@@ -579 +582 @@
     $processor->close_group_output() if $processor->is_group();
 
-    if (($saveas =~ m/^.*METS$/) || ($saveas eq "MARCXML")) {
-    # Not all export types need this (e.g. DSpace)
+#    if (($saveas =~ m/^.*METS$/) || ($saveas eq "MARCXML")) {
+#   # Not all export types need this,
+
+##  $export_info->save_info($expinfo_doc_filename);
+#    }
+
+    my $expinfo_src_filename = &util::filename_cat ($exportdir, "archiveinf-src");   
+    &util::rename_gdbm_file($expinfo_src_filename); # ensures gdb
+    $expinfo_src_filename .= ".gdb";
+
+
+    # for backwards compatability with archvies.inf file
+    if ($expinfo_doc_filename =~ m/(contents)|(\.inf)$/) {
     $export_info->save_info($expinfo_doc_filename);
     }
+    else {
+    $export_info->save_revinfo_gdbm($expinfo_src_filename);
+    }
+
         
     # write out export stats