#!/usr/bin/perl

#On hi ha el repositori central
my $current = $ARGV[1];
#El que s'ha contribuït
my $base = ".";
&check ($base."/".$ARGV[0]);


sub check {

	my $dir = shift;
	
	opendir(DIR, "$dir") || die "Cannot open dir!";

	my @contents = readdir DIR;

	closedir (DIR);

	foreach my $one (@contents) {

		unless ($one=~/^\./) {

			if (-d "$dir/$one") {

				unless ($one=~/^CVS/) {

					my $dirin = "$dir/$one";
					print STDERR $dirin, "\n";
					&check($dirin);
				
				}
			}

			else { print "$dir/$one\n";
				system ("diff $current/$dir/$one $dir/$one");}
		}

	}

}