Merge pull request #6265 from nextcloud/unperl-l10n

Remove old perl script to update l10n files

1 files changed, 0 insertions, 227 deletions

diff --git a/l10n/l10n.pl b/l10n/l10n.pl
deleted file mode 100644
index c8312982fdc..00000000000
--- a/l10n/l10n.pl
+++ /dev/null
@@ -1,227 +0,0 @@
-#!/usr/bin/perl
-use strict;
-use Locale::PO;
-use Cwd;
-use Data::Dumper;
-use File::Path;
-
-sub crawlPrograms{
-	my( $dir, $ignore ) = @_;
-	my @found = ();
-
-	opendir( DIR, $dir );
-	my @files = readdir( DIR );
-	closedir( DIR );
-	@files = sort( @files );
-
-	foreach my $i ( @files ){
-		next if substr( $i, 0, 1 ) eq '.';
-		if( $i eq 'l10n' && !$ignore ){
-			push( @found, $dir );
-		}
-		elsif( -d $dir.'/'.$i ){
-			push( @found, crawlPrograms( $dir.'/'.$i ));
-		}
-	}
-
-	return @found;
-}
-
-sub crawlFiles{
-	my( $dir ) = @_;
-	my @found = ();
-
-	opendir( DIR, $dir );
-	my @files = readdir( DIR );
-	closedir( DIR );
-	@files = sort( @files );
-
-	foreach my $i ( @files ){
-		next if substr( $i, 0, 1 ) eq '.';
-		next if $i eq 'l10n';
-
-		if( -d $dir.'/'.$i ){
-			push( @found, crawlFiles( $dir.'/'.$i ));
-		}
-		else{
-			push(@found,$dir.'/'.$i) if $i =~ /.*(?<!\.min)\.js$/ || $i =~ /\.php$/;
-		}
-	}
-
-	return @found;
-}
-
-sub readIgnorelist{
-	return () unless -e 'l10n/ignorelist';
-	my %ignore = ();
-	open(IN,'l10n/ignorelist');
-	while(<IN>){
-		my $line = $_;
-		chomp($line);
-		$ignore{"./$line"}++;
-	}
-	close(IN);
-	return %ignore;
-}
-
-sub getPluralInfo {
-	my( $info ) = @_;
-
-	# get string
-	$info =~ s/.*Plural-Forms: (.+)\\n.*/$1/;
-	$info =~ s/^(.*)\\n.*/$1/g;
-
-	return $info;
-}
-
-sub init() {
-	# let's get the version from stdout of xgettext
-	my $out = `xgettext --version`;
-	# we assume the first line looks like this 'xgettext (GNU gettext-tools) 0.19.3'
-	$out = substr $out, 29, index($out, "\n")-29;
-	$out =~ s/^\s+|\s+$//g;
-	$out = "v" . $out;
-	my $actual = version->parse($out);
-	# 0.18.3 introduced JavaScript as a language option
-	my $expected = version->parse('v0.18.3');
-	if ($actual < $expected) {
-		die( "Minimum expected version of xgettext is " . $expected . ". Detected: " . $actual );
-	}
-}
-
-init();
-
-my $task = shift( @ARGV );
-my $place = '..';
-
-die( "Usage: l10n.pl task\ntask: read, write\n" ) unless $task && $place;
-
-# Our current position
-my $whereami = cwd();
-die( "Program must be executed in a l10n-folder called 'l10n'" ) unless $whereami =~ m/\/l10n$/;
-
-# Where are i18n-files?
-my @dirs = crawlPrograms( $place, 1 );
-
-# Languages
-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' ){
-	rmtree( 'templates' );
-	mkdir( 'templates' ) unless -d 'templates';
-	print "Mode: reading\n";
-	foreach my $dir ( @dirs ){
-		my @temp = split( /\//, $dir );
-		my $app = pop( @temp );
-		chdir( $dir );
-		# parses the app info and creates an dummy file specialAppInfoFakeDummyForL10nScript.php
-		`php $whereami/../build/l10nParseAppInfo.php`;
-		my @totranslate = crawlFiles('.');
-		my %ignore = readIgnorelist();
-		my $output = "${whereami}/templates/$app.pot";
-		print "  Processing $app\n";
-
-		foreach my $file ( @totranslate ){
-			next if $ignore{$file};
-			my $keywords = '';
-			if( $file =~ /\.js$/ ){
-				$keywords = '--keyword=t:2 --keyword=n:2,3';
-			}
-			else{
-				$keywords = '--keyword=t --keyword=n:1,2';
-			}
-			my $language = ( $file =~ /\.js$/ ? 'Javascript' : 'PHP');
-			my $joinexisting = ( -e $output ? '--join-existing' : '');
-			print "    Reading $file\n";
-			`xgettext --output="$output" $joinexisting $keywords --language=$language "$file" --add-comments=TRANSLATORS --from-code=UTF-8 --package-version="8.0.0" --package-name="ownCloud Core" --msgid-bugs-address="translations\@owncloud.org"`;
-		}
-		rmtree( "specialAppInfoFakeDummyForL10nScript.php" );
-		chdir( $whereami );
-	}
-}
-elsif( $task eq 'write' ){
-	print "Mode: write\n";
-	foreach my $dir ( @dirs ){
-		my @temp = split( /\//, $dir );
-		my $app = pop( @temp );
-		chdir( $dir.'/l10n' );
-		print "  Processing $app\n";
-		foreach my $language ( @languages ){
-			next if $language eq 'templates';
-
-			my $input = "${whereami}/$language/$app.po";
-			next unless -e $input;
-
-			print "    Language $language\n";
-			my $array = Locale::PO->load_file_asarray( $input );
-			# Create array
-			my @strings = ();
-			my @js_strings = ();
-			my $plurals;
-
-			TRANSLATIONS: foreach my $string ( @{$array} ){
-				if( $string->msgid() eq '""' ){
-					# Translator information
-					$plurals = getPluralInfo( $string->msgstr());
-				}
-				elsif( defined( $string->msgstr_n() )){
-					# plural translations
-					my @variants = ();
-					my $msgid = $string->msgid();
-					$msgid =~ s/^"(.*)"$/$1/;
-					my $msgid_plural = $string->msgid_plural();
-					$msgid_plural =~ s/^"(.*)"$/$1/;
-					my $identifier = "_" . $msgid."_::_".$msgid_plural . "_";
-
-					foreach my $variant ( sort { $a <=> $b} keys( %{$string->msgstr_n()} )){
-						next TRANSLATIONS if $string->msgstr_n()->{$variant} eq '""';
-						push( @variants, $string->msgstr_n()->{$variant} );
-					}
-
-					push( @strings, "\"$identifier\" => array(".join(",", @variants).")");
-					push( @js_strings, "\"$identifier\" : [".join(",", @variants)."]");
-				}
-				else{
-					# singular translations
-					next TRANSLATIONS if $string->msgstr() eq '""';
-					push( @strings, $string->msgid()." => ".$string->msgstr());
-					push( @js_strings, $string->msgid()." : ".$string->msgstr());
-				}
-			}
-			next if $#strings == -1; # Skip empty files
-
-			for (@strings) {
-				s/\$/\\\$/g;
-			}
-
-            # delete old php file
-            unlink "$language.php";
-
-			# Write js file
-			open( OUT, ">$language.js" );
-			print OUT "OC.L10N.register(\n    \"$app\",\n    {\n    ";
-			print OUT join( ",\n    ", @js_strings );
-			print OUT "\n},\n\"$plurals\");\n";
-			close( OUT );
-
-			# Write json file
-			open( OUT, ">$language.json" );
-			print OUT "{ \"translations\": ";
-			print OUT "{\n    ";
-			print OUT join( ",\n    ", @js_strings );
-			print OUT "\n},\"pluralForm\" :\"$plurals\"\n}";
-			close( OUT );
-
-		}
-		chdir( $whereami );
-	}
-}
-else{
-	print "unknown task!\n";
-}