1 |
#! xPERL_PATHx |
#! @PERL@ -T |
2 |
# -*-Perl-*- |
# -*-Perl-*- |
3 |
|
|
4 |
|
# Copyright (C) 1994-2005 The Free Software Foundation, Inc. |
5 |
|
|
6 |
|
# This program is free software; you can redistribute it and/or modify |
7 |
|
# it under the terms of the GNU General Public License as published by |
8 |
|
# the Free Software Foundation; either version 2, or (at your option) |
9 |
|
# any later version. |
10 |
|
# |
11 |
|
# This program is distributed in the hope that it will be useful, |
12 |
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
13 |
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
14 |
|
# GNU General Public License for more details. |
15 |
|
|
16 |
|
############################################################################### |
17 |
|
############################################################################### |
18 |
|
############################################################################### |
19 |
|
# |
20 |
|
# THIS SCRIPT IS PROBABLY BROKEN. REMOVING THE -T SWITCH ON THE #! LINE ABOVE |
21 |
|
# WOULD FIX IT, BUT THIS IS INSECURE. WE RECOMMEND FIXING THE ERRORS WHICH THE |
22 |
|
# -T SWITCH WILL CAUSE PERL TO REPORT BEFORE RUNNING THIS SCRIPT FROM A CVS |
23 |
|
# SERVER TRIGGER. PLEASE SEND PATCHES CONTAINING THE CHANGES YOU FIND |
24 |
|
# NECESSARY TO RUN THIS SCRIPT WITH THE TAINT-CHECKING ENABLED BACK TO THE |
25 |
|
# <@PACKAGE_BUGREPORT@> MAILING LIST. |
26 |
|
# |
27 |
|
# For more on general Perl security and taint-checking, please try running the |
28 |
|
# `perldoc perlsec' command. |
29 |
|
# |
30 |
|
############################################################################### |
31 |
|
############################################################################### |
32 |
|
############################################################################### |
33 |
|
|
34 |
# Author: John Rouillard (rouilj@cs.umb.edu) |
# Author: John Rouillard (rouilj@cs.umb.edu) |
35 |
# Supported: Yeah right. (Well what do you expect for 2 hours work?) |
# Supported: Yeah right. (Well what do you expect for 2 hours work?) |
36 |
# Blame-to: rouilj@cs.umb.edu |
# Blame-to: rouilj@cs.umb.edu |