require "$RealBin/../BuildFarmWeb.pl";
my $query = new CGI;
-my @members = $query->param('member');
+my @members = $query->multi_param('member');
map { s/[^a-zA-Z0-9_ -]//g; } @members;
my $dsn="dbi:Pg:dbname=$dbname";
$row->{build_flags} =~ s/_PC\b//g;
$row->{build_flags} = lc($row->{build_flags});
if (defined($row->{log_text}))
- { # convert to a hash
- $row->{log_text} = { split /\s+/, $row->{log_text} };
+ { # convert to a hash, find ranges, output list of ranges
+ my $h = { split /\s+/, $row->{log_text} };
+ my $i;
+ my $start;
+ my @ranges;
+
+ foreach my $k (sort {$a<=>$b} keys %$h)
+ {
+ if (defined $start)
+ {
+ if ($h->{$k} ne $h->{$start})
+ {
+ push @ranges, sprintf("%s %s %s", $h->{$start}, $start, $i);
+ $start = $k;
+ $i = 1;
+ }
+ else
+ {
+ $i++;
+ }
+ }
+ else
+ {
+ $start = $k;
+ $i = 1;
+ }
+ }
+ if (defined $start)
+ {
+ push @ranges, sprintf("%s %s %s", $h->{$start}, $start, $i);
+ }
+
+ $row->{log_text} = \@ranges;
}
push(@$statrows,$row);
}