:
eval 'exec perl -wS $0 ${1+"$@"}'
    if 0;
#*************************************************************************
#
# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
# 
# Copyright 2000, 2010 Oracle and/or its affiliates.
#
# OpenOffice.org - a multi-platform office productivity suite
#
# This file is part of OpenOffice.org.
#
# OpenOffice.org is free software: you can redistribute it and/or modify
# it under the terms of the GNU Lesser General Public License version 3
# only, as published by the Free Software Foundation.
#
# OpenOffice.org is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU Lesser General Public License version 3 for more details
# (a copy is included in the LICENSE file that accompanied this code).
#
# You should have received a copy of the GNU Lesser General Public License
# version 3 along with OpenOffice.org.  If not, see
# <http://www.openoffice.org/license.html>
# for a copy of the LGPLv3 License.
#
#*************************************************************************
#
# doublecheck - Checks sdf files for identical translations where they have to be unique.
#

use strict;

my ($source);
my (%languages, %languages_seen, %Stores, $smodule, $help, $lineOK, $module, $gid, $lid, $lang, $found, $text, $Store_ref, $error, $file, $line, $sfile, $sgid, $slid, $goodlangs );

# this string should contain only languages that are known to be well translated i.e. no newly translated languages or even in pregress
$goodlangs = "de fr ja es ko";

%languages = ();
%languages_seen = ();
%Stores = ();

if ( !exists $ENV{ "WITH_LANG" } || !$ENV{ "WITH_LANG" } )
{
    print "\$WITH_LANG not set or empty: nothing to do\n";
    exit 0;
}

foreach ( split( " ", $ENV{ "WITH_LANG" } ) )
{
    $languages{ $_ } = 1;
}

$smodule = $sfile = $sgid = $slid = ".*";


&get_options;

if ( ! $source )
{
    print "Error: No sdf_filename defined\n\n";
    $help = "Yes";
}
if ( !$help )
{

    $found = 0;
    open SOURCE, "<$source";
    while ( <SOURCE> )
    {
        analyze_line( $_ );

        $languages_seen{ $lang } = 1 if ( $lineOK );

        if ( $lineOK && $module =~ $smodule && $file =~ $sfile && $gid =~ $sgid && $lid =~ $slid )
        {
            $found += 1;
            if ( exists $languages{ $lang } )
            {
				if ( !exists $Stores{ $lang } )
				{
				    my %S = ();
					$Stores{ $lang } = \%S;
				}
				$Store_ref = $Stores{ $lang };
				if ( exists $$Store_ref{ $text } )
				{
					print "Entry double for LANG=$lang in file $source\n";
					print $$Store_ref{ $text };
					print $line;
					$error = 1;
				}
				else
				{
					$$Store_ref{ $text } = $line;
				}
            }
        }
    }	
    close SOURCE;

#    print "$found strings found in $source for -m $smodule -f $sfile -g $sgid -l $slid\n";
    foreach my $goodlang ( split( " ", $goodlangs ) )
    {
        if ( exists $languages_seen{ $goodlang } && exists $languages{ $goodlang } && !exists $Stores{ $goodlang } )
        {
            die "no sting found to check for language $lang in $source for -m $smodule -f $sfile -g $sgid -l $slid. Maybe the strings have been relocated.";
        }
    }
#    die "errors found" if ( $error );

}
else
{
    print "\n\n";
    print "doubleckeck v.1.0\n";
    print "---------------------\n";
    print "Usage:\n";
    print "doubleckeck [-m <module>] [-f <filepath>] [-g <GID>] [-l <LID>] <sdf_filename>\n";
    print "doubleckeck --help\n";
    print "\n";
    print "------------------------------------------------------------------------------\n";
    print "Checks sdf files for identical translations where they have to be unique.\n";
    print "The switches -m, -f, -g and -l are treated as perl regular expressions.\n";
    print "They default to .*\n";
    print "All Languages in \$WITH_LANG are checked.\n";
    print "\n\n";
}



sub get_options {
	my ($arg,$has_source);
	$has_source = 0;
	while ($arg = shift @ARGV) {
		$arg =~ /^-m$/  and $smodule = shift @ARGV and next;
		$arg =~ /^-f$/  and $sfile = shift @ARGV and next;
		$arg =~ /^-g$/  and $sgid = shift @ARGV and next;
		$arg =~ /^-l$/  and $slid = shift @ARGV and next;
		$arg =~ /^--help$/  and $help = 1 and next; #show help
		
		if ( !$has_source )
		{
		    $source = $arg;
		    $has_source = 1;
		}
		else
		{
		    die "only one file can be parsed";
		}
	}
}


sub analyze_line {

    ($line) = @_;
    
    $lineOK = 0;
    if ( $line =~ /^([^\t]*)\t([^\t]*)\t[^\t]*\t[^\t]*\t([^\t]*)\t([^\t]*)\t[^\t]*\t[^\t]*\t[^\t]*\t([^\t]*)\t([^\t]*)\t[^\t]*\t[^\t]*\t[^\t]*\t[^\t]*/ )
    {
        $module = $1;
        $file = $2;
        $gid = $3;
        $lid = $4;
        
        $lang = $5;
        $text = $6;
        
        $lineOK = 1;
    }
}