Contents of /tags/mkinitrd-6_4_0/isolinux/now.pl
Parent Directory | Revision Log
Revision 1313 -
(show annotations)
(download)
Fri May 27 18:20:23 2011 UTC (13 years, 4 months ago) by niro
File MIME type: text/plain
File size: 445 byte(s)
Fri May 27 18:20:23 2011 UTC (13 years, 4 months ago) by niro
File MIME type: text/plain
File size: 445 byte(s)
tagged 'mkinitrd-6_4_0'
1 | #!/usr/bin/perl |
2 | # |
3 | # Print the time (possibly the mtime of a file) as a hexadecimal integer |
4 | # If more than one file, print the mtime of the *newest* file. |
5 | # |
6 | |
7 | undef $now; |
8 | |
9 | foreach $file ( @ARGV ) { |
10 | ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime, |
11 | $ctime,$blksize,$blocks) = stat($file); |
12 | if ( !defined($now) || $now < $mtime ) { |
13 | $now = $mtime; |
14 | } |
15 | } |
16 | |
17 | if ( !defined($now) ) { |
18 | $now = time; |
19 | } |
20 | |
21 | printf "0x%08x\n", $now; |