Shell Programming and Scripting

main();
sub main
{
	$result = GetOptions ("LogDir=s" => \$LogDir,
                          "Summary"   => \$Summary,   
                          "Indiviual=s"   => \$Individual ,       
					      "Diagnostics=s"	=> \$Diagnostics,
					      "Prefix=s" => \$Prefix,
					      "All"  => \$All,
                          "help"  => \$help); 
	usage_help() 	if($help);
	usage_help()    unless($Prefix);
	usgage_help()   unless($LogDir);
		
if($LogDir)
{
	die "Log dir '$LogDir' doesn't exist" unless -d $LogDir;
}

$glob_path = "$LogDir/${Prefix}*";
@log_paths = glob $glob_path or die "No files found in '$glob_path'";
printf "log files = \n";
print @log_paths;
printf "\n";

if($Summary)
{
	process_summaryreport ();
}

if($Individual)
{
	if($Individual == "ArcotID")
	{
		ArcotID_Authentication(@log_paths);
	}
}
}

C:\Perl Script>perl summaryreport_latest_working.pl --LogDir=. --Prefix=arcotweb --Individual=ApricotID

if($Individual)
{
	if($Individual eq "ArcotID")
	{
		ArcotID_Authentication(@log_paths);
	}
}