This commit was generated by cvs2svn to compensate for changes in r1815,

[bootcd.git] / syslinux / now.pl

diff --git a/syslinux/now.pl b/syslinux/now.pl
new file mode 100644 (file)
index 0000000..e2295eb
--- /dev/null
+++ b/syslinux/now.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+# $Id: now.pl,v 1.5 1999/09/17 07:28:45 hpa Exp $
+#
+# Print the time (possibly the mtime of a file) as a hexadecimal integer
+# If more than one file, print the mtime of the *newest* file.
+#
+
+undef $now;
+
+foreach $file ( @ARGV ) {
+    ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,
+     $ctime,$blksize,$blocks) = stat($file);
+    if ( !defined($now) || $now < $mtime ) {
+       $now = $mtime;
+    }
+}
+
+if ( !defined($now) ) {
+    $now = time;
+}
+
+printf "0x%08x\n", $now;