#!/usr/bin/perl

#Attach #new strings in translated files

my $FILEBASE = "/toni/mozillatrans/cvs-aviary";

opendir (DIR, $ARGV[0]);

my @dircont = grep {$_=~/^\*/} readdir DIR;

closedir (DIR);

foreach my $file (@dircont)  {

	my $fileout = $file;
	$fileout =~ s/\*/\//g;
	$fileout =~ s/\/mozilla/\/l10n\/ca/g;
	$fileout =~ s/locales\/en-US//g;
	

	print "$FILEBASE$fileout\n";

	open (FILEOUT, ">>$FILEBASE/$fileout");
	
	open (FILEIN, "$ARGV[0]/$file");
	while (<FILEIN>) {

		print FILEOUT "* $_";	
	}
	close (FILEIN);
	close (FILEOUT);
}