On Fri, 2009-07-31 at 15:57 -0400, Alvaro Herrera wrote: > Marcos Ramirez escribió: > > Mail::Internet (MailTools) deberia servirte, aunque francamente no veo > > porque no pudieras usar Mail::Message (Mail-Box) como se describe en > > Mail::Message::Construct::Build (Mail-Box). > > El problema es construir el header. En la BD lo guardo como un string > de varias líneas, y no veo en Mail::Message::Construct cómo crear un > header a partir de eso. Toda la API parece asumir que uno va a ingresar > los campos uno por uno, pero con este diseño de BD es un cacho hacerlo > así (no se puede simplemente cortar línea por línea, porque los campos > largos pueden usar más de una línea, como Received, los subject largos, > los To y CC largos, etc). Tendría que ponerme a procesar el header pero > eso es justo lo que no quiero hacer ...
Asumiendo que esto es lo que guardas en tu BD, ¿ Que tiene de malo algo como lo que incluyo ? Mas aun, si tienes el cuerpo del mensaje en otro campo, perfectamente puedes concatenar ambos y pasarlos como parametro del Mail::Message->read($var) (recuerda que hay una linea en blanco entre ambos) Saludos #!/usr/bin/perl use Mail::Message; my $headers = qq(Date: Fri, 31 Jul 2009 15:57:30 -0400 From: Alvaro Herrera <alvhe...@alvh.no-ip.org> To: Discusion de Linux en Castellano <linux@listas.inf.utfsm.cl> Subject: Re: "formail" en Perl Message-ID: <20090731195730.ge11...@alvh.no-ip.org> References: <20090728203614.gf25...@alvh.no-ip.org> <20090729000843.gl25...@alvh.no-ip.org> <1248884249.2546.6.ca...@pillan.dgpa.armada.cl> <20090731182143.gc11...@alvh.no-ip.org> <1249066385.2472.10.ca...@pillan.dgpa.armada.cl> MIME-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Disposition: inline Content-Transfer-Encoding: 8bit In-Reply-To: <1249066385.2472.10.ca...@pillan.dgpa.armada.cl> ); my $msg = Mail::Message->read($headers); ... $msg->head() entrega el header del mensaje ... -- Marcos Ramirez <mramir...@armada.cl>