diff options
author | blogic <blogic@3c298f89-4303-0410-b956-a3cf2f4a3e73> | 2012-10-05 10:12:53 +0000 |
---|---|---|
committer | blogic <blogic@3c298f89-4303-0410-b956-a3cf2f4a3e73> | 2012-10-05 10:12:53 +0000 |
commit | 5c105d9f3fd086aff195d3849dcf847d6b0bd927 (patch) | |
tree | 1229a11f725bfa58aa7c57a76898553bb5f6654a /scripts/timestamp.pl | |
download | openwrt-5c105d9f3fd086aff195d3849dcf847d6b0bd927.tar.gz openwrt-5c105d9f3fd086aff195d3849dcf847d6b0bd927.zip |
branch Attitude Adjustment
git-svn-id: svn://svn.openwrt.org/openwrt/branches/attitude_adjustment@33625 3c298f89-4303-0410-b956-a3cf2f4a3e73
Diffstat (limited to 'scripts/timestamp.pl')
-rwxr-xr-x | scripts/timestamp.pl | 69 |
1 files changed, 69 insertions, 0 deletions
diff --git a/scripts/timestamp.pl b/scripts/timestamp.pl new file mode 100755 index 000000000..e24d8149d --- /dev/null +++ b/scripts/timestamp.pl @@ -0,0 +1,69 @@ +#!/usr/bin/env perl +# +# Copyright (C) 2006 OpenWrt.org +# +# This is free software, licensed under the GNU General Public License v2. +# See /LICENSE for more information. +# + +use strict; + +sub get_ts($$) { + my $path = shift; + my $options = shift; + my $ts = 0; + my $fn = ""; + $path .= "/" if( -d $path); + open FIND, "find $path -type f -and -not -path \\*/.svn\\* -and -not -path \\*CVS\\* $options 2>/dev/null |"; + while (<FIND>) { + chomp; + my $file = $_; + next if -l $file; + my $mt = (stat $file)[9]; + if ($mt > $ts) { + $ts = $mt; + $fn = $file; + } + } + close FIND; + return ($ts, $fn); +} + +(@ARGV > 0) or push @ARGV, "."; +my $ts = 0; +my $n = "."; +my %options; +while (@ARGV > 0) { + my $path = shift @ARGV; + if ($path =~ /^-x/) { + my $str = shift @ARGV; + $options{"findopts"} .= " -and -not -path '".$str."'" + } elsif ($path =~ /^-f/) { + $options{"findopts"} .= " -follow"; + } elsif ($path =~ /^-n/) { + my $arg = $ARGV[0]; + $options{$path} = $arg; + } elsif ($path =~ /^-/) { + $options{$path} = 1; + } else { + my ($tmp, $fname) = get_ts($path, $options{"findopts"}); + if ($tmp > $ts) { + if ($options{'-F'}) { + $n = $fname; + } else { + $n = $path; + } + $ts = $tmp; + } + } +} + +if ($options{"-n"}) { + exit ($n eq $options{"-n"} ? 0 : 1); +} elsif ($options{"-p"}) { + print "$n\n"; +} elsif ($options{"-t"}) { + print "$ts\n"; +} else { + print "$n\t$ts\n"; +} |