#!/usr/bin/perl
#this script will svn stat the local directory and then svn stat all
#subdirectories that are subversion directories, but not in the same
#tree as the local directory.  useful for home directories where local
#.conf files are checked in, and other subversion projects are checked
#out into ~/
#
#the script takes parameters which are regexps that can match dirs
#that it will ignore

#first, process all the files in the home directory
$dirs[0]=".";
$head=0;
$tail=1;

while ($head < $tail){
    $cmd="svn stat $dirs[$head]";
    @stat=`$cmd`;
    $head++;
    printf("***  $cmd\n");
    foreach (@stat){
	$_ =~ /^(.)......(.*)$/;
	$subdir = "$2/.svn";
	if ( ($1 eq "?") && (-d $2) && (-d $subdir) ){
	    $dirs[$tail++]=$2;
	}
	elsif ( !($1 eq "X") ) {
	    printf("%s",$_);
	}
    }
}

sub checkExcluded{
}