Changeset 21862 for main/trunk/greenstone2/perllib/doc.pm

Timestamp:

2010-04-08T16:05:31+12:00 (14 years ago)

Author:

davidb

Message:

Documents now have 'lastmodifieddate' added as metadata in yyyymmdd format

File:

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

main/trunk/greenstone2/perllib/doc.pm

@@ -86 +86 @@
         my $file_stat = stat($source_path);
     my $mtime = $file_stat->mtime;
+    my ($seconds, $minutes, $hours, $day_of_month, $month, $year,
+        $wday, $yday, $isdst) = localtime($mtime);
+
+    my $date_modified = sprintf("%d%02d%02d",1900+$year,$month+1,$day_of_month);
+
     $self->add_utf8_metadata($self->get_top_section(), "lastmodified", $file_stat->mtime);
+    $self->add_utf8_metadata($self->get_top_section(), "lastmodifieddate", $date_modified);
     } 
 }
@@ -279 +285 @@
     if (-e "$hashfile_exe") {
 #   $result = `\"$hashfile_exe\" \"$filename\"`;
+#   $result = `hashfile$osexe \"$filename\" 2>&1`;
     $result = `hashfile$osexe \"$filename\"`;
+
     ($result) = $result =~ /:\s*([0-9a-f]+)/i;
     } else {