29 lines
624 B
Perl
29 lines
624 B
Perl
|
#!@@@perl@@@ -w
|
||
|
|
use strict;
|
||
|
|
use File::Find;
|
||
|
|
use Getopt::Long;
|
||
|
|
|
||
|
|
my $debug = 0;
|
||
|
|
|
||
|
|
sub check_cvs {
|
||
|
|
local $/ =
|
||
|
|
"===================================================================\n";
|
||
|
|
return unless (-d "$_/CVS");
|
||
|
|
print STDERR "checking $File::Find::dir/$_\n" if ($debug);
|
||
|
|
|
||
|
|
# $_ is a CVS working dir
|
||
|
|
|
||
|
|
open (CVSSTATUS, "cd $_ && cvs -q status|");
|
||
|
|
while(<CVSSTATUS>) {
|
||
|
|
print if (/Status/ && !/Status: Up-to-date/);
|
||
|
|
}
|
||
|
|
close(CVSSTATUS);
|
||
|
|
|
||
|
|
# don't recurse, cvs already did:
|
||
|
|
$File::Find::prune = 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
GetOptions("debug" => \$debug);
|
||
|
|
@ARGV = (".") unless (@ARGV);
|
||
|
|
find(\&check_cvs, @ARGV);
|