fix [6191]
[openwrt/openwrt.git] / scripts / timestamp.pl
1 #!/usr/bin/perl
2 #
3 # Copyright (C) 2006 OpenWrt.org
4 #
5 # This is free software, licensed under the GNU General Public License v2.
6 # See /LICENSE for more information.
7 #
8
9 use strict;
10
11 sub get_ts($$) {
12 my $path = shift;
13 my $options = shift;
14 my $ts = 0;
15 my $fn = "";
16 open FIND, "find $path -not -path \\*.svn\\* -and -not -path \\*CVS\\* $options 2>/dev/null |";
17 while (<FIND>) {
18 chomp;
19 my $file = $_;
20 next if -l $file;
21 my @stat = stat $file;
22 if ($stat[9] > $ts) {
23 $ts = $stat[9];
24 $fn = $file;
25 }
26 }
27 close FIND;
28 return ($ts, $fn);
29 }
30
31 (@ARGV > 0) or push @ARGV, ".";
32 my $ts = 0;
33 my $n = ".";
34 my %options;
35 while (@ARGV > 0) {
36 my $path = shift @ARGV;
37 if ($path =~ /^-x/) {
38 my $str = shift @ARGV;
39 $options{"findopts"} .= " -and -not -path \\*".$str."\\*"
40 } elsif ($path =~ /^-f/) {
41 $options{"findopts"} .= " -follow";
42 } elsif ($path =~ /^-/) {
43 $options{$path} = 1;
44 } else {
45 my ($tmp, $fname) = get_ts($path, $options{"findopts"});
46 if ($tmp > $ts) {
47 if ($options{'-f'}) {
48 $n = $fname;
49 } else {
50 $n = $path;
51 }
52 $ts = $tmp;
53 }
54 }
55 }
56
57 if ($options{"-p"}) {
58 print "$n\n";
59 } elsif ($options{"-t"}) {
60 print "$ts\n";
61 } else {
62 print "$n\t$ts\n";
63 }