#

# Copyright (c) 2006-2009 Nokia Corporation and/or its subsidiary(-ies).

# All rights reserved.

# This component and the accompanying materials are made available

# under the terms of the License "Eclipse Public License v1.0"

# which accompanies this distribution, and is available

# at the URL "http://www.eclipse.org/legal/epl-v10.html".

#

# Initial Contributors:

# Nokia Corporation - initial contribution.

#

# Contributors:

#

# Description: 

# ARGV 1 : Log File Name

# ARGV 2 : Test Id

# ARGV 3 : parameter file name (files to be searched)

# ARGV 4 : Testing (scenarios)

# ARGV 5 : positivetc (positive test case or negative)

# ARGV 6 : removedrives ("both" - remove C & Z drives, "c_only" - remove C drive only, "rom_only" - remove rom drive only, "none" - leave in current state)

#

use strict;

use File::Find;

use File::Compare;

use File::Basename;

use File::Copy;

use Cwd;

if (@ARGV <6)

	{

	print "Failed: Invalid parameters\n", join(", ",@ARGV);

	exit();

	}

# setup Path

my $CURR_WORK_DIR = getcwd();

my $TEST_EXECUTE = "\\epoc32\\release\\WINSCW\\udeb\\testexecute.exe";

my $CDRIVE_PATH =$CURR_WORK_DIR."\\cdrive";

my $ROMDRIVE_PATH =$CURR_WORK_DIR."\\romdrive";

my $DDRIVE_PATH ="\\ddrive";

my $EDRIVE_PATH =$CURR_WORK_DIR."\\edrive";

my $ORIGINAL_DATA_PATH = "\\epoc32\\winscw\\c\\tswi\\tinterpretsisinteg\\data";

my $SWICDRIVE_PATH = "\\epoc32\\winscw\\c";

my $PARAMS_PATH = "\\epoc32\\winscw\\c\\tswi\\tinterpretsisinteg\\parameters_file";

my $testdata = "\\epoc32\\winscw\\c\\tswi\\tinterpretsisinteg\\sisfiles";

my $TEF_LOGS_PATH= "\\epoc32\\winscw\\c\\logs\\testexecute\\";

my $iniFile = "\\epoc32\\winscw\\c\\tswi\\tinterpretsisinteg\\parameters_file\\parameters.ini";

my $logFile = "\\epoc32\\winscw\\c\\interpretsis_test_harness.txt";

# Process Command line arguments

my $logfilename		 =  shift @ARGV;

my $testid			 =  shift @ARGV;

my $param_filename	 =  shift @ARGV;# contains the file to be searched

my $testing			 =  shift @ARGV;

my $positivetc		 =  shift @ARGV;# positive/negative Test case

my $removedrives	 =  shift @ARGV;# remove drives (both/c_only/rom_only/none)

my $uid				 =  shift @ARGV;

my $batchfile		 =  shift @ARGV;

my $scriptfile		 =  shift @ARGV;

my $htmlfile		 =  shift @ARGV;

my $NRsearch		 =  shift @ARGV;

my $errorcodesearch	 =  shift @ARGV;

my $comparetext      =	shift @ARGV;# Text to be compared from file

# flags

my $passflag = 0;  # flag for pass or fail

my $count;         # to keep track of results.

my @searchedpath;

my $searchresult;  # flag for searching file

my $filename;

my $debug = 0;     # flag to turn on debug log

if($testing eq 1)

{

	check($CDRIVE_PATH);

	if(!$passflag)

	{

		goto res;

	}

	&TefFunction($scriptfile);

	&CompareIntSwi();

}

elsif($testing eq 2)

{	

	&TefFunction($scriptfile);

	check($SWICDRIVE_PATH);

}

elsif($testing eq 3)

{

	&TefFunction($scriptfile); 

	$passflag = 0;

	&CheckTefLogs($htmlfile,$NRsearch,$errorcodesearch,$TEF_LOGS_PATH);

}

elsif($testing eq 4)

{	

	&TefFunction($scriptfile);

	check($SWICDRIVE_PATH);

	&CheckTefLogs($htmlfile,$NRsearch,$errorcodesearch,$TEF_LOGS_PATH);

	&Cleanup();

}

elsif($testing eq 5)

{	

	&TefFunction($scriptfile);

	check($SWICDRIVE_PATH);

	my @file = &GetParams($param_filename);

	&ReadText(@file);

}

res:

&Result();

if($removedrives eq "both")

