Changeset 23943

Timestamp:

2011-04-21T15:13:22+12:00 (13 years ago)

Author:

ak19

Message:

Xiaofeng encountered a problem with opening a file for writing in archives (a problem creating the earliestDatestamp file). Trying another way to exit on error.

File:

• main/trunk/greenstone2/perllib/inexport.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/inexport.pm

@@ -552 +552 @@
     my $metadata = {};
     
-    # gobal blocking pass may set up some metadata
+    # global blocking pass may set up some metadata
     &plugin::file_block_read($pluginfo, $importdir, "", $block_hash, $metadata, $gli);
     
@@ -716 +716 @@
     # oailastmodified and oailastmodifieddate
     my $earliestDatestampFile = &util::filename_cat($archivedir, "earliestDatestamp");
-    if (!-f $earliestDatestampFile) {
+    if (!-f $earliestDatestampFile && -d $archivedir) {
     my $current_time_in_seconds = time; # in seconds
-    open(FOUT, ">$earliestDatestampFile") || die "{common.cannot_open} $earliestDatestampFile: $!\n";
-    #    (&gsprintf(STDERR, "{common.cannot_open}: $!\n", $earliestDatestampFile) && die);
+    open(FOUT, ">$earliestDatestampFile") || 
+        (&gsprintf(STDERR, "{common.cannot_open}: $!\n", $earliestDatestampFile) && die);
+    # die "{common.cannot_open} $earliestDatestampFile: $!\n";
     print FOUT $current_time_in_seconds;
     close(FOUT);