#!/usr/bin/perl

#Directory enter
my $diren = $ARGV[0];

#Regional or not

my $reg = 0;
if (defined $ARGV[1]) {
	
	$reg = $ARGV[1];
}


opendir (DIREN, $diren) || die "Cannot open $diren!";

my @level1en = readdir (DIREN);

closedir (DIREN);

my @level2en;


foreach my $subdir (@level1en) {

	if (-d "$diren\/$subdir") {

		opendir (DIR2EN, "$diren\/$subdir") || die "Cannot open $diren/$subdir!";
		
		@level2en = readdir (DIR2EN);
		
		closedir (DIR2EN);

		
		foreach my $file (@level2en) {

			
			if ($file=~/^contents.rdf$/) {

				print "iii!";
				&subsca("$diren\/$subdir\/$file", $reg);

			}
			
			
			
			
		}
		

	}
	
}

sub subsca {

	
	my $location = shift;
	my $reg = shift;
	
	
	print "$reg -> $location \n";
	open (FILECON, "$location") || die "iii";

	open (FILENEW, ">$location\.new");

	while (<FILECON>) {

		if ($_=~/chrome\:name=\"ca\"/) {

			if ($reg == 1) {

				s/chrome\:name=\"ca\"/chrome\:name=\"CA\"/g;
				
			}

			if ($reg == 0)  {
			
				s/chrome\:name=\"ca\"/chrome\:name=\"ca-CA\"/g;

			}
		}

		if ($_=~/urn\:mozilla\:locale\:ca/) {

			if ($reg == 1) {

				s/urn\:mozilla\:locale\:ca/urn\:mozilla\:locale\:CA/g;
			}

			if ($reg == 0)  {
				
				s/urn\:mozilla\:locale\:ca/urn\:mozilla\:locale\:ca-CA/g;

				
			}
		}

		print FILENEW $_;
		
	
	}

	close (FILECON);
	close (FILENEW);

	system ("mv -f $location.new $location");
}