common/tools/uh2diamonds.pl
changeset 1181 4bdc287cd2c7
parent 1051 044ab1b95cae
child 1244 c04fc0405d17
equal deleted inserted replaced
1180:332c5195337a 1181:4bdc287cd2c7
    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 }