use FindBin qw($Bin);
use lib "$Bin/lib";
use TestHelper;
my ($system, $tools_info,$short, $arch);
my $how_to_use_me = "\ngetInfo [--tools] [--system][--short]\n\n\t".
"-Prints OS/Tools versions for machine it runs on\n\n";
GetOptions ('system' => \$system, 'tools' => \$tools_info,
'short' => \$short,
'arch' => \$arch,
'usage' => \$usage, 'help' =>\$help);
if ($usage || $help) { print $how_to_use_me; exit }
if ( (!$system) &&(!$tools_info) ) { $system = 1; $tools_info = 1; }
if ($short) { $short = " -short"}
if ($system) { system ("$tools/getSysInfo $short"); }
if ($tools_info) { system ("$tools/getToolsInfo $short"); }