Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Taint causes MIME::Lite to hang?

by elbie (Curate)
on May 09, 2002 at 13:02 UTC ( #165359=perlquestion: print w/replies, xml ) Need Help??

elbie has asked for the wisdom of the Perl Monks concerning the following question:

I've got a script which I'd like to use to send documents via e-mail. Nothing major. Here's the portion of the script that I'm having issues with:

#! /usr/bin/perl -w use strict; use MIME::Lite; $ENV{ 'PATH' } = '/bin:/usr/bin:/usr/local/bin:/usr/lib:/var/qmail/bin +'; $ENV{ 'BASH_ENV' } = ''; my $msg = MIME::Lite->new( From => '', To => '', Subject => 'A test', Type => 'multipart/mixed', ); $msg->attach( Type => 'TEXT', Data => "Here is a file.\n", ); $msg->attach( Type => 'application/octect-stream', Path => '/var/wwwdata/docs/wml_style.pdf', Disposition => 'attachment', ); $msg->send;

Well, as is, the script works fine. If however, I add the -T taint option to my hashbang line, the script just seems to hang on me. No warnings, no errors, nothing.

Further, if I leave in the -T, but comment out the code attaching the pdf, then the script once again works.

Setting $MIME::Lite::PARANOID = 1 doesn't seem to be helping here. Anyone know what's going on?


Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://165359]
Approved by jlk
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2021-10-25 20:04 GMT
Find Nodes?
    Voting Booth?
    My first memorable Perl project was:

    Results (90 votes). Check out past polls.