An error slipt into the code, here is the corrected part ;-)
# Decoding of part 1 (the body) CORRECT ONE
if ($content_type_att_1=~m/base64/i) {
$body=MIME::Base64::decode(trim($body));
} elsif ($content_type_att_1=~m/quoted-printable/i) {
$body=decode_qp($body);
}
# HAPPY PERL CODING
A part of code:
# This part of code can receive a mail on STDIN and parse it
# This mail is composed of 3 parts:
# o) a body (text)
# o) an attached file (a picture in my case)
# o) specifications of the attached file (text, a short description in my case)
#
use strict;
use MIME::Base64;
use MIME::QuotedPrint;
my $boundary;
my $attachmentCount=0;
my $body='';
my $filename; # Attached file name
my $file; # Attached file content
my $specidifcations; # Attached specification
my $content_type_att_1; # Content type of part 1
my $content_type_att_2; # Content type of part 2
my $content_type_att_3; # Content type of part 3
while { # Read the mail from STDIN (you need to create a redirection from email
address to your script)
$mail.=$_;
if (($_=~m/^\\\\s*boundary=\"-+.+\"\\\\s*$/i) && (not defined $boundary)) { #
To get the boundary string (multipart/mixed MIME type)
($boundary)=($_=~m/^\\\\s*boundary=\"-+(.+)\"\\\\s*$/i);
next;
} elsif (($_=~m/^--multipart_boundary/i) && (not defined $boundary)) {
$boundary='Multipart_boundary';
} # Now, we have got the boundary string
if ((defined $boundary) && ($_=~m/^-+$boundary/i)) { # An attachment has been
reached
$attachmentCount++;
next;
}
if ($_=~m/charset/i) {
next;
}
if ($attachmentCount>0) { # The first \"attachment\" can be bypassed, it's
only the mail body
if (1==$attachmentCount) {
if ($_ne '') {
if ($_=~m/Content-Transfer-Encoding/i) {
($content_type_attachment_1)=($_=~m/^Content-Transfer-Encoding:\\\\s(.*?)$/i);
}
if (($_!~m/^content/i) && ($_!~m/name/i) && ($_!~m/filename/i) &&
($_!~m/^\\\\s*$/)) {
$body.=$_;
}
}
} elsif (2==$attachmentCount) {
if ($_=~m/Content-Transfer-Encoding/i) {
($content_type_att_2)=($_=~m/^Content-Transfer-Encoding:\\\\s(.*?)$/i);
}
if ($_=~m/filename/i) {
($filename)=($_=~m/filename=\"(.*?)\"/i); # Filename of the attachment n°2
;-)
}
if ($_ ne '') {
if (($_!~m/^content/i) && ($_!~m/name/i) && ($_!~m/filename/i)&&
($_!~m/^\\\\s*$/)) {
$file.=$_; # Attached file content creation
}
}
} elsif (3==$attachmentCount) {
if ($_ ne '') {
if ($_=~m/Content-Transfer-Encoding/i) {
($content_type_att_3)=($_=~m/^Content-Transfer-Encoding:\\\\s(.*?)$/i);
}
if (($_!~m/^content/i) && ($_!~m/name/i) && ($_!~m/filename/i) && (trim($_)
ne '')) {
$specifications.=$_;
}
}
} else {
}
} else {
next;
}
}
# Decoding of part 1 (the body)
if ($content_type_att_1=~m/base64/i) {
$body=MIME::Base64::decode(trim($legend));
} elsif ($content_type_att_1=~m/quoted-printable/i) {
$body=decode_qp($legend);
}
# HAPPY PERL CODING ;-)
Use the MIME modules:MIME::Base64;MIME::QuotedPrint;Some other exist, but these
can decode a large range of mail. You need to parse the mail with your code,
but these modules allow you to decode the text + attachments.Do you need a
sample of code?OlivierI need a perl module that can help me get a attachement
from a massage, from a mailbox.Can you recomend me one?-- To unsubscribe,
e-mail: [EMAIL PROTECTED] additional commands, e-mail: [EMAIL PROTECTED]
