Thank you, Brendon, for taking a look at the script. I'd like to narrow down the problem so I can finish some working version of this thing.

I have logic that gets the job of restoring the e-mail done, albeit using regex in a brute force kind of way rather than parsing the message elegantly with modules. To get a minimally working, if ugly, script I just have to e-mail myself the resulting string ('$line'), which contains the entire multipart MIME message as raw text, attachments included. After looking at the online Quickstart web page for Email::Sender (the hyperlink to the more complete manual goes nowhere), this is what I wrote:

my $recipient = 'Mark Vecchio <mvecc...@mcc.commnet.edu>';
Email::Sender::Simple->send($line, { to => $recipient });

It doesn't work, I hope for reasons that are obvious to some of you out there. The script does run without throwing any errors in the Terminal I'm testing it in, but no e-mail gets sent.Toward the top of the script I've included the lines:

use Email::Sender::Simple qw(sendmail);
use Email::Simple;
use Email::Simple::Creator;

I have no idea where to go from here. I want to e-mail the string '$line' with all its headers -- i.e. From:, To:, Cc:, and Subject: -- intact. The To: and Cc: headers will often contain addresses other than my own, and I don't want to send the e-mail to anyone else but me. Anyone who can give me a snippet of code to jump start me in this final phase will become a god in my pantheon.

- Mark

Reply via email to