- Timestamp:
- 2010-04-08T16:05:31+12:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/doc.pm
r21566 r21862 86 86 my $file_stat = stat($source_path); 87 87 my $mtime = $file_stat->mtime; 88 my ($seconds, $minutes, $hours, $day_of_month, $month, $year, 89 $wday, $yday, $isdst) = localtime($mtime); 90 91 my $date_modified = sprintf("%d%02d%02d",1900+$year,$month+1,$day_of_month); 92 88 93 $self->add_utf8_metadata($self->get_top_section(), "lastmodified", $file_stat->mtime); 94 $self->add_utf8_metadata($self->get_top_section(), "lastmodifieddate", $date_modified); 89 95 } 90 96 } … … 279 285 if (-e "$hashfile_exe") { 280 286 # $result = `\"$hashfile_exe\" \"$filename\"`; 287 # $result = `hashfile$osexe \"$filename\" 2>&1`; 281 288 $result = `hashfile$osexe \"$filename\"`; 289 282 290 ($result) = $result =~ /:\s*([0-9a-f]+)/i; 283 291 } else {
Note:
See TracChangeset
for help on using the changeset viewer.