Changeset 28001 for gs2-extensions

Timestamp:

2013-08-08T12:46:06+12:00 (11 years ago)

Author:

jmt12

Message:

Write datestamp using dbutil if applicable

File:

• gs2-extensions/parallel-building/trunk/src/perllib/parallelbuildinginexport.pm (modified) (2 diffs)

gs2-extensions/parallel-building/trunk/src/perllib/parallelbuildinginexport.pm

@@ -30 +30 @@
 package parallelbuildinginexport;
 
+# Pragma
 use strict;
+no strict 'refs'; # allow filehandles to be variables and vice versa
+no strict 'subs'; # allow barewords (eg STDERR) as function arguments
 
 # MODULES
@@ -308 +311 @@
 ## generate_statistics() ##
 
+
+## @function recordEarliestDatestamp()
+#
+# Check for existence of the file that's to contain earliestDateStamp in
+# archivesdir Do nothing if the file already exists (file exists on incremental
+# build).  If the file doesn't exist, as happens on full build, create it and
+# write out the current datestamp into it In buildcol, read the file's contents
+# and set the earliestdateStamp in GS2's build.cfg / GS3's buildconfig.xml In
+# doc.pm have set_oaiLastModified similar to set_lastmodified, and create the
+# doc fields oailastmodified and oailastmodifieddate
+#
+sub recordEarliestDatestamp
+{
+  my $self = shift(@_);
+  my ($infodbtype, $archivedir) = @_;
+  my $current_time_in_seconds = time; # in seconds
+  # We use the infodb to store this information if it supports it
+  if (defined(&dbutil::supportsDatestamp) && &dbutil::supportsDatestamp($infodbtype))
+  {
+    my $datestamp_db = &dbutil::get_infodb_file_path($infodbtype, 'datestamp', $archivedir);
+    my $datestamp_db_fh = &dbutil::open_infodb_write_handle($infodbtype, $datestamp_db, 'append');
+    &dbutil::write_infodb_rawentry($infodbtype, $datestamp_db_fh, 'earliest', $current_time_in_seconds);
+    &dbutil::close_infodb_write_handle($infodbtype, $datestamp_db_fh);
+  }
+  else
+  {
+    my $earliestDatestampFile = &FileUtils::filenameConcatenate($archivedir, "earliestDatestamp");
+    if (!&FileUtils::fileExists($earliestDatestampFile) && &FileUtils::directoryExists($archivedir))
+    {
+      my $datestamp_fh;
+      if(&FileUtils::openFileHandle($earliestDatestampFile, 'w', \$datestamp_fh))
+      {
+        print $datestamp_fh $current_time_in_seconds;
+        &FileUtils::closeFileHandle($earliestDatestampFile, \$datestamp_fh);
+      }
+      else
+      {
+        &gsprintf(STDERR, "{import.cannot_write_earliestdatestamp}\n", $earliestDatestampFile);
+      }
+    }
+  }
+}
+## recordEarliestDatestamp() ##
+
 1;