# Copyright (c) 2009 Symbian Foundation Ltd

# 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:

# Symbian Foundation Ltd - initial contribution.

#

# Contributors:

# Dario Sestito <darios@symbian.org>

#

# Description:

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

use strict;

use Getopt::Long;

my $report;

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

my $compare;

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

my $help = 0;

GetOptions((

	'report:s' => \$report,

	'compare:s' => \$compare,

	'help!' => \$help

));

$output = $report if ($report);

$baseline = $compare if ($compare);

if ($help)

{

	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";

	exit(0);

}

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 $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;

		}

	}

}

my @environment_info = ();

# Machine name

push @environment_info, {name=>'Machine', version=>$ENV{'COMPUTERNAME'}};

# OS Name and Version

my $os_name = 'N.A.';

my $os_ver = 'N.A.';

my $os_out = `systeminfo`;

$os_name = $1 if ($os_out =~ /^OS Name:\s+(.*)/m);

$os_ver = $1 if ($os_out =~ /^OS Version:\s+(.*)/m);

push @environment_info, {name=>'OS Name', version=>$os_name};

push @environment_info, {name=>'OS Version', version=>$os_ver};

# Perl

my $perl_ver = 'N.A.';

my $perl_out = `perl -v`;

$perl_ver = $1 if ($perl_out =~ /This is perl, v(\S+)/m);

push @environment_info, {name=>'Perl', version=>$perl_ver};

# Python

my $python_ver = 'N.A.';

my $python_out = `python -V 2>&1`;

$python_ver = $1 if ($python_out =~ /^Python\s+(\S+)/m);

push @environment_info, {name=>'Python', version=>$python_ver};

# Mercurial

my $hg_ver = 'N.A.';

my $hg_out = `hg --version`;

$hg_ver = $1 if ($hg_out =~ /^Mercurial Distributed SCM \(version ([^)]+)\)/m);

push @environment_info, {name=>'Mercurial', version=>$hg_ver};

# 7-Zip

my $zip_ver = 'N.A.';

my $zip_out = `7z`;

$zip_ver = $1 if ($zip_out =~ /^7-Zip\s+(\S+)\s+Copyright/m);

push @environment_info, {name=>'7-Zip', version=>$zip_ver};

# Raptor

my $sbs_ver = 'N.A.';

my $sbs_out = `sbs -v`;

$sbs_ver = $1 if ($sbs_out =~ /^sbs version (.*)/m);

push @environment_info, {name=>'sbs', version=>$sbs_ver};

# Metrowerk Compiler

my $mwcc_ver = 'N.A.';

my $mwcc_out = `mwccsym2 -version`;

$mwcc_ver = $1 if ($mwcc_out =~ /^Version (.*)/m);

push @environment_info, {name=>'mwccsym2', version=>$mwcc_ver};

# RVCT 2.2

my $rvct22_ver = 'N.A.';

my $rvct22_path = '';

if (defined $ENV{'SBS_RVCT22BIN'})

{

	$rvct22_path = $ENV{'SBS_RVCT22BIN'};

}

elsif (defined $ENV{'RVCT22BIN'})

{

	$rvct22_path = $ENV{'RVCT22BIN'};

}

my $rvct22_cmd = 'armcc 2>&1';

$rvct22_cmd = "$rvct22_path\\$rvct22_cmd" if ($rvct22_path);

my $rvct22_out = `$rvct22_cmd`;

$rvct22_ver = $1 if ($rvct22_out =~ m#ARM/Thumb C/C\+\+ Compiler, RVCT2.2 (.*)#m);

push @environment_info, {name=>'RVCT2.2', version=>$rvct22_ver};

# RVCT 4.0

my $rvct40_ver = 'N.A.';

my $rvct40_path = '';

if (defined $ENV{'SBS_RVCT40BIN'})

{

	$rvct40_path = $ENV{'SBS_RVCT40BIN'};

}

elsif (defined $ENV{'RVCT40BIN'})

{

	$rvct40_path = $ENV{'RVCT40BIN'};

}

my $rvct40_cmd = 'armcc 2>&1';

$rvct40_cmd = "$rvct40_path\\$rvct40_cmd" if ($rvct40_path);

my $rvct40_out = `$rvct40_cmd`;

$rvct40_ver = $1 if ($rvct40_out =~ m#ARM C/C\+\+ Compiler, RVCT4.0 (.*)#m);

push @environment_info, {name=>'RVCT4.0', version=>$rvct40_ver};

# GCCE 4.4.1

my $gcc441_ver = 'N.A.';

my $gcc441_path = '';

if (defined $ENV{'SBS_GCCE441BIN'})

{

	$gcc441_path = $ENV{'SBS_GCCE441BIN'};

}

elsif (defined $ENV{'GCCE441BIN'})

{

	$gcc441_path = $ENV{'GCCE441BIN'};

}

if ($gcc441_path)

{

	my $gcc441_cmd = "$gcc441_path\\arm-none-symbianelf-g++ -dumpversion";

	my $gcc441_out = `$gcc441_cmd`;

	$gcc441_ver = "4.4.1" if ($gcc441_out =~ /4.4.1/);

}

push @environment_info, {name=>'GCC4.4.1', version=>$gcc441_ver};

# Helium

my $helium_ver = 'N.A.';

if ($ENV{'HELIUM_HOME'} && -f "$ENV{'HELIUM_HOME'}\\config\\version.txt")

{

	open(VERSION, "$ENV{'HELIUM_HOME'}\\config\\version.txt");

	my $line = '';

	while ($line = <VERSION>)

	{

		$helium_ver = $1 if ($line =~ /^helium\.version=(.*)/);

	}

	close(VERSION);

}

push @environment_info, {name=>'helium', version=>$helium_ver};

# java

my $java_ver = 'N.A.';

my $java_out = `java -version 2>&1`;

$java_ver = $1 if ($java_out =~ /^java version (.*)/m);

push @environment_info, {name=>'java', version=>$java_ver};

# change tabs to spaces

for my $tool_info (@environment_info)

{

	$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";

	}

	else

	{

		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";

	}

}