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

Timestamp:

2013-11-20T13:00:09+13:00 (10 years ago)

Author:

jmt12

Message:

Removed recordEarliestDatestamp() function as that no lurks in the dynamically loaded infodb drivers (this is to allow the xmlstdout infodb driver needed for full Hadoop support)

File:

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

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

@@ -312 +312 @@
 
 
-## @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;