luci-app-freifunk-diagnostics: use FULL_REQUEST_URI
[project/luci.git] / build / i18n-po2lua.pl
index 8466fd9..5129055 100755 (executable)
@@ -10,67 +10,17 @@ if( ! -d $target_dir )
        system('mkdir', '-p', $target_dir);
 }
 
-
-my %target_strings;
-
-
 if( open F, "find $source_dir -type f -name '*.po' |" )
 {
        while( chomp( my $file = readline F ) )
        {
-               if( open L, "< $file" )
-               {
-                       my $content = 0;
-                       my ( $lang, $basename ) = $file =~ m{.+/(\w+)/([^/]+)\.po$};
-                       $lang = lc $lang;
-                       $lang =~ s/_/-/g;
-                       
-                       if( open D, "> $target_dir/$basename.$lang.lua" )
-                       {
-                               printf "Generating %-40s ", "$target_dir/$basename.$lang.lua";
-
-                               my ( $k, $v );
-
-                               while( chomp( my $line = readline L ) )
-                               {
-                                       if( $line =~ /^msgid "(.+)"/ )
-                                       {
-                                               $k = $1;
-                                       }
-                                       elsif( $k && $line =~ /^msgstr "(.*)"/ )
-                                       {
-                                               $v = $1;
-                                       }
-                                       elsif( $k && defined($v) && $line =~ /^"(.+)"/ )
-                                       {
-                                               $v .= $1;
-                                       }
-                                       else
-                                       {
-                                               if( $k && defined($v) && length($v) > 0 )
-                                               {
-                                                       $v =~ s/\\(['"\\])/$1/g;
-                                                       $v =~ s/(['\\])/\\$1/g;
-
-                                                       printf D "%s='%s'\n", $k, $v;
-                                                       $content++;
-                                               }
-               
-                                               $k = $v = undef;
-                                       }
-                               }
-
-                               print $content ? "done ($content strings)\n" : "empty\n";
-
-                               close D;
-
-
-                               unlink("$target_dir/$basename.$lang.lua")
-                                       unless( $content > 0 );
-                       }
+               my ( $lang, $basename ) = $file =~ m{.+/(\w+)/([^/]+)\.po$};
+               $lang = lc $lang;
+               $lang =~ s/_/-/g;
 
-                       close L;
-               }
+               printf "Generating %-40s ", "$target_dir/$basename.$lang.lmo";
+               system("./build/po2lmo", $file, "$target_dir/$basename.$lang.lmo");
+               print ( -f "$target_dir/$basename.$lang.lmo" ? "done\n" : "empty\n" );
        }
 
        close F;