d/freebsd-skq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix taint bug in previous commit.

Browse Source
This commit is contained in:
des 2003-07-18 07:29:00 +00:00
parent 23627a9271
commit 76be06b592
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tools/tools/tinderbox/www/index.cgi
View File

@ -68,8 +68,10 @@ MAIN:{
$| = 1;
print "Content-Type: text/html\n\n";
} else {
my $fn = $0;
$fn =~ s/cgi$/html/;
my $fn = "index.html";
if ($0 =~ m|^(/[\w/._-]+)/[^/]+$|) {
$fn = "$1/$fn";
}
open(STDOUT, ">", $fn)
or die("index.html: $!\n");
}