Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Taint causes MIME::Lite to hang?

by elbie (Deacon)
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 => 'ccalzonetti@quarry.com', To => 'ccalzone@quarry.com', 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?

elbieelbieelbie

Comment on Taint causes MIME::Lite to hang?
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (14)
As of 2015-07-07 20:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (93 votes), past polls