Changeset 5741 for trunk/tools/missing_keys.pl
- Timestamp:
- Apr 9, 2010, 8:17:50 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/missing_keys.pl
r5740 r5741 15 15 load_registered_keys($type); 16 16 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"; 19 19 20 if (not defined $registered_keys{$key}) {21 # print "{".$key."}", ' is missing', "\n";22 print '$lang[\''.$key.'\'] = \''.$key.'\';', "\n";23 }24 }20 # if (not defined $registered_keys{$key}) { 21 # # print "{".$key."}", ' is missing', "\n"; 22 # print '$lang[\''.$key.'\'] = \''.$key.'\';', "\n"; 23 # } 24 # } 25 25 26 26 my %ignore_keys = ( … … 75 75 76 76 77 #foreach my $key (sort keys %registered_keys) {78 #if (not defined $used_keys{$key} and not defined $ignore_keys{$key}) {79 #print "{".$key."}", ' is not used anywhere', "\n";80 #}81 #}77 foreach my $key (sort keys %registered_keys) { 78 if (not defined $used_keys{$key} and not defined $ignore_keys{$key}) { 79 print "{".$key."}", ' is not used anywhere', "\n"; 80 } 81 } 82 82 83 83 sub used_keys {
Note: See TracChangeset
for help on using the changeset viewer.