Extract body message from raw e-mail

rigel_kent · 06-02-2006, 02:16 PM

Hi,

I'm trying to extract the body message from a raw e-mail message (in the server). I'm using the following test:

Code:

 
use Net::POP3;
use Mail::Internet;

print "Content-type: text/html\n\n";

#I know the $mail_server,$username and $password - I get a good login; no problem with that

    $pop = Net::POP3->new($mail_server);
    $pop = Net::POP3->new($mail_server, Timeout => 60);
 
  if ($pop->login($username, $password) > 0) {
  my $msgnums = $pop->list; # hashref of msgnum => size
  foreach my $msgnum (keys %$msgnums) {
  my $msg = $pop->get($msgnum);
  $rfc2822 = "@$msg";
  my $obj = Mail::Internet->new( [ split /\n/, $rfc2822 ] );
  my $old_body = $obj->body;
  $out = "@$old_body";
  $out =~ s/\n/<br>/gmi;  
  print $out."<br><br>************************************************************<br><br>";
      }
    }
 
    $pop->quit;
 
exit;

The problem is that I get always blank results - but if I print "@$msg", it's all there.

Can someone assist me, please?

Kind regards,

Rigel Kent

spirit receiver · 06-02-2006, 04:46 PM

I guess the detour is intentional? You dereference $msg into an array, concatenate the array into a string $rfc2822, then split it into an array again, just to pass the array reference to Mail::Internet. In particular, you remove all newline characters from your message along the way.

At least the following works fine:

Code:

  foreach my $msgnum (keys %$msgnums) {
    my $obj = Mail::Internet->new( $pop->get($msgnum)  );
    my $old_body = $obj->body;
    $out = "@$old_body";
    $out =~ s/\n/<br>/gmi;  
    print $out."<br><br>************************************************************<br><br>\n";
  }

It seems like yours doesn't work for the following reason: Have a look at $rfc2822, each line except the very first begins with whitespace. I guess that the lines returned by $pop->get($msgnum) end in "\n ", i.e. newline followed by a space character. So if your string is split at newlines later, those space characters will be shifted to the next line, but then Mail::Internet doesn't recognize the next header.

It also works if you use "split /\n /, $rfc2822", but who knows if the messages returned by Net::POP3 will always look like that? I wonder if this is a bug somewhere.

rigel_kent · 06-03-2006, 06:07 AM

Hi,

You're right. Thanks.

Regards,

Rigel_Kent