fixes problems running the mailgate with taint mode on.
Index: ScripAction.pm
RCS file: /proj/maps/cvsroot/rt/lib/RT/ScripAction.pm,v
retrieving revision 1.1.2.2
retrieving revision 1.4
diff -u -b -r1.1.2.2 -r1.4
— ScripAction.pm 2001/04/02 16:25:12 1.1.2.2
+++ ScripAction.pm 2001/03/20 09:13:39 1.4
@@ -113,7 +113,9 @@
@_ );
#TODO: Put this in an eval
- my $type = “RT::Action::”. $self->ExecModule;
-
$self->ExecModule =~ /^(\w+)$/
-
or die "illegal ExecModule: ". $self->ExecModule;
-
my $type = “RT::Action::$1”;
$RT::Logger->debug(“now requiring $type\n”);
eval “require $type” || die “Require of $type failed.\n$@\n”;
Index: ScripCondition.pm
RCS file: /proj/maps/cvsroot/rt/lib/RT/ScripCondition.pm,v
retrieving revision 1.1.2.2
retrieving revision 1.6
diff -u -b -r1.1.2.2 -r1.6
— ScripCondition.pm 2001/04/02 16:25:12 1.1.2.2
+++ ScripCondition.pm 2001/03/20 09:13:39 1.6
@@ -121,7 +121,9 @@
@_ );#TODO: Put this in an eval
- my $type = “RT::Condition::”. $self->ExecModule;
-
$self->ExecModule =~ /^(\w+)$/
-
or die "illegal ExecModule: ". $self->ExecModule;
-
my $type = “RT::Condition::$1”;
$RT::Logger->debug(“now requiring $type\n”);
eval “require $type” || die “Require of $type failed.\n$@\n”;
meow
_ivan