diff options
author | Felix Fietkau <nbd@openwrt.org> | 2006-10-13 22:51:49 +0200 |
---|---|---|
committer | Felix Fietkau <nbd@openwrt.org> | 2016-03-20 17:29:15 +0100 |
commit | 60c1f0f64d23003a19a07d6b9638542130f6641d (patch) | |
tree | 8fb2787f4c49baded97cd55e0c371fe1cffce2b6 /scripts/timestamp.pl | |
parent | d58a09110ccfa95f06c983fe796806f2e035c9d2 (diff) | |
parent | b3ce218b51746d3a576221ea542facf3a1703ab2 (diff) | |
download | mtk-20170518-60c1f0f64d23003a19a07d6b9638542130f6641d.zip mtk-20170518-60c1f0f64d23003a19a07d6b9638542130f6641d.tar.gz mtk-20170518-60c1f0f64d23003a19a07d6b9638542130f6641d.tar.bz2 |
finally move buildroot-ng to trunk
Diffstat (limited to 'scripts/timestamp.pl')
-rwxr-xr-x | scripts/timestamp.pl | 64 |
1 files changed, 64 insertions, 0 deletions
diff --git a/scripts/timestamp.pl b/scripts/timestamp.pl new file mode 100755 index 0000000..a3aa50c --- /dev/null +++ b/scripts/timestamp.pl @@ -0,0 +1,64 @@ +#!/usr/bin/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 = ""; + open FIND, "find $path -not -path \\*.svn\\* -and -not -path \\*CVS\\* $options 2>/dev/null |"; + while (<FIND>) { + chomp; + my $file = $_; + open FILE, "<$file"; + my @stat = stat FILE; + close FILE; + if ($stat[9] > $ts) { + $ts = $stat[9]; + $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 =~ /^-/) { + $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{"-p"}) { + print "$n\n"; +} elsif ($options{"-t"}) { + print "$ts\n"; +} else { + print "$n\t$ts\n"; +} |