common/tools/envinfo.pl
changeset 905 9ed73a51c728
parent 888 5cd45cbf7622
child 931 5a526b63fb08
--- a/common/tools/envinfo.pl	Thu Feb 18 19:59:22 2010 +0000
+++ b/common/tools/envinfo.pl	Fri Mar 05 16:16:43 2010 +0000
@@ -135,6 +135,25 @@
 }
 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`;
+$java_ver = $1 if ($zip_out =~ /^java version (.*)/m);
+push @environment_info, {name=>'java', version=>$java_ver};
 
 for my $tool_info (@environment_info)
 {