Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
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 drinking their drinks and smoking their pipes about the Monastery: (7)
As of 2014-12-28 16:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (182 votes), past polls