mirrors/Piwigo
1
0
Fork 0
mirror of https://github.com/Piwigo/Piwigo.git synced 2025-04-26 11:19:55 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

missing_keys.pl now detects language keys that are obsolete.

Browse source 
git-svn-id: http://piwigo.org/svn/trunk@5510 68402e56-0260-453c-a942-63ccdbb3a9ee
This commit is contained in:
plegall 2010-03-31 22:05:51 +00:00
parent ff8049ff28
commit a1016d0c78
1 changed files with 68 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

97
tools/missing_keys.pl
View file

@ -14,21 +14,58 @@ my $type = $ARGV[1]; # common, admin, install, upgrade
find(\&used_keys, $piwigo_dir);
load_registered_keys($type);
foreach my $key (sort keys %used_keys) {
# print "{".$key."}", ' is used', "\n";
# foreach my $key (sort keys %used_keys) {
# # print "{".$key."}", ' is used', "\n";
if (not defined $registered_keys{$key}) {
# print "{".$key."}", ' is missing', "\n";
print '$lang[\''.$key.'\'] = \''.$key.'\';', "\n";
}
}
# foreach my $key (sort keys %registered_keys) {
# if (not defined $used_keys{$key}) {
# print "{".$key."}", ' is not used anywhere', "\n";
# if (not defined $registered_keys{$key}) {
# # print "{".$key."}", ' is missing', "\n";
# print '$lang[\''.$key.'\'] = \''.$key.'\';', "\n";
# }
# }
my %ignore_keys = (
'%d new image' => 1,
'%d new images' => 1,
'%d category updated' => 1,
'%d categories updated' => 1,
'%d new comment' => 1,
'%d new comments' => 1,
'%d comment to validate' => 1,
'%d comments to validate' => 1,
'%d new user' => 1,
'%d new users' => 1,
'%d waiting element' => 1,
'%d waiting elements' => 1,
'user_status_admin' => '',
'user_status_generic' => '',
'user_status_guest' => '',
'user_status_normal' => '',
'user_status_webmaster' => '',
'Level 0' => '',
'Level 1' => '',
'Level 2' => '',
'Level 4' => '',
'Level 8' => '',
'ACCESS_0' => '',
'ACCESS_1' => '',
'ACCESS_2' => '',
'ACCESS_3' => '',
'ACCESS_4' => '',
'ACCESS_5' => '',
'month' => '',
'day' => '',
'chronology_monthly_calendar' => '',
'chronology_monthly_list' => '',
'chronology_weekly_list' => '',
);
foreach my $key (sort keys %registered_keys) {
if (not defined $used_keys{$key} and not defined $ignore_keys{$key}) {
print "{".$key."}", ' is not used anywhere', "\n";
}
}
sub used_keys {
if ($File::Find::name !~ m/(tpl|php)$/) {
return 0;
@ -40,7 +77,7 @@ sub used_keys {
if ('upgrade' eq $type) {
if ($File::Find::name !~ m{upgrade\.(tpl|php)$}) {
return 0;
# return 0;
}
}
@ -91,28 +128,30 @@ sub used_keys {
}
if (-f) {
my $big_string = '';
open(my $fhi, '<', $File::Find::name);
while (<$fhi>) {
if ($File::Find::name =~ m/tpl$/) {
while (m/\{(['"])(.+?)\1\|\@translate/g) {
$used_keys{$2}++;
}
}
chomp;
s{//.*$}{};
$big_string.= $_;
}
close($fhi);
if ($File::Find::name =~ m/php$/) {
while (m/l10n \s* \( \s* (['"]) (.+?) \1 \s* \)/xg) {
$used_keys{$2}++;
}
while ($big_string =~ m/\{(['"])(.+?)\1\|\@translate/g) {
$used_keys{$2}++;
}
while (m/l10n_args \s* \( \s* (['"]) (.+?) \1 \s* ,/xg) {
$used_keys{$2}++;
}
while ($big_string =~ m/l10n \s* \( \s* (['"]) (.+?) \1 \s* \)/xg) {
$used_keys{$2}++;
}
while (m/l10n_dec \s* \( \s* (['"]) (.+?) \1 \s* ,\s* (['"]) (.+?) \3 \s* ,/xg) {
$used_keys{$2}++;
$used_keys{$4}++;
}
}
while ($big_string =~ m/l10n_args \s* \( \s* (['"]) (.+?) \1 \s* ,/xg) {
$used_keys{$2}++;
}
while ($big_string =~ m/l10n_dec \s* \( \s* (['"]) (.+?) \1 \s* ,\s* (['"]) (.+?) \3 \s* ,/xg) {
$used_keys{$2}++;
$used_keys{$4}++;
}
}
}