www/tools/updateLang.pl

   1 #!/usr/bin/perl
   2
   3 # Program :  COPS localization string generator
   4 # Version :  0.0.1
   5 #
   6 # Author  :  Sébastien Lucas
   7 # License :  GPLv2
   8 #
   9
  10 use strict;
  11
  12 my @strings = ();
  13 my %values;
  14 my %allstrings;
  15
  16 # Load php files looking for strings to localize
  17
  18 opendir (my($dirhandle), "../") or die ("Directory not found\n");
  19 for (readdir ($dirhandle)) {
  20     next if (-d $_ ); # skip directories
  21     next if (/^[.]/); # skip dot-files
  22     next if not (/(.+)[.]php$/);
  23
  24     my $file = "../" . $_;
  25     debug ("text file: " . $_ . "\n");
  26     my $content = loadFile ($file);
  27
  28     while ($content =~ /localize\s*\("([\w\.]*?)"\)/igs) {
  29         $allstrings{$1} = "";
  30         debug (" * $1 \n");
  31     }
  32
  33     while ($content =~ /localize\s*\("([\w\.]*?)"\s*,/igs) {
  34         $allstrings{$1 . ".none"} = "";
  35         $allstrings{$1 . ".one"} = "";
  36         $allstrings{$1 . ".many"} = "";
  37         debug (" *** $1 \n");
  38     }
  39 }
  40 closedir $dirhandle;
  41
  42 @strings = sort (keys (%allstrings));
  43
  44 # Load existing json files with strings and values
  45
  46 opendir (my($dirhandle), "../lang") or die ("Directory not found\n");
  47 for (readdir ($dirhandle)) {
  48     next if (-d $_ ); # skip directories
  49     next if (/^[.]/); # skip dot-files
  50     next if not (/(.+)[.]json$/);
  51
  52     my $file = "../lang/" . $_;
  53     (my $lang = $_) =~ s/Localization_(\w\w)\.json/$1/;
  54     debug ("language file: $_ / $lang \n");
  55
  56     my $content = loadFile ($file);
  57
  58     while ($content =~ /"(.*?)"\:"(.*?)",/igs) {
  59         #push @strings, $1;
  60         $values{$lang}{$1} = $2;
  61         #debug (" * $1 \n");
  62     }
  63
  64     open OUTPUT, ">$file.new";
  65
  66     print OUTPUT "{\n";
  67     foreach my $name (@strings) {
  68         print OUTPUT "\"$name\":\"$values{$lang}{$name}\",\n";
  69     }
  70     print OUTPUT "\"end\":\"end\"\n";
  71     print OUTPUT "}\n";
  72
  73     close OUTPUT;
  74 }
  75 closedir $dirhandle;
  76
  77
  78
  79 sub loadFile {
  80     my ($file) = @_;
  81     my $save = $/;
  82     $/ = undef;
  83
  84     open INPUT, "<$file";
  85     my $content = <INPUT>;
  86     close INPUT;
  87
  88     $/ = $save;
  89
  90     return $content;
  91 }
  92
  93 sub debug {
  94     #uncomment next line for debug messages
  95     print @_;
  96 }