# Dumps environment info such as tools version to cmdline and/or to a file

my $report;

my $output = "\\output\\logs\\envinfo.txt";

my $compare;

my $baseline = "\\build_info\\logs\\envinfo.txt";

	'report:s' => \$report,

	'compare:s' => \$compare,

$output = $report if ($report);

$baseline = $compare if ($compare);

	print "Dumps environment info such as tools version to cmdline and/or to a file\n";

	print "Usage: perl envinfo.pl [OPTIONS]\n";

	print "where OPTIONS are:\n";

	print "-r,--report [FILE]\tCreate report file (default \\output\\logs\\envinfo.txt)\n";

	print "-c,--compare [LOCATION]\tCompare environment with info at LOCATION (default \\output\\logs\\envinfo.txt)\n";

my $baseline_environment_info = {};

if (defined $compare)

{

	my $target = '';

	my $tmp_file = '';

	# understand where we should get the info from

	$target = $baseline if (-f $baseline);

	$target = "$baseline\\envinfo.txt" if (!$target && -f "$baseline\\envinfo.txt");

	$target = "$baseline\\build_info\\logs\\envinfo.txt" if (!$target && -f "$baseline\\build_info\\logs\\envinfo.txt");

	$target = "$baseline\\build_BOM.zip" if (!$target && -f "$baseline\\build_BOM.zip");

	if (!$target)

	{

		warn "WARNING: Can't find envinfo.txt from location '$baseline'\n";

	}

	elsif ($target =~ /\.zip$/)

	{

		print "Extracting envinfo.txt from $target\n";

		my $cmd = "7z e -y $target build_info\logs\envinfo.txt";

		my $output = `$cmd 2>&1`;

		if ($output =~ /is not recognized as an internal or external command/)

		{

			$target = '';

			warn "WARNING: You need to have 7z in the PATH if you want to do comparison against a compressed baseline\n";

		}

		elsif ($output =~ /No files to process/)

		{

			$target = '';

			warn "WARNING: The compressed baseline doesn't seem to contain an envinfo.txt file\n";

		}

		else

		{

			my $tmp_file = "tmp$$.txt";

			system("ren envinfo.txt $tmp_file"); 

			$target = $tmp_file;

		}

	}

	if (!$target)

	{

		warn "WARNING: Will not do comparison\n";

		$compare = undef; 

	}

	else

	{

		print "Will compare environment info to $target\n";

		if (open(BASEINFO, $target))

		{

			for my $line (<BASEINFO>)

			{

				if ($line =~ /([^\t]*)\t([^\t]*)/)

				{

					my $name = $1;

					my $version = $2;

					chomp $name;

					chomp $version;

					$baseline_environment_info->{$name}=$version;

				}

			}

			close(BASEINFO);

			unlink $tmp_file if ($tmp_file);

		}

		else

		{

			warn "WARNING: Could not open file $target for reading. Will not do comparison\n";

			$compare = undef;

		}

	}

}

# change tabs to spaces

	$tool_info->{name} =~ s/\t/ /g;

	$tool_info->{version} =~ s/\t/ /g;

print "\nTools breakdown\n";

my $cmp_notpresent = 0;

my $cmp_diffver = 0;

for my $tool_info (@environment_info)

	print " " . $tool_info->{name} . ": " . $tool_info->{version};

	if (defined $compare &&

		$tool_info->{name} ne 'Machine' &&

		$tool_info->{name} ne 'OS Name')

		print "\t";

		if (defined $baseline_environment_info->{$tool_info->{name}})

		{

			my $baselineversion = $baseline_environment_info->{$tool_info->{name}};

			if ($tool_info->{version} eq 'N.A.' && $baselineversion ne 'N.A.')

			{

				print "[ERROR: tool not present]";

				$cmp_notpresent++;

			}

			elsif ($tool_info->{version} eq $baselineversion || $baselineversion eq 'N.A.')

			{

				print "[OK]";

			}

			elsif ($tool_info->{version} cmp $baselineversion < 0)

			{

				print "[WARNING: less recent than baseline]";

				$cmp_diffver++;

			}

			elsif ($tool_info->{version} cmp $baselineversion > 0)

			{

				print "[WARNING: more recent than baseline]";

				$cmp_diffver++;

			}

		}

	print "\n";

}

print "\n";

if (defined $compare)

{

	print "Summary of comparison to baseline:\n";

	if ($cmp_notpresent || $cmp_diffver)

		print " Tools not present or not found in the expected location: $cmp_notpresent\n";

		print " Tools at different version: $cmp_diffver\n";

		print " All tools seem to match the baseline :-)\n";

	}

	print "\n";

}

# write report file

if (defined $report)

{

	if (open(ENVINFO, ">$output"))

	{

		for my $tool_info (@environment_info)

		{

			print ENVINFO "$tool_info->{name}\t$tool_info->{version}\n";

		}

		close(ENVINFO);

		print "Wrote report file: $output\n";

	}

	else

	{

		warn "WARNING: Could not write to file: $output\n";