This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "IPFire 2.x development tree".
The branch, fifteen has been updated via 30f08bcf80c4c016cdc1f025cc2fbd5533ef20b9 (commit) via 33e64584dd14decbeec39f0bdd4f4b2029b45e9b (commit) from fac3861429d1b4c57c18ff13236d363d87fd31c0 (commit)
Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below.
- Log ----------------------------------------------------------------- commit 30f08bcf80c4c016cdc1f025cc2fbd5533ef20b9 Merge: fac3861 33e6458 Author: Michael Tremer michael.tremer@ipfire.org Date: Mon Dec 16 12:31:19 2013 +0100
Merge remote-tracking branch 'amarx/difflang' into fifteen
commit 33e64584dd14decbeec39f0bdd4f4b2029b45e9b Author: Alexander Marx amarx@ipfire.org Date: Fri Dec 13 08:03:23 2013 +0100
TOOLS: new script langdiff added. With this script one can check a languagefile against another and gets a txtfile conatining the missing lines.
-----------------------------------------------------------------------
Summary of changes: tools/langdiff.pl | 57 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 57 insertions(+) create mode 100755 tools/langdiff.pl
Difference in files: diff --git a/tools/langdiff.pl b/tools/langdiff.pl new file mode 100755 index 0000000..6ce313d --- /dev/null +++ b/tools/langdiff.pl @@ -0,0 +1,57 @@ +#!/usr/bin/perl + +my @one=(); +my @two=(); + +my $file1; +my $file2; +my $cnt=0; +my $numArgs = $#ARGV + 1; +if ($numArgs !=2 ){ + print"Usage: langdiff.pl <languagefile1 - incomplete> <languagefile2 - complete>\n"; + exit; +}else{ + $file1=$ARGV[0]; + $file2=$ARGV[1]; +} + +open(FILE1, $file1) or die 'Unable to open file $file1.'; +my @one = <FILE1>; +close(FILE1); +undef ($one[0]); +undef ($one[1]); +undef ($one[2]); +undef ($one[3]); +undef ($one[$#one-1]); +undef ($one[$#one-2]); +open(FILE2, $file2) or die 'Unable to open file $file2.'; +my @two = <FILE2>; +close(FILE2); +undef ($two[0]); +undef ($two[1]); +undef ($two[2]); +undef ($two[3]); +undef ($two[$#two-1]); +undef ($two[$#two-2]); +open(FILE3, ">language-diff.txt") or die 'Unable to open config file.'; + +foreach my $line (@two){ + my ($a,$b) = split ("=>",$line); + if(!&is_in_array($a)){ + $cnt++; + print FILE3 "$a => $b"; + } +} + +sub is_in_array{ + my $val = shift; + + foreach my $line1 (@one){ + my ($c,$d) = split ("=>",$line1); + return 1 if ($val eq $c); + } + return 0; +} + + +print"$cnt lines from $file2 are not existent in $file1. Please check language-diff.txt for details.\n\n";
hooks/post-receive -- IPFire 2.x development tree