Add l10n prefix to default module name.

Approved by: will

1 files changed, 14 insertions, 2 deletions

diff --git a/Tools/scripts/addport b/Tools/scripts/addport
index c943bd344ff..046f42aaa4f 100755
--- a/Tools/scripts/addport
+++ b/Tools/scripts/addport
@@ -63,6 +63,17 @@ my $nomkdir = $opts{'m'};
 my $addlchk = $opts{'a'};
 my $nofetch = $opts{'f'};
 my $currentdir = abs_path(".");
+my %l10nprefix = (
+	'chinese'	=> 'zh-',
+	'french'	=> 'fr-',
+	'german'	=> 'de-',
+	'hebrew'	=> 'iw-',
+	'japanese'	=> 'ja-',
+	'korean'	=> 'ko-',
+	'russian'	=> 'ru-',
+	'ukrainian'	=> 'uk-',
+	'vietnamese'	=> 'vi-',
+);
 
 my $tmpdir;
 my $repo;
@@ -193,9 +204,10 @@ foreach my $thisdir (@dirs) {
 	chomp(my $cvs_category = $category);
 	$cvs_category =~ s/-/_/g;
  
- 	$module = $portname;
+ 	$module = "$l10nprefix{$category}$portname";
+
 	if ($interactive) {
-		if (prompt("Port will be added as module $portname.  OK? ")) {
+		if (prompt("Port will be added as module $module.  OK? ")) {
 			do {
 				$module = query("Preferred module name for $module? ");
 			} while (prompt("Is the new module name $module OK? "));