equal
deleted
inserted
replaced
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) |