summaryrefslogtreecommitdiffstats
path: root/now.pl
diff options
context:
space:
mode:
authorH. Peter Anvin <hpa@zytor.com>2008-07-07 15:32:21 -0700
committerH. Peter Anvin <hpa@zytor.com>2008-07-07 15:32:21 -0700
commit852d962ee2d0a51bf7aa3c6f0b1fdecbef1a3efd (patch)
tree1fd82e3dcc96b5049ae7f47ca2ed3df0ac3d93a7 /now.pl
parent07ff8e874b0bd1d1c4fa893c94063fbedf6e3315 (diff)
downloadsyslinux-852d962ee2d0a51bf7aa3c6f0b1fdecbef1a3efd.tar.gz
syslinux-852d962ee2d0a51bf7aa3c6f0b1fdecbef1a3efd.tar.xz
syslinux-852d962ee2d0a51bf7aa3c6f0b1fdecbef1a3efd.zip
Share the gen-id stuff between core and memdisk
Both core and memdisk wants to use the gen-id stuff, so let it.
Diffstat (limited to 'now.pl')
-rw-r--r--now.pl21
1 files changed, 21 insertions, 0 deletions
diff --git a/now.pl b/now.pl
new file mode 100644
index 00000000..a3b5a798
--- /dev/null
+++ b/now.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+#
+# 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;