must set up environment for taint perl to OK the system call.

git-svn-id: svn://10.0.0.236/trunk@136635 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
kestes%walrus.com 2003-01-19 17:26:39 +00:00
parent 999bdd89db
commit 64056f93e2

View File

@ -7,8 +7,8 @@
# columns from being shown on the default pages.
# $Revision: 1.12 $
# $Date: 2002-12-09 18:17:00 $
# $Revision: 1.13 $
# $Date: 2003-01-19 17:26:39 $
# $Author: kestes%walrus.com $
# $Source: /home/befator/cvs/jail/cvsroot/mozilla/webtools/tinderbox2/src/bin/regenerate.cgi,v $
# $Name: not supported by cvs2svn $
@ -47,6 +47,7 @@ use lib '#tinder_libdir#';
use TinderConfig;
use TreeData;
use Utils;
use HTMLPopUp;
use FileStructure;
@ -54,6 +55,9 @@ use FileStructure;
# Main
{
# must call set_static_vars() to ensure that we are taint safe.
set_static_vars();
my (%form) = HTMLPopUp::split_cgi_args(
'cgi_remove_args' => ['daemon-mode'],
);