From 9fd4782c6a2c5908e16f75eba469dcf6c6435af9 Mon Sep 17 00:00:00 2001
From: Solomon Peachy <pizza@shaftnet.org>
Date: Mon, 29 Apr 2024 17:14:15 -0400
Subject: updatelang:  Complain about suspicious characters in voiced strings.

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

Change-Id: I8ed54993431e5f4d35e98de8faa7690198d5947f
---
 tools/updatelang | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

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";
+        }
     }
 }
 
-- 
cgit v1.2.3