Changeset 5296 for trunk/tools/missing_keys.pl

Timestamp:

Mar 23, 2010, 10:50:48 PM (14 years ago)

Author:

plg

Message:

improvement: piwigo_dir can be set from the command line

bug fixed: changing filters for files to check.

File:

• trunk/tools/missing_keys.pl (modified) (5 diffs)

trunk/tools/missing_keys.pl

@@ -9 +9 @@
 our %registered_keys = ();
 
-my $piwigo_dir = '/home/pierrick/public_html/piwigo/dev/trunk';
-my $type = $ARGV[0]; # common, admin, install, upgrade
+my $piwigo_dir = $ARGV[0]; # '/home/pierrick/public_html/piwigo/dev/trunk';
+my $type = $ARGV[1];       # common, admin, install, upgrade
 
 find(\&used_keys, $piwigo_dir);
@@ -19 +19 @@
 
     if (not defined $registered_keys{$key}) {
-        print "{".$key."}", ' is missing', "\n";
-        # print '$lang[\''.$key.'\'] = \''.$key.'\';', "\n";
+        # print "{".$key."}", ' is missing', "\n";
+        print '$lang[\''.$key.'\'] = \''.$key.'\';', "\n";
     }
 }
@@ -35 +35 @@
     }
 
-    if ($File::Find::name =~ m{/(plugins|language)/}) {
+    if ($File::Find::name =~ m{/(plugins|language|_data)/}) {
         return 0;
     }
@@ -70 +70 @@
             $is_admin = 1;
         }
+        if ($File::Find::name =~ m{/admin\.php$}) {
+            $is_admin = 1;
+        }
 
         if (not $is_admin) {
@@ -83 +86 @@
             return 0;
         }
-        if ($File::Find::name =~ m{/admin/} or $File::Find::name =~ m{themes/default/template/mail}) {
+        if ($File::Find::name =~ m{/admin(/|\.php)} or $File::Find::name =~ m{themes/default/template/mail}) {
             return 0;
         }