common/tools/brag/uh2brag.pl
changeset 1212 c04fc0405d17
parent 960 a5e5d79cd09a
equal deleted inserted replaced
1211:776ca456c221 1212:c04fc0405d17
    41 # READ INDEX.HTML FILE
    41 # READ INDEX.HTML FILE
    42 if (open(INDEX, $raptorSummary))
    42 if (open(INDEX, $raptorSummary))
    43 {
    43 {
    44 	while (my $line = <INDEX>)
    44 	while (my $line = <INDEX>)
    45 	{
    45 	{
    46 		if ($line =~ m{<tr><td><a href='.*'>.*</a></td><td>(\d+)</td><td>(\d+)</td><td>(\d+)</td><td>(\d+)</td>(<td>(\d+)</td>)?})
    46 		if ($line =~ m{<tr><td><a href='.*'>.*</a></td><td>(\d+)</td><td>(\d+)</td><td>(\d+)</td><td>(\d+)</td>(<td>(\d+)/\d*</td>)?})
    47 		{
    47 		{
    48 			$criticals += $1 if ($1);
    48 			$criticals += $1 if ($1);
    49 			$majors += $2 if ($2);
    49 			$majors += $2 if ($2);
    50 			$majors += $6 if ($6); # add number of missing files to majors
    50 			$majors += $6 if ($6); # add number of missing files to majors
    51 			$minors += $3 if ($3);
    51 			$minors += $3 if ($3);