OpenWrt – Rev 1

?pathlinks?

Blame – Last modification – View Log – Download

#!/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";
}