/
trorgmax
/
openwrt
Обзор
Документация
Войти
/
trorgmax
/
openwrt
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
scripts/timestamp.pl
69 строк
1 KB
Felix Fietkau
fix timestamp checks for build system paths which have '.svn' in their directory name
15 апр 2010, 02:21
15 апр 2010, 02:21
091934e
Код
Авторство
О чём код?
#!/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"; }