updatelang: Complain about suspicious characters in voiced strings.

The main intent is to catch printf() format specifiers (ie '%')

Change-Id: I8ed54993431e5f4d35e98de8faa7690198d5947f

1 files changed, 10 insertions, 1 deletions

diff --git a/tools/updatelang b/tools/updatelang
index 61d57de532..b67a28400c 100755
--- a/tools/updatelang
+++ b/tools/updatelang
@@ -371,7 +371,11 @@ foreach my $id (@langorder) {
 		    $lang{$id}{'dest'}{$tgt} ne $english{$id}{'dest'}{$tgt}) {
 		    $lang{$id}{'notes'} .= "### The <voice> section for '$id:$tgt' is blank! Copying from translated <dest>!\n";
 		    $lang{$id}{'voice'}{$tgt} = $lang{$id}{'dest'}{$tgt};
-
+		    if ($lang{$id}{'voice'}{$tgt} =~ /%/) {
+	                # If it has suspicious characters that are not normally voiced..
+		        $lang{$id}{'notes'} .= "### The <voice> section for '$id:$tgt' has some suspicious characters, please double-check!\n";
+			#print "#!! '$id:$tgt' suspicious characters\n";
+		    }
 		} else {
 		    $lang{$id}{'notes'} .= "### The <voice> section for '$id:$tgt' is blank! Copying from english!\n";
 
@@ -397,6 +401,11 @@ foreach my $id (@langorder) {
 		$lang{$id}{'notes'} .= "### The <voice> section for '$id:$tgt' is identical to english!\n";
 	    }
 	}
+        if ($lp{$tgt} =~ /%/) {
+            # If it has suspicious characters that are not normally voiced..
+            $lang{$id}{'notes'} .= "### The <voice> section for '$id:$tgt' has some suspicious characters, please double-check!\n";
+#            print "#!! '$id:$tgt' suspicious characters\n";
+        }
     }
 }