Changeset 20652 for gsdl

Timestamp:

2009-09-21T13:36:25+12:00 (15 years ago)

Author:

davidb

Message:

Updated to support incremental exporting

File:

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

gsdl/trunk/bin/script/export.pl

@@ -492 +492 @@
     
     # remove the old contents of the export directory if needed
-    if ($removeold && -e $exportdir) {
-    &gsprintf($out, "{export.removing_export}\n");
-    &util::rm_r ($exportdir);
+    if ($removeold) {
+    if (-e $exportdir) {
+        &gsprintf($out, "{export.removing_export}\n");
+        &util::rm_r ($exportdir);
+    }
+    my $tmpdir = &util::filename_cat ($ENV{'GSDLCOLLECTDIR'}, "tmp");
+    $tmpdir =~ s/[\\\/]+/\//g;
+    $tmpdir =~ s/\/$//;
+    if (-e $tmpdir) {
+        &gsprintf($out, "{import.removing_tmpdir}\n");
+        &util::rm_r ($tmpdir);
+    }
     }
     
@@ -501 +510 @@
     
     # read the export information file
-    # If saveas=DSpace, a "contents" file will be created, otherwise "export.inf"
     
     # the plugouts should be doing this!!
-    if ($saveas eq "DSpace"){
-    $expinfo_doc_filename = &util::filename_cat ($exportdir, "contents");
-    } elsif ($saveas =~ m/^.*METS$/ || $saveas eq "MARCXML" ) {
-##  $expinfo_doc_filename = &util::filename_cat ($exportdir, "export.inf");
-    $expinfo_doc_filename = &util::filename_cat ($exportdir,"archiveinf-doc" );
-    &util::rename_gdbm_file($expinfo_doc_filename); # ensures gdb in case we have an existing legacy ldb one - can this happen?
-    $expinfo_doc_filename .= ".gdb";
-    
-    $expinfo_src_filename = &util::filename_cat ($exportdir,"archiveinf-src" );
-    &util::rename_gdbm_file($expinfo_src_filename); # ensures gdb in case we have an existing legacy ldb one - can this happen?
-    $expinfo_src_filename .= ".gdb";
-
-    }
+##  $expinfo_doc_filename = &util::filename_cat ($exportdir, "export.inf");
+    $expinfo_doc_filename = &util::filename_cat ($exportdir,"archiveinf-doc" );
+    &util::rename_gdbm_file($expinfo_doc_filename); # ensures gdb in case we have an existing legacy ldb one - can this happen?
+    $expinfo_doc_filename .= ".gdb";
+    
+    $expinfo_src_filename = &util::filename_cat ($exportdir,"archiveinf-src" );
+    &util::rename_gdbm_file($expinfo_src_filename); # ensures gdb in case we have an existing legacy ldb one - can this happen?
+    $expinfo_src_filename .= ".gdb";
+
         
     $export_info = new arcinfo();