Changeset 28654
- Timestamp:
- 2013-11-20T13:00:09+13:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/parallel-building/trunk/src/perllib/parallelbuildinginexport.pm
r28001 r28654 312 312 313 313 314 ## @function recordEarliestDatestamp()315 #316 # Check for existence of the file that's to contain earliestDateStamp in317 # archivesdir Do nothing if the file already exists (file exists on incremental318 # build). If the file doesn't exist, as happens on full build, create it and319 # write out the current datestamp into it In buildcol, read the file's contents320 # and set the earliestdateStamp in GS2's build.cfg / GS3's buildconfig.xml In321 # doc.pm have set_oaiLastModified similar to set_lastmodified, and create the322 # doc fields oailastmodified and oailastmodifieddate323 #324 sub recordEarliestDatestamp325 {326 my $self = shift(@_);327 my ($infodbtype, $archivedir) = @_;328 my $current_time_in_seconds = time; # in seconds329 # We use the infodb to store this information if it supports it330 if (defined(&dbutil::supportsDatestamp) && &dbutil::supportsDatestamp($infodbtype))331 {332 my $datestamp_db = &dbutil::get_infodb_file_path($infodbtype, 'datestamp', $archivedir);333 my $datestamp_db_fh = &dbutil::open_infodb_write_handle($infodbtype, $datestamp_db, 'append');334 &dbutil::write_infodb_rawentry($infodbtype, $datestamp_db_fh, 'earliest', $current_time_in_seconds);335 &dbutil::close_infodb_write_handle($infodbtype, $datestamp_db_fh);336 }337 else338 {339 my $earliestDatestampFile = &FileUtils::filenameConcatenate($archivedir, "earliestDatestamp");340 if (!&FileUtils::fileExists($earliestDatestampFile) && &FileUtils::directoryExists($archivedir))341 {342 my $datestamp_fh;343 if(&FileUtils::openFileHandle($earliestDatestampFile, 'w', \$datestamp_fh))344 {345 print $datestamp_fh $current_time_in_seconds;346 &FileUtils::closeFileHandle($earliestDatestampFile, \$datestamp_fh);347 }348 else349 {350 &gsprintf(STDERR, "{import.cannot_write_earliestdatestamp}\n", $earliestDatestampFile);351 }352 }353 }354 }355 ## recordEarliestDatestamp() ##356 357 314 1;
Note:
See TracChangeset
for help on using the changeset viewer.