webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-09 18:45:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

lang: Show the full untranslated string

Browse Source 
This will help translators to add missing strings easier

Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
This commit is contained in:
Michael Tremer
2018-11-09 14:58:38 +00:00
parent 014b235a06
commit db6b40500c
10 changed files with 5440 additions and 4039 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
tools/check_strings.pl
View File

@@ -31,13 +31,22 @@ if ( $lang eq "") {
}
$basedir = cwd();
# Load English strings
require "${basedir}/langs/en/cgi-bin/en.pl";
# Copy hash and empty %tr
my %tr_en = %tr;
%tr = ();
# Load requested language
require "${basedir}/langs/$lang/cgi-bin/$lang.pl";
sub wanted {
if ( -f $File::Find::name && open(FILE, $File::Find::name)) {
while (<FILE>) {
while ($_ =~ /\$Lang::tr\{'([A-Za-z0-9,:_\s\/\.-]+)'\}/g) {
$tr2{$1} = 'empty string';
$tr2{$1} = $tr_en{$1} || "unknown string";
}
}
close(FILE);
@@ -60,6 +69,6 @@ for my $key ( sort (keys %tr) ) {
for my $key ( sort(keys %tr2) ) {
my $value = $tr2{$key};
if (! $tr{$key}) {
print "WARNING: untranslated string: $key\n";
print "WARNING: untranslated string: $key = $value\n";
}
}