I have a need to grab specific Mime sections of an array.
I've looked at and tried different Mime Modules but can't seem to get it to go. I thought about parsing it manually but I'm not sure if every message will be formatted exactly the same, hence the module.
The array contains the lines of a multipart email body, not the header, just the body.
I have the boundary line in a variable by then.
What I need to do is grab the text/plain section into a variable or array. In the example below I just want to grab 'I am monkey hear me roar'
These aren't actually like this in the script, they are set by a function in a module but this illustrates what they contain.
$boundary = '------=_NextPart_000_000B_01C2D9A1.22427D20'; @body = ' ------=_NextPart_000_000B_01C2D9A1.22427D20 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable
I am monkey hear me roar
------=_NextPart_000_000B_01C2D9A1.22427D20 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META content=3D"text/html; charset=3Diso-8859-1" = http-equiv=3DContent-Type> <META content=3D"MSHTML 5.00.3315.2870" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>I am monkey hear me roar</FONT></DIV></BODY></HTML>
------=_NextPart_000_000B_01C2D9A1.22427D20--';
If this is a proper mail , why dont you use ready Mail Parsers MIME::Parser for one ( excellent module )
Ram
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
