Changeset 5510


Ignore:
Timestamp:
04/01/10 00:05:51 (10 years ago)
Author:
plg
Message:

missing_keys.pl now detects language keys that are obsolete.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tools/missing_keys.pl

    r5296 r5510  
    1515load_registered_keys($type); 
    1616 
    17 foreach my $key (sort keys %used_keys) { 
    18     # print "{".$key."}", ' is used', "\n"; 
     17# foreach my $key (sort keys %used_keys) { 
     18#     # print "{".$key."}", ' is used', "\n"; 
    1919 
    20     if (not defined $registered_keys{$key}) { 
    21         # print "{".$key."}", ' is missing', "\n"; 
    22         print '$lang[\''.$key.'\'] = \''.$key.'\';', "\n"; 
     20#     if (not defined $registered_keys{$key}) { 
     21#         # print "{".$key."}", ' is missing', "\n"; 
     22#         print '$lang[\''.$key.'\'] = \''.$key.'\';', "\n"; 
     23#     } 
     24# } 
     25 
     26my %ignore_keys = ( 
     27    '%d new image' => 1, 
     28    '%d new images' => 1, 
     29    '%d category updated' => 1, 
     30    '%d categories updated' => 1, 
     31    '%d new comment' => 1, 
     32    '%d new comments' => 1, 
     33    '%d comment to validate' => 1, 
     34    '%d comments to validate' => 1, 
     35    '%d new user' => 1, 
     36    '%d new users' => 1, 
     37    '%d waiting element' => 1, 
     38    '%d waiting elements' => 1, 
     39    'user_status_admin' => '', 
     40    'user_status_generic' => '', 
     41    'user_status_guest' => '', 
     42    'user_status_normal' => '', 
     43    'user_status_webmaster' => '', 
     44    'Level 0' => '', 
     45    'Level 1' => '', 
     46    'Level 2' => '', 
     47    'Level 4' => '', 
     48    'Level 8' => '', 
     49    'ACCESS_0' => '', 
     50    'ACCESS_1' => '', 
     51    'ACCESS_2' => '', 
     52    'ACCESS_3' => '', 
     53    'ACCESS_4' => '', 
     54    'ACCESS_5' => '', 
     55    'month' => '', 
     56    'day' => '', 
     57    'chronology_monthly_calendar' => '', 
     58    'chronology_monthly_list' => '', 
     59    'chronology_weekly_list' => '', 
     60); 
     61 
     62 
     63foreach my $key (sort keys %registered_keys) { 
     64    if (not defined $used_keys{$key} and not defined $ignore_keys{$key}) { 
     65        print "{".$key."}", ' is not used anywhere', "\n"; 
    2366    } 
    2467} 
    25  
    26 # foreach my $key (sort keys %registered_keys) { 
    27 #     if (not defined $used_keys{$key}) { 
    28 #         print "{".$key."}", ' is not used anywhere', "\n"; 
    29 #     } 
    30 # } 
    3168 
    3269sub used_keys { 
     
    4178    if ('upgrade' eq $type) { 
    4279        if ($File::Find::name !~ m{upgrade\.(tpl|php)$}) { 
    43             return 0; 
     80            # return 0; 
    4481        } 
    4582    } 
     
    92129 
    93130    if (-f) { 
     131        my $big_string = ''; 
    94132        open(my $fhi, '<', $File::Find::name); 
    95133        while (<$fhi>) { 
    96             if ($File::Find::name =~ m/tpl$/) { 
    97                 while (m/\{(['"])(.+?)\1\|\@translate/g) { 
    98                     $used_keys{$2}++; 
    99                 } 
    100             } 
     134            chomp; 
     135            s{//.*$}{}; 
     136            $big_string.= $_; 
     137        } 
     138        close($fhi); 
    101139 
    102             if ($File::Find::name =~ m/php$/) { 
    103                 while (m/l10n \s* \( \s* (['"]) (.+?) \1 \s* \)/xg) { 
    104                     $used_keys{$2}++; 
    105                 } 
     140        while ($big_string =~ m/\{(['"])(.+?)\1\|\@translate/g) { 
     141            $used_keys{$2}++; 
     142        } 
    106143 
    107                 while (m/l10n_args \s* \( \s* (['"]) (.+?) \1 \s* ,/xg) { 
    108                     $used_keys{$2}++; 
    109                 } 
     144        while ($big_string =~ m/l10n \s* \( \s* (['"]) (.+?) \1 \s* \)/xg) { 
     145            $used_keys{$2}++; 
     146        } 
    110147 
    111                 while (m/l10n_dec \s* \( \s* (['"]) (.+?) \1 \s* ,\s* (['"]) (.+?) \3 \s* ,/xg) { 
    112                     $used_keys{$2}++; 
    113                     $used_keys{$4}++; 
    114                 } 
    115             } 
     148        while ($big_string =~ m/l10n_args \s* \( \s* (['"]) (.+?) \1 \s* ,/xg) { 
     149            $used_keys{$2}++; 
     150        } 
     151 
     152        while ($big_string =~ m/l10n_dec \s* \( \s* (['"]) (.+?) \1 \s* ,\s* (['"]) (.+?) \3 \s* ,/xg) { 
     153            $used_keys{$2}++; 
     154            $used_keys{$4}++; 
    116155        } 
    117156    } 
Note: See TracChangeset for help on using the changeset viewer.