[Rt-commit] rt branch, 4.0/fail-taint-mode-early, created. rt-3.9.7-1188-g5573999

[Alex Vandiver]

The branch, 4.0/fail-taint-mode-early has been created
        at  5573999cc6dd4729321cb054251770c6a025ed73 (commit)

- Log -----------------------------------------------------------------
commit 5573999cc6dd4729321cb054251770c6a025ed73
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Tue Jan 18 03:37:16 2011 -0500

    Abort early under taint mode, and explain how to fix it
    
    RT has never worked under Perl's taint mode, nor does it suggest doing
    so.  Nonetheless, this does not stop many people from attempting it.
    Catch their mistake early, and provide a more informative error
    message than perl would provide.

diff --git a/sbin/rt-server.in b/sbin/rt-server.in
index 8b19c22..a921fd3 100755
--- a/sbin/rt-server.in
+++ b/sbin/rt-server.in
@@ -51,6 +51,12 @@ use strict;
 
 # fix lib paths, some may be relative
 BEGIN {
+    die <<EOT if ${^TAINT};
+RT does not run under Perl's "taint mode".  Remote -T from the command
+line, or remove remove the PerlTaintCheck parameter from your mod_perl
+configuration.
+EOT
+
     require File::Spec;
     my @libs = ("@RT_LIB_PATH@", "@LOCAL_LIB_PATH@");
     my $bin_path;

-----------------------------------------------------------------------