Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Using MIME::Lite to resend plain text messages (no attachments)

by jlongino (Parson)
on Sep 03, 2002 at 14:45 UTC ( #194782=note: print w/ replies, xml ) Need Help??


in reply to Re: Decode a mail with MIME::Parser
in thread Decode a mail with MIME::Parser

I'd move

close MSG;

outside of the for loop just for aesthetic purposes and check for errors on your open statement:

open (MSG, ">>mailmessage") or die "File open failed: $!\n";
but otherwise it performs as I would expect. Try saving a copy of your mail message to a file and invoke the program like so:
/tmp/mailparser.pl < mail.message.file

This suggests that you'll probably have to modify your procmail config line in some way, but I'm not familiar with procmail.

Update: I've had a similar problem using the /etc/aliases file to strip/redirect mail to a special account. I solved my problem by parsing the message and then resending it to a different account. This is sort of ugly, but it works until I can figure out the correct method:

#/etc/aliases entry ## The below entry saves an unaltered copy on account original, and ## pipes the incoming message through our program which ## resends to the final destination account. Be sure to execute ## 'newaliases' after you modify the /etc/aliases for the changed ## entry to be updated. original: \original, "|/tmp/mailparser.pl"
The modified perl program:
## # MboxParser stuff here ## use MIME::Lite; my $msg = new MIME::Lite To => 'targetaccount@same.site.net', From => $from, Cc => $cc, Subject => $subject, Type => 'TEXT', Comments => $to, ## save original to: if needed Data => $body_str; MIME::Lite->send('smtp', "some.smtp.net", Timeout=>60); $msg->send;

--Jim


Comment on Using MIME::Lite to resend plain text messages (no attachments)
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (14)
As of 2015-07-31 13:49 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 (278 votes), past polls