#!/usr/bin/perl

my $logFile = $ARGV[0];
die "usage: $0 <logFile>" unless $logFile;
die "Logfile $logFile doesn't exist" unless -f "$logFile";
my %no_of_questions;
my %timestamp;
open (FP,"<$logFile") or die "unable to open file $!" ;
@records=<FP>;
chomp(@records);

for($index=0;$index<@records;$index++)
	{
		if($records[$index] =~ /^(.*)INFO:.*Entering QnAModule::authenticate/)
		{
			#printf "in INFO:.*Entering QnAModule::authenticate\n";
			$Time_Stamp = $1;
			die "Some error in search_for_username_and_no_of_questions" if (search_for_username_and_no_of_questions() == -1);
			die "Some error in end_block" if (end_block() == -1);
			last;
		}
	}		
			
			


sub search_for_username_and_no_of_questions
{
printf "inside search_for_username_and_no_of_questions\n";
			for($index=0;$index<@records;$index++)
			{
				if ($records[$index] =~ /userName :\[(..*)\]/) 
				{
					#printf "in user name identification \n";
					$User_Name = $1;
					$User_Name =~ s/\s+//g;
					for(;$index<@records;$index++)
					{
						if ($records[$index] =~ /Set of questions\(bitmap\) selected : (\d+)/) 
						{
							#printf "in set of questions\n";
							$Bitmap_Number_For_Questions = $1;
							$no_of_questions{$User_Name}=$Bitmap_Number_For_Questions;
							$timestamp{$User_Name}=$Time_Stamp;
							printf "DETAIL: LINE NO: $index\n";
							printf "$Time_Stamp,$User_Name,$Bitmap_Number_For_Questions\n";
							
						}
					}
				}
			}
		return -1;
}

sub end_block
{
printf "Inside end_block\n";
	for($index=0;$index<@records;$index++)
	{
		
		if($records[$index] =~ /QNA Step.*AUTH IN PROGRESS/)
		{
			printf "DETAIL: auth in progress\n";
			for(;$index<@records;$index++)
			{
				if ($records[$index] =~ /ArAuthFrameworkImpl::doPostAuth.*Authentication mechanism returned \[(..*)\] for AuthIdentity \[(..*)\]/)
				{
					#printf "done one request \n";
					#printf "$records[$index]\n";
					my $return_code = $1;
					my $temp_user = $2;
					$temp_user =~ s/\s+//g;
					printf "user = $temp_user\n";
					if(exists($no_of_questions{$temp_user}))
					{
						if ($return_code == 0) 
						{
							printf "$no_of_questions{$temp_user} , $timestamp{$temp_user} , \"Success\" \n";
						}
						elsif ($return_code > 1)
						{
							printf "$no_of_questions{$temp_user} , $timestamp{$temp_user} , \"Failure\" \n";
						}
						for(;$index<@records;$index++)
						{
							if ( ($records[$index] =~ /Prepared to Send OK/) || ($records[$index] =~ /Sending Invalid credential/) )
							{
								printf "end of file\n";
							}
						}
					}				
				}			
			}
		}
	}
	return -1;
}


##</code><code>##

INFO:Entering QnAModule::authenticate
userName :[prasanna]
Set of questions(bitmap) selected : 13
QNA Step.*AUTH IN PROGRESS
ArAuthFrameworkImpl::doPostAuth.*Authentication mechanism returned [hello] for AuthIdentity [prasanna]
Prepared to Send OK 
Sending Invalid credential