equal
deleted
inserted
replaced
16 |
16 |
17 use Getopt::Long; |
17 use Getopt::Long; |
18 |
18 |
19 my $input = "\\output\\logs\\html\\index.html"; |
19 my $input = "\\output\\logs\\html\\index.html"; |
20 my $output = "\\output\\logs\\diamonds_uh.xml"; |
20 my $output = "\\output\\logs\\diamonds_uh.xml"; |
|
21 my $bit_output = "\\output\\logs\\bitinfo.txt"; |
21 my $help = 0; |
22 my $help = 0; |
22 GetOptions(( |
23 GetOptions(( |
23 'in=s' => \$input, |
24 'in=s' => \$input, |
24 'out=s' => \$output, |
25 'out=s' => \$output, |
25 'help!' => \$help |
26 'help!' => \$help |
86 } |
87 } |
87 else |
88 else |
88 { |
89 { |
89 warn "Could not write to file: $output\n"; |
90 warn "Could not write to file: $output\n"; |
90 } |
91 } |
|
92 |
|
93 if (open(BITINFO, ">>$bit_output")) |
|
94 { |
|
95 print BITINFO "failure\tmissing,$missing\n"; |
|
96 print BITINFO "failure\tminor,$minor\n"; |
|
97 print BITINFO "failure\tmajor,$major\n"; |
|
98 print BITINFO "failure\tcritical,$critical\n"; |
|
99 close(BITINFO); |
|
100 } |