{

	&RemoveDir($CDRIVE_PATH);

	&RemoveDir($ROMDRIVE_PATH);

}

elsif($removedrives eq "c_only")

{

	&RemoveDir($CDRIVE_PATH);

}

elsif($removedrives eq "rom_only")

{

	&RemoveDir($ROMDRIVE_PATH);

}

elsif($removedrives eq "all")

{

	&RemoveDir($CDRIVE_PATH);

	&RemoveDir($ROMDRIVE_PATH);

	&RemoveDir($DDRIVE_PATH);

	&RemoveDir($EDRIVE_PATH);

}

&RemoveDir($testdata);

# Checks for file/files

sub check($)

{	

	WriteLog("INFO: check($_[0])\n");

	my $drive_path=$_[0];

	my @param_array = &GetParams($param_filename); 

	if ($param_filename eq 'PARAM_INI' && $#param_array == -1)

	{

	  $passflag = 1;

	  return; 

	}

	my $temp;

	my $filenotexist = 0;

	$searchresult = 0;

	foreach $temp (@param_array)											

	{

		# Rest flags

		$searchresult = 0;

		$filenotexist = 0;		

		$filename = trim($temp);

		if($filename eq "")

		{

			# Blank line found - no file to check

			$passflag = 1;

			return; 

		}

		# if the filename has been prefixed with "*", the file should not be present on the system drive (C:\)

		if(rindex($filename,"*") == 0)

		{

			$filenotexist = 1;

			$filename = substr($filename,1);

		}

		find (\&scan,$drive_path);

		if ($positivetc eq "positive") 

		{	

			# If the file is not found and the 'not exists' flag is not set OR the file is found 

			# when the 'not exists' flag is set...Fail the test

			if(($searchresult == 0 && $filenotexist == 0) || ($searchresult == 1 && $filenotexist == 1))

			{

			$passflag = 0;

			return;

			}

		}

		# The "not exists" flag is not checked within negative tests to prevent ambiguity

		if ($positivetc eq "negative" && $searchresult == 1)

		{

			$passflag = 0;

			return;

		}

		$passflag = 1;					

	}

}

sub scan

{	

	WriteLog("INFO: scan()\n");

	my $path = $File::Find::name;

	if (-f $path && !($File::Find::name=~m/data/)) # Exclude the data folder path of harness

	{	

		chomp($filename);

		if (basename($path) eq $filename)

		{

			$searchresult =  1;

			$File::Find::name=~ s/\//\\/g;

			push @searchedpath,$File::Find::name;

			return;

		}

	}

}

# Get the files to be searched from the parameters files.

sub GetParams($)

{

	WriteLog("INFO: GetParams($_[0]\)\n");

	my $file = $_[0];

	my $param_file = $PARAMS_PATH."/".$file;

	my @param_list = ();

	my $sectionFound = 0;

	if ($file eq 'PARAM_INI')

	{

		# Read the parameter .ini file

		my @iniText = ();

		if (open(INI_FILE, $iniFile))

		{

			@iniText = <INI_FILE>;

			close(INI_FILE);

		}

		for (my $line = 0;  $line < @iniText;  $line++)

		{

			if ($iniText[$line] =~ /^\s*\[$testid\]\s*$/i)

			{

				$sectionFound = 1;

				next;

			}

			if ($sectionFound && ($iniText[$line] !~ /^\s*$/))

			{

				push (@param_list, trim($iniText[$line]));

			}

			else

			{

				if ($sectionFound == 1)

				{

					return @param_list;

				}

			}

		}

	}

	else

	{

		opendir (FILE, $PARAMS_PATH) || die;

		open(FILE, $param_file) || die;	

		@param_list = <FILE>;

		close(FILE);

	}

	return @param_list;

}

# Executes the batch file passed as argument

sub RunBatch($)

{

  WriteLog("INFO: RunBatch($_[0])\n");

  my $batchfile = $_[0];

  `/epoc32/winscw/c/tswi/tinterpretsisinteg/$batchfile`;

}

# Cleans off all the files present in the folder passed as an argument.

sub RemoveDir($)

{

	WriteLog("INFO: RemoveDir($_[0])\n");

	my $dir  =  $_[0];

	my $name;

	opendir(DIRHANDLE, $dir) || die "can't open file $dir $!";

	foreach $name (sort readdir(DIRHANDLE))

		{

		if ($name ne "." && $name ne ".." && $name ne "indir1" && $name ne "indir2") 

			{

			if (-d "$dir/$name")

				{

					&RemoveDir("$dir/$name");

					rmdir("$dir/$name");

				}

			else 

				{

					unlink("$dir/$name");

				}

			}

		}

	closedir(DIRHANDLE);

}

sub trim($)

{

	WriteLog("INFO: trim($_[0])\n");

	my $string = shift;

	$string =~ s/\s+$//;

	return $string;

}

sub CompareIntSwi()

{	

  	WriteLog("INFO: CompareIntSwi()\n");

	my @searchswi;

	foreach my $interpretsisfilepath (@searchedpath)											

	{

		my $filenameswi = basename(trim($interpretsisfilepath));

		if($filename eq "")

		{

			 return;

		}

		elsif($interpretsisfilepath=~/bin/)

		{	

			my $bin_path=$SWICDRIVE_PATH."\\sys\\bin\\".$filenameswi;	

			$bin_path=~ s/ \/ / \\ /g;

			push @searchswi,$bin_path;

		}

		elsif($interpretsisfilepath=~/hash/)

		{	

			my $hash_path=$SWICDRIVE_PATH."\\sys\\hash\\".$filenameswi;

			$hash_path=~ s/\//\\/g;

			push @searchswi,$hash_path;

		}

		elsif($interpretsisfilepath=~/$uid/)

		{	

			my $registry_path=$SWICDRIVE_PATH."\\sys\\install\\sisregistry\\".$uid."\\".$filenameswi;

			$registry_path=~ s/\//\\/g;

			push @searchswi,$registry_path;

		}

	}

    my $count=@searchswi;

    foreach my $interpretsisfilepath (@searchedpath)

	{

		foreach my $swifiles  (@searchswi)

		{

			if(compare($interpretsisfilepath,$swifiles) ==  0)

			{

				if(-s $interpretsisfilepath == -s $swifiles)

				{	

					$count--;

				}

			}

			else

			{

				$passflag = 0;

			}

		}	

	}

	if($count == 0)

	{

		$passflag = 1;

	}

}

sub Result()

{

	if($passflag == 1)

	{

		print "Passed\n";

	}

	else

	{

		print "Failed\n";

	}

}

sub TefFunction($)

{

	WriteLog("INFO: TefFunction($_[0])\n");

	my $script=$_[0];

	`$TEST_EXECUTE c:\\tswi\\tinterpretsisinteg\\scripts\\$script`;

}

sub CheckTefLogs

{

	WriteLog("INFO: CheckTefLogs($_[3].$_[0])\n");

	my $LOGFILE=$_[3].$_[0];

	opendir (FILE,$TEF_LOGS_PATH) || die;

	open(FILE, $LOGFILE) or die("Could not open log file or directory $!");

	foreach my $line (<FILE>)

	{

	my $NRvalue=$_[1];

	my $Errocodevalue=$_[2];

	if (($line =~/$NRvalue/) || ($line =~/$Errocodevalue/))

	{

	$passflag = 1;

	}

	}

	close(LOGFILE);

}

# Searches for text in the file

sub ReadText(@)

{

	WriteLog("INFO: ReadText($_[0])\n");

	if($passflag eq 1)

	{		

		my $file  =  $_[0];

		my @filepath  =  grep(/$file/,@searchedpath);

		my $output_file  =  @filepath[0];

		open(FILE,$output_file ) || die;	

		my $param_list  =  <FILE>;

		close(FILE );

		if(trim($param_list) eq trim($comparetext))

		{	

			$passflag = 1;

				if ($positivetc eq "negative") 

				{

					goto res;

				}	

		}

		else

		{

			$passflag = 0;

				if ($positivetc eq "positive") 

				{

					goto res;

				}			

		}

	}

	else

	{

		goto res;

	}

}

#

#Function to write log into file

#

sub WriteLog {

  if ($debug)

    {

      my ($log) = @_;

      my $fh;

      unless( open($fh, ">> $logFile"))

	{

	  printf STDERR "Can\'t open $logFile:$!\n";

	  return;

	}

      printf $fh $log;

      close $fh;

    }

}

# Performs any cleanup which needs to take place after a TEF script has been executed

sub Cleanup()

{

	my $cr1027RomStub = "\\epoc32\\release\\WINSCW\\udeb\\z\\system\\install\\CR1027ROMUpgradeStub.sis";

	my $cr1027RomStub_temp = "\\epoc32\\release\\WINSCW\\udeb\\z\\system\\CR1027ROMUpgradeStub.sis";

	move($cr1027RomStub_temp, $cr1027RomStub);

}