diff options
| author | Solomon Peachy <pizza@shaftnet.org> | 2024-09-17 10:18:29 -0400 |
|---|---|---|
| committer | Solomon Peachy <pizza@shaftnet.org> | 2024-09-17 10:18:29 -0400 |
| commit | 24ae4aee33fef450bb241058e50e86b10c0f1f4d (patch) | |
| tree | 1c32b7fd7d4cca5c1b35036bf90b48db2e6d61bb | |
| parent | 7d9fbae7492516699041753f2fff8d144063a066 (diff) | |
| download | rockbox-24ae4aee33fef450bb241058e50e86b10c0f1f4d.tar.gz rockbox-24ae4aee33fef450bb241058e50e86b10c0f1f4d.zip | |
updatelang: Expand suspicius character tests.
* dest: < >
* voice: [ ] < > { }
Change-Id: I97701e52807db996037b7542fb0b01f9db0dbc0f
| -rwxr-xr-x | tools/updatelang | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tools/updatelang b/tools/updatelang index 28f259bdbb..1fb594d596 100755 --- a/tools/updatelang +++ b/tools/updatelang | |||
| @@ -402,9 +402,9 @@ foreach my $id (@langorder) { | |||
| 402 | 402 | ||
| 403 | my $sane = $lang{$id}{'dest'}{$tgt}; | 403 | my $sane = $lang{$id}{'dest'}{$tgt}; |
| 404 | $sane =~ s/^~?(.*)/$1/; # Strip off leading ~ if it's there as it's not a legal character otherwise | 404 | $sane =~ s/^~?(.*)/$1/; # Strip off leading ~ if it's there as it's not a legal character otherwise |
| 405 | if ($sane =~ tr/"~//) { | 405 | if ($sane =~ tr/"~<>//) { |
| 406 | # If it has suspicious characters that are not allowed | 406 | # If it has suspicious characters that are not allowed |
| 407 | $lang{$id}{'notes'} .= "### The <dest> section for '$id:$tgt' has some suspicious characters (eg '~'), please double-check!\n"; | 407 | $lang{$id}{'notes'} .= "### The <dest> section for '$id:$tgt' has some suspicious characters (eg \",~,<,>), please double-check!\n"; |
| 408 | # print "#!! '$id:$tgt' suspicious characters\n"; | 408 | # print "#!! '$id:$tgt' suspicious characters\n"; |
| 409 | } | 409 | } |
| 410 | } | 410 | } |
| @@ -476,9 +476,9 @@ foreach my $id (@langorder) { | |||
| 476 | } | 476 | } |
| 477 | my $sane = $lang{$id}{'voice'}{$tgt}; | 477 | my $sane = $lang{$id}{'voice'}{$tgt}; |
| 478 | $sane =~ s/^~?(.*)/$1/; # Strip off leading ~ if it's there as it's not a legal character otherwise | 478 | $sane =~ s/^~?(.*)/$1/; # Strip off leading ~ if it's there as it's not a legal character otherwise |
| 479 | if ($sane =~ tr/%"~://) { | 479 | if ($sane =~ tr/%"~:\[\]<>{}//) { |
| 480 | # Suspicious characters that are not typically voiced.. | 480 | # Suspicious characters that are not typically voiced.. |
| 481 | $lang{$id}{'notes'} .= "### The <voice> section for '$id:$tgt' has some suspicious characters (eg '%' or '~' or ':'), please correct!\n"; | 481 | $lang{$id}{'notes'} .= "### The <voice> section for '$id:$tgt' has some suspicious characters (eg %,\",~,:,<,>,[,],{,}), please correct!\n"; |
| 482 | # print "#!! '$id:$tgt' suspicious characters\n"; | 482 | # print "#!! '$id:$tgt' suspicious characters\n"; |
| 483 | } | 483 | } |
| 484 | if ($lang{$id}{'voice'}{$tgt} =~ /\.\.\./) { | 484 | if ($lang{$id}{'voice'}{$tgt} =~ /\.\.\./) { |