From 6d35e9d0f580f95aa7a97366cf5a325543494f2d Mon Sep 17 00:00:00 2001 From: Felix Fietkau Date: Thu, 20 Apr 2006 00:25:17 +0000 Subject: [PATCH] add timestamp check script SVN-Revision: 3677 --- openwrt/scripts/timestamp.pl | 40 ++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100755 openwrt/scripts/timestamp.pl diff --git a/openwrt/scripts/timestamp.pl b/openwrt/scripts/timestamp.pl new file mode 100755 index 0000000000..f6b06bc7f3 --- /dev/null +++ b/openwrt/scripts/timestamp.pl @@ -0,0 +1,40 @@ +#!/usr/bin/perl +use strict; + +sub get_ts($) { + my $path = shift; + my $ts = 0; + open FIND, "find $path -not -path \\*.svn\\* -and -not -path \\*CVS\\* |"; + while () { + open FILE, "<$_"; + my @stat = stat FILE; + close FILE; + $ts = $stat[9] if ($stat[9] > $ts); + } + close FIND; + return $ts; +} + +(@ARGV > 0) or push @ARGV, "."; +my $ts = 0; +my $n = "."; +my %options; +foreach my $path (@ARGV) { + if ($path =~ /^-/) { + $options{$path} = 1; + } else { + my $tmp = get_ts($path); + if ($tmp > $ts) { + $n = $path; + $ts = $tmp; + } + } +} + +if ($options{"-p"}) { + print "$n\n"; +} elsif ($options{"-t"}) { + print "$ts\n"; +} else { + print "$n\t$ts\n"; +} -- 2.25.1