AOO410/main/xmerge/source/palmtests/qa-wrapper/bin/qa_comparator.pl

#!/usr/bin/perl
#########################################################################

 #**************************************************************
#  
#  Licensed to the Apache Software Foundation (ASF) under one
#  or more contributor license agreements.  See the NOTICE file
#  distributed with this work for additional information
#  regarding copyright ownership.  The ASF licenses this file
#  to you under the Apache License, Version 2.0 (the
#  "License"); you may not use this file except in compliance
#  with the License.  You may obtain a copy of the License at
#  
#    http://www.apache.org/licenses/LICENSE-2.0
#  
#  Unless required by applicable law or agreed to in writing,
#  software distributed under the License is distributed on an
#  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
#  KIND, either express or implied.  See the License for the
#  specific language governing permissions and limitations
#  under the License.
#  
#**************************************************************



$compare_home = $ENV{'QA_COMPARATOR_HOME'};

if ($ENV{'CLASSPATH'})
{
   $classpath_val = "$compare_home:$ENV{'CLASSPATH'}";
}
else
{
   $classpath_val = "$compare_home";
}

print "classpath is $classpath_val\n";

$list_file="";
$orig_dir="";
$new_dir="";
$diff_type="";

####### BEGIN MAIN ##############
$cmdline_len = @ARGV;
if ($cmdline_len <= 0)
{
	print_usage();
	exit (0);
}

process_cmdline(@ARGV);
print_env();
open (LOGFILE, ">$logfile") || die "Cannot open log file $logfile";
if ($test_list ne "")
{
	open (TESTLIST, $test_list) || die "Couldn't open diff list file $test_list";

	while (<TESTLIST>)
	{
		chomp $_;
		process_diff(get_file_title($_));
	}
}
close TESTLIST;
close LOGFILE;

####### END MAIN ##############

sub process_diff
{
#	$_[0] =~ tr/A-Z/a-z/;

    # chdir to the output directory so the temporary files created by
    # the java programs are put in the right place.
    #
    chdir ($xml_new);

	if ($diff_type eq "xml")
	{
        # Ugly hack, probably a way to tell xerces directly that the dtd's
        # are in $compare_home/dtd.
        #
        `cp $compare_home/dtd/* $xml_new`;

#		$cmd = "java -classpath $classpath_val XmlWrapper $xml_orig/$_[0].sxw $xml_new/$_[0].sxw";
		$cmd = "java -classpath $classpath_val XmlWrapper $xml_orig/$_[0] $xml_new/$_[0]";
		print "Executing: $cmd\n";
		$val = system($cmd)/256;
		if ($val == 2)
		{
#			print LOGFILE "$_[0]|TRUE|$xml_orig/$_[0].sxw|$xml_new/$_[0].sxw\n";
			print LOGFILE "$_[0]|TRUE|$xml_orig/$_[0]|$xml_new/$_[0]\n";
		}
		elsif($val == 3)
		{
#			print LOGFILE "$_[0]|FALSE|$xml_orig/$_[0].sxw|$xml_new/$_[0].sxw\n";
			print LOGFILE "$_[0]|FALSE|$xml_orig/$_[0]|$xml_new/$_[0]\n";
		}
		else
		{
#			print LOGFILE "$_[0]|ERROR|$xml_orig/$_[0].sxw|$xml_new/$_[0].sxw\n";
			print LOGFILE "$_[0]|ERROR|$xml_orig/$_[0]|$xml_new/$_[0]\n";
		}
	}
	elsif ($diff_type eq "pdb")
	{
#		$cmd = "java -classpath $classpath_val SimplePdbCompare $pdb_orig/$_[0].pdb $pdb_new/$_[0].pdb\n";
		$cmd = "java -classpath $classpath_val SimplePdbCompare $pdb_orig/$_[0] $pdb_new/$_[0]\n";
		print "Executing: $cmd\n";
		$val = system($cmd)/256;
		if ($val == 2)
		{
#			print LOGFILE "$_[0]|TRUE|$pdb_orig/$_[0].pdb|$pdb_new/$_[0].pdb\n";
			print LOGFILE "$_[0]|TRUE|$pdb_orig/$_[0]|$pdb_new/$_[0]\n";
		}
		elsif($val == 3)
		{
#			print LOGFILE "$_[0]|FALSE|$pdb_orig/$_[0].pdb|$pdb_new/$_[0].pdb\n";
			print LOGFILE "$_[0]|FALSE|$pdb_orig/$_[0]|$pdb_new/$_[0]\n";
		}
		else
		{
#			print LOGFILE "$_[0]|ERROR|$pdb_orig/$_[0].pdb|$pdb_new/$_[0].pdb\n";
			print LOGFILE "$_[0]|ERROR|$pdb_orig/$_[0]|$pdb_new/$_[0]\n";
		}
	}
	else
	{
		die "Don't understand test type of $diff_type.";
	}
}

