Make sure the BRAG xml and xsl files are sent to bishare in an unzipped way to allow access from link in Diamonds.
## @file BuildEnvXML.pl# @ingroup userscripts clientscripts## Uses information which is defined in the BuildEnvXML.xml to set up a machine# specific environment, such as path for compilers. ## @todo Document this script.## Copyright (c) 2009 Symbian Foundation Ltd. All rights reserved.#package BuildEnvXML;use Getopt::Long;use BuildEnvXML qw(&getToolEnvironment &getLastErrorMsg);my $toolenvxml = "";my $dbgfile = "";my $sbsconfig = "";my $toolsconfig = "";GetOptions ("xml=s" => \$toolenvxml, "dbg:s" => \$dbgfile, "sbs:s" => \$sbsconfig, "tools:s" => \$sbsconfig); my @contexts = @ARGV;if ($toolenvxml eq ""){ print ("ERROR: XML file cannot be found!\n");}# Checking the SBS config to test only what's necessary for that buildif ($sbsconfig =~ /armv5/i){ push @contexts, "ARMv5";}# Checking the tools config to test only what's necessary for that buildif ($sbsconfig =~ /tools[^2]?(,|$|_)/i){ push @contexts, "tools";}my $sErrMsg;my $result = 0;if (-e $dbgfile){ unlink($dbgfile);}&setDbgFile($dbgfile);foreach my $context (@contexts){ print "\n\n### Checking $context Tools ###\n"; my $sSystemPath = &getToolEnvironment($toolenvxml, $context); $sErrMsg = &getLastErrorMsg; if ($sErrMsg eq "") { $sErrMsg = "\nAll OK.\n";} if($sErrMsg =~ /ERROR/) { print "\n$context Tools VERIFICATION FAILED:"; print $sErrMsg."\n\n"; $result = -1; }else{ print "\n$context tools VERIFICATION PASSED:"; print $sErrMsg."\n\n"; }}if ($result ne 0){ print "\n ==> PROGRAM STOPPED!!\n";}exit($result);