diff options
author | hpa <hpa> | 1999-09-17 07:28:45 +0000 |
---|---|---|
committer | hpa <hpa> | 1999-09-17 07:28:45 +0000 |
commit | f9ff0f3e5d19be7e9ea64bae8862d49b08493fde (patch) | |
tree | 109377f3ada4940a859a439441764648a3fd2fdf /now.pl | |
parent | c8550fa29597a54ed28d66a799cf400b2b566d16 (diff) | |
download | syslinux-f9ff0f3e5d19be7e9ea64bae8862d49b08493fde.tar.gz |
Hey, it looks like it might actually *work*. Still need the prefix code,
though.
Diffstat (limited to 'now.pl')
-rw-r--r-- | now.pl | 16 |
1 files changed, 11 insertions, 5 deletions
@@ -1,15 +1,21 @@ #!/usr/bin/perl -#ident "$Id$" +# $Id$ # # 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. # -($file) = @ARGV; -if ( defined($file) ) { +undef $now; + +foreach $file ( @ARGV ) { ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime, $ctime,$blksize,$blocks) = stat($file); - $now = $mtime; -} else { + if ( !defined($now) || $now < $mtime ) { + $now = $mtime; + } +} + +if ( !defined($now) ) { $now = time; } |