diff options
| author | Petter Reinholdtsen <pere@hungry.com> | 2008-07-04 07:34:48 +0000 |
|---|---|---|
| committer | Petter Reinholdtsen <pere@hungry.com> | 2008-07-04 07:34:48 +0000 |
| commit | e1e6b1dd39c60ea24988df73c8c54f2319d68ff2 (patch) | |
| tree | 61b80509094a8f197fa60e07fb5e31b7c47aa112 /sitesummary-collector.cgi | |
| parent | 47182b176d6c495473bec25bcc74353164a34c1d (diff) | |
| download | sitesummary-e1e6b1dd39c60ea24988df73c8c54f2319d68ff2.tar.gz sitesummary-e1e6b1dd39c60ea24988df73c8c54f2319d68ff2.tar.bz2 sitesummary-e1e6b1dd39c60ea24988df73c8c54f2319d68ff2.tar.xz | |
* Fix the code running collector handlers, to get it working when
the perl script is in tained mode.
Diffstat (limited to 'sitesummary-collector.cgi')
| -rw-r--r-- | sitesummary-collector.cgi | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/sitesummary-collector.cgi b/sitesummary-collector.cgi index 5dcf972..c9fbf86 100644 --- a/sitesummary-collector.cgi +++ b/sitesummary-collector.cgi @@ -135,8 +135,12 @@ sub process_entry { } rename $dirname, $newdir || die; + + $ENV{"PATH"} = ""; for my $handler (<$handlerdir/*>) { - `$handler $newdir $status`; + # Untaint script path + $handler =~ m/^([^;]*)$/; $handler = $1; + system("$handler", "$newdir", "$status"); } } |