git://git.exim.org
/
buildfarm-server.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use q->multi_param() when multiple values are expected.
[buildfarm-server.git]
/
cgi-bin
/
show_failures.pl
diff --git
a/cgi-bin/show_failures.pl
b/cgi-bin/show_failures.pl
index 62d186e86e830868cddfe0ac39c5234a9da85e82..ffdcef94cf6fa1e7590b4b5e4d74a4a4fa3dc13b 100755
(executable)
--- a/
cgi-bin/show_failures.pl
+++ b/
cgi-bin/show_failures.pl
@@
-19,12
+19,12
@@
use FindBin qw($RealBin);
require "$RealBin/../BuildFarmWeb.pl";
my $query = new CGI;
require "$RealBin/../BuildFarmWeb.pl";
my $query = new CGI;
-my @members = grep {$_ ne "" } $query->param('member');
+my @members = grep {$_ ne "" } $query->
multi_
param('member');
map { s/[^a-zA-Z0-9_ -]//g; } @members;
my $max_days = $query->param('max_days') + 0 || 10;
map { s/[^a-zA-Z0-9_ -]//g; } @members;
my $max_days = $query->param('max_days') + 0 || 10;
-my @branches = grep {$_ ne "" } $query->param('branch');
+my @branches = grep {$_ ne "" } $query->
multi_
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');
+my @stages = grep {$_ ne "" } $query->
multi_
param('stage');
map { s/[^a-zA-Z0-9_ :-]//g; } @stages;
my $dsn="dbi:Pg:dbname=$dbname";
map { s/[^a-zA-Z0-9_ :-]//g; } @stages;
my $dsn="dbi:Pg:dbname=$dbname";