Home | History | Annotate | Download | only in syslinux 
      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;
     22