aboutsummaryrefslogtreecommitdiffstats
path: root/now.pl
diff options
context:
space:
mode:
authorhpa <hpa>1999-09-17 07:28:45 +0000
committerhpa <hpa>1999-09-17 07:28:45 +0000
commitf9ff0f3e5d19be7e9ea64bae8862d49b08493fde (patch)
tree109377f3ada4940a859a439441764648a3fd2fdf /now.pl
parentc8550fa29597a54ed28d66a799cf400b2b566d16 (diff)
downloadsyslinux-f9ff0f3e5d19be7e9ea64bae8862d49b08493fde.tar.gz
syslinux-f9ff0f3e5d19be7e9ea64bae8862d49b08493fde.tar.xz
syslinux-f9ff0f3e5d19be7e9ea64bae8862d49b08493fde.zip
Hey, it looks like it might actually *work*. Still need the prefix code,
though.
Diffstat (limited to 'now.pl')
-rw-r--r--now.pl16
1 files changed, 11 insertions, 5 deletions
diff --git a/now.pl b/now.pl
index 0626779f..6645558c 100644
--- a/now.pl
+++ b/now.pl
@@ -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;
}