New i18n-structure

1 files changed, 104 insertions, 0 deletions

diff --git a/l10n/l10n.pl b/l10n/l10n.pl
new file mode 100644
index 00000000000..5463e34e4dc
--- /dev/null
+++ b/l10n/l10n.pl
@@ -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";
+}