mirror of https://github.com/nextcloud/server.git
New i18n-structure
parent
557b5b4b47
commit
61993419ec
@ -0,0 +1,104 @@
|
||||
#!/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, ">$lang.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";
|
||||
}
|
@ -1,4 +0,0 @@
|
||||
[General]
|
||||
LangCode=de
|
||||
ProjectID=oc_log
|
||||
TargetLangCode=de
|
Loading…
Reference in New Issue