105 lines
2.2 KiB
Perl
105 lines
2.2 KiB
Perl
#!/usr/bin/perl
|
|
use strict;
|
|
use Locale::PO;
|
|
use Cwd;
|
|
use Data::Dumper;
|
|
|
|
sub crawl{
|
|
my( $dir ) = @_;
|
|
my @found = ();
|
|
|
|
opendir( DIR, $dir );
|
|
my @files = readdir( DIR );
|
|
closedir( DIR );
|
|
|
|
foreach my $i ( @files ){
|
|
next if substr( $i, 0, 1 ) eq '.';
|
|
if( -d $dir.'/'.$i ){
|
|
push( @found, crawl( $dir.'/'.$i ));
|
|
}
|
|
elsif( $i eq 'xgettextfiles' ){
|
|
push( @found, $dir );
|
|
}
|
|
}
|
|
|
|
return @found;
|
|
}
|
|
|
|
my $task = shift( @ARGV );
|
|
my $place = '..';
|
|
|
|
die( "Usuage: l10n.pl task\ntask: read, write\n") unless $task && $place;
|
|
|
|
# Where are i18n-files?
|
|
my @dirs = crawl( $place );
|
|
|
|
# Languages
|
|
mkdir( 'templates' ) unless -d 'templates';
|
|
|
|
my @languages = ();
|
|
opendir( DIR, '.' );
|
|
my @files = readdir( DIR );
|
|
closedir( DIR );
|
|
foreach my $i ( @files ){
|
|
push( @languages, $i ) if -d $i && substr( $i, 0, 1 ) ne '.';
|
|
}
|
|
|
|
# Our current position
|
|
my $whereami = cwd();
|
|
|
|
if( $task eq 'read' ){
|
|
foreach my $dir ( @dirs ){
|
|
my @temp = split( /\//, $dir );
|
|
pop( @temp );
|
|
my $app = pop( @temp );
|
|
chdir( $dir );
|
|
foreach my $language ( @languages ){
|
|
my $output = "${whereami}/$language/$app.po";
|
|
$output .= 't' if $language eq 'templates';
|
|
|
|
if( -e $output ){
|
|
`xgettext --files-from=xgettextfiles --join-existing --output="$output" --keyword=t`
|
|
}
|
|
else{
|
|
`xgettext --files-from=xgettextfiles --output="$output" --keyword=t`
|
|
}
|
|
}
|
|
chdir( $whereami );
|
|
}
|
|
}
|
|
elsif( $task eq 'write' ){
|
|
foreach my $dir ( @dirs ){
|
|
my @temp = split( /\//, $dir );
|
|
pop( @temp );
|
|
my $app = pop( @temp );
|
|
chdir( $dir );
|
|
foreach my $language ( @languages ){
|
|
next if $language eq 'templates';
|
|
|
|
my $input = "${whereami}/$language/$app.po";
|
|
next unless -e $input;
|
|
|
|
my $hash = Locale::PO->load_file_ashash( $input );
|
|
|
|
# Create array
|
|
my @strings = ();
|
|
foreach my $key ( keys( %{$hash} )){
|
|
next if $key eq '""';
|
|
next if $hash->{$key}->msgstr() eq '""';
|
|
push( @strings, $hash->{$key}->msgid()." => ".$hash->{$key}->msgstr());
|
|
}
|
|
|
|
# Write PHP file
|
|
open( OUT, ">$language.php" );
|
|
print OUT "<?php \$TRANSLATIONS = array(\n";
|
|
print OUT join( ",\n", @strings );
|
|
print OUT "\n);\n";
|
|
close( OUT );
|
|
}
|
|
chdir( $whereami );
|
|
}
|
|
}
|
|
else{
|
|
print "unknown task!\n";
|
|
}
|