my $query = new CGI;
my $member = $query->param('nm'); $member =~ s/[^a-zA-Z0-9_ -]//g;
-my $branch = $query->param('br'); $branch =~ s/[^a-zA-Z0-9_ -]//g;
+my $branch = $query->param('br'); $branch =~ s/[^a-zA-Z0-9+_ .-]//g;
my $hm = $query->param('hm'); $hm =~ s/[^a-zA-Z0-9_ -]//g;
$hm = '240' unless $hm =~ /^\d+$/;
$row->{os_version} = $latest_personality->[0];
$row->{compiler_version} = $latest_personality->[1];
}
+
+ # convert list of individual testresults to list of ranges of equal results
+ # for speed of display
if (defined($row->{log_text}))
{ # convert to a hash, find ranges, output list of ranges
my $h = { split /\s+/, $row->{log_text} };