X-Git-Url: https://git.exim.org/buildfarm-server.git/blobdiff_plain/554b708b5cbc2b058fac45f3083eafea2b124c11..d6e7d31e04ba5e36e555171e290c182404bd287f:/cgi-bin/show_history.pl diff --git a/cgi-bin/show_history.pl b/cgi-bin/show_history.pl index 49ce767..7d5219c 100755 --- a/cgi-bin/show_history.pl +++ b/cgi-bin/show_history.pl @@ -31,7 +31,7 @@ die $DBI::errstr unless $db; 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+$/; @@ -83,6 +83,9 @@ while (my $row = $sth->fetchrow_hashref) $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} };