#!/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 =~ /\.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: (.+)\
  .*/$1/;
  	$info =~ s/^(.*)\
  .*/$1/g;
  
  	return $info;
  }

  my $task = shift( @ARGV );
  my $place = '..';
  
  die( "Usage: l10n.pl task
  task: read, write
  " ) 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
  ";
  	foreach my $dir ( @dirs ){
  		my @temp = split( /\//, $dir );
  		my $app = pop( @temp );
  		chdir( $dir );
  		my @totranslate = crawlFiles('.');
  		my %ignore = readIgnorelist();
  		my $output = "${whereami}/templates/$app.pot";
  		print "  Processing $app
  ";
  
  		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$/ ? 'Python' : 'PHP');
  			my $joinexisting = ( -e $output ? '--join-existing' : '');
  			print "    Reading $file
  ";

  			`xgettext --output="$output" $joinexisting $keywords --language=$language "$file" --add-comments=TRANSLATORS --from-code=UTF-8 --package-version="6.0.0" --package-name="ownCloud Core" --msgid-bugs-address="translations\@owncloud.org"`;

  		}
  		chdir( $whereami );
  	}
  }
  elsif( $task eq 'write' ){
  	print "Mode: write
  ";
  	foreach my $dir ( @dirs ){
  		my @temp = split( /\//, $dir );
  		my $app = pop( @temp );
  		chdir( $dir.'/l10n' );
  		print "  Processing $app
  ";
  		foreach my $language ( @languages ){
  			next if $language eq 'templates';

  			my $input = "${whereami}/$language/$app.po";
  			next unless -e $input;
  
  			print "    Language $language
  ";
  			my $array = Locale::PO->load_file_asarray( $input );
  			# Create array
  			my @strings = ();

  			my $plurals;

  			foreach my $string ( @{$array} ){

  				if( $string->msgid() eq '""' ){
  					# Translator information
  					$plurals = getPluralInfo( $string->msgstr());
  				}
  				elsif( defined( $string->msgstr_n() )){
  					# plural translations
  					my @variants = ();
  					my $identifier = $string->msgid()."::".$string->msgid_plural();
  					$identifier =~ s/"/_/g;
  
  					foreach my $variant ( sort { $a <=> $b} keys( %{$string->msgstr_n()} )){
  						push( @variants, $string->msgstr_n()->{$variant} );
  					}
  
  					push( @strings, "\"$identifier\" => array(".join(",", @variants).")");
  				}
  				else{
  					# singular translations
  					next if $string->msgstr() eq '""';
  					push( @strings, $string->msgid()." => ".$string->msgstr());
  				}

  			}
  			next if $#strings == -1; # Skip empty files
  
  			# Write PHP file
  			open( OUT, ">$language.php" );

  			print OUT "<?php
  \$TRANSLATIONS = array(
  ";

  			print OUT join( ",
  ", @strings );

  			print OUT "
  );
  \$PLURAL_FORMS = \"$plurals\";
  ";

  			close( OUT );
  		}
  		chdir( $whereami );
  	}
  }
  else{
  	print "unknown task!
  ";
  }