Receiving Emails From Sendmail

[devslashneil]

Hi Monks,

I am writing some custom mailing list software for my company,and i need to write a wrapper which email is passed to from sendmail.

I have added the appropriate information into /etc/mail/alias, and my program now recieves email to the STDIN when it is run.

My problem is that the email will contain different headers and sometimes HTML etc.

Is there a library / method for this specific purpose. Eg To take an email at this raw level and seperate it into "$mail->subject", "$mail->body" etc

This would be really useful for my program, i don't really want to go ahead and write something to do this using regexs when i assume someone has already tackled this problem before.

Any input would be much appreciated.
Cheers
Neil Archibald
- /dev/IT -

[hacker]

Perhaps this will give you a start:

  use strict;
  use Mail::Internet;

  my $message     = new Mail::Internet ([<>]);
  my $from        = $message->get('From');
  my $subject     = $message->get('Subject');
  my $received    = $message->get('Received');
  my @body        = @{$message->body()};

[devslashneil]

I was actually able to do it using MBoxParser
Here is some sample code:

#!/usr/bin/perl

use strict;
use Mail::MboxParser::Mail;

my $msg = Mail::MboxParser::Mail->new([<STDIN>],[<STDIN>]);
print $msg->from->{email} . "\n";
my $body = $msg->get_entity_body() . "\n";
print $body;

Neil Archibald
- /dev/IT -