envinfo/envinfo.pl
changeset 261 598059d917c3
parent 260 047e37a8f43f
child 262 77dc8956ed66
equal deleted inserted replaced
260:047e37a8f43f 261:598059d917c3
    32 $output = $report if ($report);
    32 $output = $report if ($report);
    33 $baseline = $compare if ($compare);
    33 $baseline = $compare if ($compare);
    34 
    34 
    35 if ($help)
    35 if ($help)
    36 {
    36 {
    37 	print "Dumps environment info such as tools version to cmdline and/or to a file\n";
    37 print <<_EOH;
    38 	print "Compare info with a baseline\n";
    38 envinfo
    39 	print "Usage: perl envinfo.pl [OPTIONS]\n";
    39 Dumps environment info such as tools version to cmdline and/or to a file
    40 	print "where OPTIONS are:\n";
    40 Compare info with a baseline
    41 	print "-r,--report [FILE]\tCreate report file (default \\output\\logs\\envinfo.txt)\n";
    41 
    42 	print "-c,--compare [LOCATION]\tCompare environment with info at LOCATION (default \\build_info\\logs\\envinfo.txt)\n";
    42 Usage: envinfo.pl [options]
       
    43 
       
    44 Options:
       
    45   -h, --help            Show this help message and exit
       
    46   -r,--report [FILE]    Write report to FILE (default \\output\\logs\\envinfo.txt)
       
    47   -c,--compare [LOCATION]
       
    48                         Compare environment with info at LOCATION
       
    49                         (default \\build_info\\logs\\envinfo.txt)
       
    50 _EOH
    43 	exit(0);
    51 	exit(0);
    44 }
    52 }
    45 
    53 
    46 my $baseline_environment_info = {};
    54 my $baseline_environment_info = {};
    47 if (defined $compare)
    55 if (defined $compare)