equal
deleted
inserted
replaced
17 use strict; |
17 use strict; |
18 |
18 |
19 use Getopt::Long; |
19 use Getopt::Long; |
20 |
20 |
21 my $report; |
21 my $report; |
22 my $output = "\\output\\logs\\envinfo.txt"; |
22 my $output = "$ENV{'EPOCROOT'}\\output\\logs\\envinfo.txt"; |
|
23 $output =~ s/^\\+/\\/; |
23 my $compare; |
24 my $compare; |
24 my $baseline = "\\build_info\\logs\\envinfo.txt"; |
25 my $baseline = "$ENV{'EPOCROOT'}\\build_info\\logs\\envinfo.txt"; |
|
26 $baseline =~ s/^\\+/\\/; |
25 my $help = 0; |
27 my $help = 0; |
26 GetOptions(( |
28 GetOptions(( |
27 'report:s' => \$report, |
29 'report:s' => \$report, |
28 'compare:s' => \$compare, |
30 'compare:s' => \$compare, |
29 'help!' => \$help |
31 'help!' => \$help |
41 |
43 |
42 Usage: envinfo.pl [options] |
44 Usage: envinfo.pl [options] |
43 |
45 |
44 Options: |
46 Options: |
45 -h, --help Show this help message and exit |
47 -h, --help Show this help message and exit |
46 -r,--report [FILE] Write report to FILE (default \\output\\logs\\envinfo.txt) |
48 -r,--report [FILE] Write report to FILE (default %EPOCROOT%\\output\\logs\\envinfo.txt) |
47 -c,--compare [LOCATION] |
49 -c,--compare [LOCATION] |
48 Compare environment with info at LOCATION |
50 Compare environment with info at LOCATION |
49 (default \\build_info\\logs\\envinfo.txt) |
51 (default %EPOCROOT%\\build_info\\logs\\envinfo.txt) |
50 _EOH |
52 _EOH |
51 exit(0); |
53 exit(0); |
52 } |
54 } |
53 |
55 |
54 my $baseline_environment_info = {}; |
56 my $baseline_environment_info = {}; |
161 my $zip_ver = 'N.A.'; |
163 my $zip_ver = 'N.A.'; |
162 my $zip_out = `7z`; |
164 my $zip_out = `7z`; |
163 $zip_ver = $1 if ($zip_out =~ /^7-Zip\s+(\S+)\s+Copyright/m); |
165 $zip_ver = $1 if ($zip_out =~ /^7-Zip\s+(\S+)\s+Copyright/m); |
164 push @environment_info, {name=>'7-Zip', version=>$zip_ver}; |
166 push @environment_info, {name=>'7-Zip', version=>$zip_ver}; |
165 |
167 |
|
168 # EPOCROOT |
|
169 my $epocroot_ver = 'N.A.'; |
|
170 my $epocroot_out = `echo %EPOCROOT%`; |
|
171 chomp $epocroot_out; |
|
172 $epocroot_ver = $epocroot_out if ($epocroot_out ne '%EPOCROOT%'); |
|
173 push @environment_info, {name=>'EPOCROOT', version=>$epocroot_ver}; |
|
174 |
166 # Raptor |
175 # Raptor |
167 my $sbs_ver = 'N.A.'; |
176 my $sbs_ver = 'N.A.'; |
168 my $sbs_out = `sbs -v`; |
177 my $sbs_out = `sbs -v`; |
169 $sbs_ver = $1 if ($sbs_out =~ /^sbs version (.*)/m); |
178 $sbs_ver = $1 if ($sbs_out =~ /^sbs version (.*)/m); |
170 push @environment_info, {name=>'sbs', version=>$sbs_ver}; |
179 push @environment_info, {name=>'sbs', version=>$sbs_ver}; |
253 { |
262 { |
254 $tool_info->{name} =~ s/\t/ /g; |
263 $tool_info->{name} =~ s/\t/ /g; |
255 $tool_info->{version} =~ s/\t/ /g; |
264 $tool_info->{version} =~ s/\t/ /g; |
256 } |
265 } |
257 |
266 |
258 print "\nTools breakdown\n"; |
267 print "\nEnvironment Information:\n"; |
259 |
268 |
260 my $cmp_notpresent = 0; |
269 my $cmp_notpresent = 0; |
261 my $cmp_diffver = 0; |
270 my $cmp_diffver = 0; |
262 for my $tool_info (@environment_info) |
271 for my $tool_info (@environment_info) |
263 { |
272 { |