getInfo   [plain text]


#! /usr/bin/perl

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