Re: Decode a mail with MIME::Parser

[RuneK]

Hi again, Thanks for the answer but I cannot seem to get your part with the mbox to work.
I'm using the .procmailrc with the following statement:

:0 | /tmp/mailparser.pl> /tmp/test.log

So I'm parsing the mail directly to the script which should read it through STDIN.
I changed the print (to,from,subject,body) to print to a file instead because that is what I need, but the file is empty. The script now looks like this:

#!/usr/bin/perl -w
use strict;
use warnings;
use Mail::MboxParser;

my $mbox= \*STDIN;
my $mb = Mail::MboxParser->new($mbox);

open (MSG,">mailmessage");

for my $msg ($mb->get_messages) {
   my $to = $msg->header->{to};
   my $from = $msg->header->{from};
   my $cc = $msg->header->{cc} || " ",
   my $subject = $msg->header->{subject} || '<No Subject:>',
   my $body = $msg->body($msg->find_body,0);
   my $body_str = $body->as_string || '<No message text>';
   print MSG "To: $to\n",
         "From: $from\n",
         "Cc: $cc\n",
         "Subject: $subject\n",
         "Message Text: $body_str\n";
   print MSG "~" x 77, "\n\n";
close MSG;
}

The file is created so it's not a permission problem but it is empty. The MboxParser.pm is just installed.
Any ideas?
Thanks, Rune

[jlongino]

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   => '[e-mail]',
      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

[Anonymous Monk]

I faced the same problem with pipeline from .procmailrc \*STDIN; seem to be not work..