Changeset 37194 for main/trunk/greenstone2/perllib/FileUtils.pm

Timestamp:

2023-01-28T19:01:43+13:00 (17 months ago)

Author:

davidb

Message:

Tested version of file-level document-version history (fldv-history) using the newer mv archives to archives_keepold and then hardlink-copy back to archiaves. Uses the newer technique of storing the timestamp in archives-timestamp.out, rather than rely on the timestamp of the file (which now changes due to the copy step

File:

• main/trunk/greenstone2/perllib/FileUtils.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/FileUtils.pm

@@ -33 +33 @@
 
 use FileHandle;
+use File::stat;
 
 # Greenstone modules
@@ -72 +73 @@
 
 #canRead
+#getTimestamp
 #isSymbolicLink
 #modificationTime
@@ -106 +108 @@
 
 
+## @function getTimestamp()
+#
+sub getTimestamp
+{
+    my ($filename) = @_;
+    
+    my $file_stat = stat($filename);
+    my $mtime = $file_stat->mtime;
+
+    return $mtime;
+}
+## getTimestamp()
+    
 ## @function closeFileHandle
 #