Annotation of /tags/mkinitrd-6_4_0/isolinux/now.pl
Parent Directory | Revision Log
Revision 532 -
(hide annotations)
(download)
Sat Sep 1 22:45:15 2007 UTC (17 years ago) by niro
Original Path: trunk/mkinitrd-magellan/isolinux/now.pl
File MIME type: text/plain
File size: 496 byte(s)
Sat Sep 1 22:45:15 2007 UTC (17 years ago) by niro
Original Path: trunk/mkinitrd-magellan/isolinux/now.pl
File MIME type: text/plain
File size: 496 byte(s)
-import if magellan mkinitrd; it is a fork of redhats mkinitrd-5.0.8 with all magellan patches and features; deprecates magellan-src/mkinitrd
1 | niro | 532 | #!/usr/bin/perl |
2 | # $Id: now.pl,v 1.1 2007-09-01 22:44:05 niro Exp $ | ||
3 | # | ||
4 | # Print the time (possibly the mtime of a file) as a hexadecimal integer | ||
5 | # If more than one file, print the mtime of the *newest* file. | ||
6 | # | ||
7 | |||
8 | undef $now; | ||
9 | |||
10 | foreach $file ( @ARGV ) { | ||
11 | ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime, | ||
12 | $ctime,$blksize,$blocks) = stat($file); | ||
13 | if ( !defined($now) || $now < $mtime ) { | ||
14 | $now = $mtime; | ||
15 | } | ||
16 | } | ||
17 | |||
18 | if ( !defined($now) ) { | ||
19 | $now = time; | ||
20 | } | ||
21 | |||
22 | printf "0x%08x\n", $now; |