sub process_cmdline
{
	foreach $i (@_)
	{
		@arg= split('=', $i);
		@arg[0] =~ tr/A-Z/a-z/;
		
		if (@arg[0] eq "-pdb-orig")
		{
			$pdb_orig=$arg[1];
		}
		elsif (@arg[0] eq "-pdb-new")
		{
			$pdb_new=$arg[1];
		}
		elsif (@arg[0] eq "-xml-orig")
		{
			$xml_orig=$arg[1];
		}
		elsif (@arg[0] eq "-xml-new")
		{
			$xml_new=$arg[1];
		}
		elsif (@arg[0] eq "-env")
		{
			set_env_from_props($arg[1]);
		}
		elsif (@arg[0] eq "-list")
		{
			$test_list = $arg[1];
		}
		elsif (@arg[0] eq "-one")
		{
			$infile = $arg[1];
		}
		elsif (@arg[0] eq "-type")
		{
			$diff_type = $arg[1];
			chomp $diff_type;
		}
		elsif (@arg[0] eq "-log")
		{
			$logfile = $arg[1];
		}
		else
		{
			print_usage();
			die "Incorrect command line. Don't understand $i";
		}
	}
}

sub set_env_from_props
{
	open(PROPSFILE, $_[0]) || die "Could not open properties file";
	
	while (<PROPSFILE>)
	{
		chomp $_;
		@arg = split('=', $_);
		@arg[0] =~ tr/a-z/A-Z/;
		$len = @arg;
		if ($len != 2)
		{
			die "Malformed property in $ARGV[0]";
		}

		if (@arg[0] eq "PDB_ORIG")
		{
			$pdb_orig=$arg[1];
		}
		elsif (@arg[0] eq "PDB_NEW")
		{
			$pdb_new=$arg[1];
		}
		elsif (@arg[0] eq "XML_ORIG")
		{
			$xml_orig=$arg[1];
		}
		elsif (@arg[0] eq "XML_NEW")
		{
			$xml_new=$arg[1];
		}
		
	}
	close PROPSFILE;
}

sub print_usage
{
	print "Usage : compartor.pl - compare Office or pdb files\n";
	print "\t-one=<file> :\t\t individual test case file to run\n";
	print "\t-list=<file> :\t\t list of test case files\n"; 
	print "\t-env=<file> :\t\t Properites like file defining env\n"; 
	print "\t-pdb-orig=<path> :\t directory to hold original pdb files\n";
	print "\t-pdb-new=<path> :\t directory to hold new pdb files\n";
	print "\t-xml-orig=<path> :\t directory to hold original office documents\n";
	print "\t-xml-new=<path> :\t directory to hold new office documents\n";
	print "\t-type=<xml|pdb> :\t Invokes the merge option when converting\n";
	print "\t-log=<logfile> :\t Save results to logfile.\n";
}

sub print_env
{
	print "Using the following environment:\n";
	print "\tPDB_ORIG  = $pdb_orig\n";
	print "\tPDB_NEW   = $pdb_new\n";
	print "\tXML_ORIG  = $xml_orig\n";
	print "\tXML_NEW   = $xml_new\n\n";
}

sub get_file_title
{
	@paths = split('\/', $_[0]);
	$len = @paths;
	return @paths[$len-1];
#	@names = split('\.', @paths[$len-1]);
#	return $names[0];
}