I don't trust your
is_tainted function. Try using the standard one instead:
my $msg = MIME::Lite->new(
To => "$emailsite",
From => "$from",
Subject => "Contato >> $assunto",
Type => 'text/html',
Data => "$html" );
use Scalar::Util qw(tainted); # This module is included in perl 5.8
my %test = ('$msg' => $msg, '$emailsite' => $emailsite,
'$from' => $from, '$assunto' => $assunto, '$html' => $html
+);
my ($k, $v);
while (($k, $v) = each %test)
{
if (tainted($v)) {print STDERR "$k is TAINTED\n";}
else {print STDERR "$k is not tainted\n";}
}
$msg->send();
By the way, where did you get your
is_tainted function? It's not the standard one suggested in
perlsec
--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/