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

Timestamp:

2009-02-01T14:35:22+13:00 (15 years ago)

Author:

davidb

Message:

Modifications for incremental building to support files that need to be deleted

File:

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

gsdl/trunk/bin/script/export.pl

@@ -288 +288 @@
     # other vars
     my ($configfilename, $collection, $collectcfg,
-    $export_info_filename, $export_info, 
+    $expinfo_doc_filename, $export_info, 
     $gs_mode, 
     $processor, $pluginfo);
@@ -498 +498 @@
     # the plugouts should be doing this!!
     if ($saveas eq "DSpace"){
-    $export_info_filename = &util::filename_cat ($exportdir, "contents");
+    $expinfo_doc_filename = &util::filename_cat ($exportdir, "contents");
     } elsif ($saveas =~ m/^.*METS$/ || $saveas eq "MARC" ) {
-    $export_info_filename = &util::filename_cat ($exportdir, "export.inf");
+##  $expinfo_doc_filename = &util::filename_cat ($exportdir, "export.inf");
+    my $db_ext = &util::is_little_endian() ? ".ldb" : ".bdb";
+    my $doc_db = "archiveinf-doc$db_ext";
+    $expinfo_doc_filename = &util::filename_cat ($exportdir, $doc_db);
     }
         
     $export_info = new arcinfo();
-    $export_info -> load_info ($export_info_filename);  
+    $export_info -> load_info ($expinfo_doc_filename);  
         
     my ($plugout); 
@@ -550 +553 @@
     else {
     # process any files marked for exporting
-    foreach my $file (keys %{$manifest_lookup->{'export'}}) {
+    foreach my $file (keys %{$manifest_lookup->{'index'}}) {
         &plugin::read ($pluginfo, $importdir, $file, {}, {}, $processor, $maxdocs, 0, $gli);
     }
@@ -581 +584 @@
     #$processor->close_file_output() if $groupsize > 1;
     $processor->close_group_output() if $processor->is_group();
-    # why do we need this??
-    if ($saveas =~ m/^.*METS$/) {
-    $export_info->save_info($export_info_filename);
+
+    if (($saveas =~ m/^.*METS$/) || ($saveas eq "MARC")) {
+    # Not all export types need this (e.g. DSpace)
+    $export_info->save_info($expinfo_doc_filename);
     }