#!/usr/bin/perl

my $file = $ARGV[0];

open (FILE, $file) || die "Cannot open $file!";

while (<FILE>) {

	if ($_=~/^\s*U\s*(\S+)/) {
	
	my $prop = 0;
	my $filenow = $1;
	my $fileprev = $filenow;
	$fileprev=~ s/mozilla\//mozilla-old\//g;

        my $filecat = $filenow;
	$filecat =~ s/mozilla\//l10n\/ca\//g;
        $filecat =~ s/locales\/en-US//g;

	print "$filenow -> $fileprev -> $filecat\n";
	if ($filecat=~/\.properties$/) {$prop = 1;}

	my $fileout = $filecat;
	$fileout =~ s/\//\*/g;

	print "../bin/diffversion.pl $prop $fileprev $filenow $filecat > $fileout\n";
	system ("../bin/diffversion.pl $prop $fileprev $filenow $filecat > new/$fileout");

	}

}

close (FILE);