package TestEngine::Testcase::Logic::Cmd;


use Test::More;

use base qw(Test::Cmd);

sub new
{
    my ($self,$cmd) = @_;
    my $self = {
        cmd => $cmd,
         type => "",
	workdir => '/tmp/',
         };
    
    bless $self;
    return $self;
}

sub isSuccess
 { 
 my ($self) = @_; 
	
	my ($interpreter, $args);
	if  ($^O == 'linux') {
		$interpreter = '/usr/bin/ksh';
		$args = qq(-c "$self->{cmd}");

	} elsif ($^O == 'MSWin32') {
	
	
		# TODO: KNOWN ISSUE
		# This interpret does not provide correct execute status
		
		$interpreter = 'c:\windows\system32\command.com';
		$args = "/c $self->{cmd}";
		
	} else {
		die "unsupported platform '$^O'";
	}
		
	# // todo: ensure run() return 0 for success, otherThan0 for failure
	#print qq($self->run(prog =>$interpreter, args =>$args ));
	return ok($self->run(prog =>$interpreter, args =>$args ) == 0, $self->{desc} );
	#print "$self->{desc}\n";

}

sub setDescription {
        my ($self, $string) = @_;
        $self->{desc} = $string;
}
1;


##</code><code>##

tag=0
for file in $Rejected_File_Path/*
#for file in /home/oracle/sarfaraz/scotia/QA_RELEASE_20120123/release/log/Rejected/*
do
 # echo "$file"
  file_name=`grep "#RD#" $file|cut -d"," -f8`
   #echo "=====>>>$file_name"
  #READING DATA FROM SQL OUTPUT FILE#
  while read line
  do
    file_name_match=`grep "$file_name" $line`
    #echo "------->>>$file_name_match----"
    if [ "$file_name_match" == "$file_name" ]
    then
        rej_code=`grep ",2001," $file`
        #echo "===$rej_code"

        if [ "$rej_code" != "" ]
        then
           echo "FOUND REJECTION CODE"
           tag=127
        fi

    else
       echo "THRER IS NO ERROR CODE IN REJECTION FILE ...."

    fi
  done < tempimp1
done

#echo "==$tag"

rm -f tempimp1
#vel=`$?`
echo "===$val"
if [ "$tag" == "127" ]
then
    echo "FINAL SUCCESS ...."
   # echo "===$val"
    echo $?
    exit $val
else
   echo "FAILED ...."
   exit 127
fi