Branch names may contain dots
authorJeremy Harris <jgh@wizmail.org>
Wed, 28 Dec 2016 12:21:05 +0000 (12:21 +0000)
committerJeremy Harris <jgh@wizmail.org>
Wed, 28 Dec 2016 12:21:05 +0000 (12:21 +0000)
cgi-bin/show_failures.pl
cgi-bin/show_history.pl

index 592ab4f6c49220aba1efa5ac00cf76aad8e07ffa..62d186e86e830868cddfe0ac39c5234a9da85e82 100755 (executable)
@@ -23,7 +23,7 @@ my @members = grep {$_ ne "" } $query->param('member');
 map { s/[^a-zA-Z0-9_ -]//g; } @members;
 my $max_days =  $query->param('max_days') + 0 || 10;
 my @branches = grep {$_ ne "" } $query->param('branch');
 map { s/[^a-zA-Z0-9_ -]//g; } @members;
 my $max_days =  $query->param('max_days') + 0 || 10;
 my @branches = grep {$_ ne "" } $query->param('branch');
-map { s/[^a-zA-Z0-9_ -]//g; } @branches;
+map { s/[^a-zA-Z0-9_ .-]//g; } @branches;
 my @stages = grep {$_ ne "" } $query->param('stage');
 map { s/[^a-zA-Z0-9_ :-]//g; } @stages;
 
 my @stages = grep {$_ ne "" } $query->param('stage');
 map { s/[^a-zA-Z0-9_ :-]//g; } @stages;
 
index 49ce76792c40855695f976668555a4a413d482f1..7d5219c3d9773b6a2a0dd96cda16cb08cffc43f3 100755 (executable)
@@ -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 $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+$/;
 
 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];
     }
        $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} };
     if (defined($row->{log_text}))
       {         # convert to a hash, find ranges, output list of ranges
       my $h = { split /\s+/, $row->{log_text} };