nextcloud/l10n/l10n.pl

99 lines
2.1 KiB
Perl
Raw Normal View History

2011-06-20 23:54:21 +04:00
#!/usr/bin/perl
use strict;
use Locale::PO;
use Cwd;
use Data::Dumper;
use File::Path;
2011-06-20 23:54:21 +04:00
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( "Usage: l10n.pl task\ntask: read, write\n" ) unless $task && $place;
2011-06-20 23:54:21 +04:00
2011-06-21 00:22:17 +04:00
# Our current position
my $whereami = cwd();
die( "Program must be executed in a l10n-folder called 'l10n'" ) unless $whereami =~ m/\/l10n$/;
2011-06-20 23:54:21 +04:00
# Where are i18n-files?
my @dirs = crawl( $place );
# Languages
rmtree( 'templates' );
2011-06-20 23:54:21 +04:00
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 '.';
}
if( $task eq 'read' ){
foreach my $dir ( @dirs ){
my @temp = split( /\//, $dir );
pop( @temp );
my $app = pop( @temp );
chdir( $dir );
my $output = "${whereami}/templates/$app.pot";
`xgettext --files-from=xgettextfiles --output="$output" --keyword=t`;
2011-06-20 23:54:21 +04:00
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;
2011-06-21 00:22:17 +04:00
my $array = Locale::PO->load_file_asarray( $input );
2011-06-20 23:54:21 +04:00
# Create array
my @strings = ();
2011-06-21 00:22:17 +04:00
foreach my $string ( @{$array} ){
next if $string->msgid() eq '""';
next if $string->msgstr() eq '""';
push( @strings, $string->msgid()." => ".$string->msgstr());
2011-06-20 23:54:21 +04:00
}
next if $#strings == -1; # Skip empty files
2011-06-20 23:54:21 +04:00
# Write PHP file
2011-06-21 00:02:13 +04:00
open( OUT, ">$language.php" );
2011-06-20 23:54:21 +04:00
print OUT "<?php \$TRANSLATIONS = array(\n";
print OUT join( ",\n", @strings );
print OUT "\n);\n";
close( OUT );
}
chdir( $whereami );
}
}
else{
print "unknown task!\n";
}