Lee el RFCs acerca de email, en el cuerpo el separador de lineas es CR LF, no
solamente LF. Fijate por ejemplo en RFC 2045, seccion 2.
Acaso no hay en CPAN paquetes para hacer esto? (yo no uso Perl si puedo
evitarlo, por eso no se si existe)
--- "Rojas, Ricardo" <[EMAIL PROTECTED]> wrote:
> Se�ores:
>
> He creado un programa en Perl que envie correos seg�n informaci�n leida
de la
> base de datos, el problema es que se est�n perdiendo los cambios de l�nea
> cuando lo envio a una cuenta en un servidor Exchange, pero no hay ese
> problema cuando lo envio a un servidor Gmail:
>
> El correo llega asi:
>
> Storage device added: 4607442944
> Storage device removed: 4607442944
> Storage device added: 4607442944
> Storage device removed: 4607442944
> Storage device added: (FS) FLASH DISK 518192640 Storage device removed: (FS)
> FLASH DISK 518192640 Storage device removed: USB SD Reader 254983680 Storage
> device removed: USB CF Reader 0 Storage device removed: USB SM Reader 0
> Storage device removed: USB MS Reader 0 Storage device added: STORAGE DEVICE
> 123379200 Storage device removed: STORAGE DEVICE 123379200 Storage device
> added: Sony DSC 246758400 Storage device removed: Sony DSC 246758400
>
> Cuando deber�a llegar asi:
>
> Storage device added: 4607442944
> Storage device removed: 4607442944
> Storage device added: 4607442944
> Storage device removed: 4607442944
> Storage device added: (FS) FLASH DISK 518192640
> Storage device removed: (FS) FLASH DISK 518192640
> Storage device removed: USB SD Reader 254983680
> Storage device removed: USB CF Reader 0
> Storage device removed: USB SM Reader 0
> Storage device removed: USB MS Reader 0
> Storage device added: STORAGE DEVICE 123379200
> Storage device removed: STORAGE DEVICE 123379200
> Storage device added: Sony DSC 246758400
> Storage device removed: Sony DSC 246758400
>
> La parte del c�dgio referente al correo es :
>
> use Net::SMTP;
> my $smtp = Net::SMTP->new('portal');
> $smtp->mail($ENV{USER});
> $smtp->to('[EMAIL PROTECTED]');
> $smtp->data();
> $smtp->datasend("From: SysAid <[EMAIL PROTECTED]>\n");
> $smtp->datasend("To: [EMAIL PROTECTED]");
> $smtp->datasend("Subject: Alerta SysAid\n");
> $smtp->datasend("\n");
> while(my @val = $s->fetchrow_array())
> {
> $smtp->datasend("$val[4] \n");
> ++$count;
> }
> $smtp->dataend();
>
> Gracias por cualquier ayuda que me pudieran brindar.
>
> Saludos,
> Ricardo Rojas.
>
>
>
>
>
>
>
>
> Este correo fue revisado por McAfee Antivirus
> > _______________________________________________
> Linux-plug mailing list
> [email protected]
> http://www.linux.org.pe/cgi-bin/mailman/listinfo/linux-plug
>
--
Jesus M. Castagnetto ([EMAIL PROTECTED])
Web site: http://www.castagnetto.org/
Research: http://metallo.scripps.edu/
PEAR stuff: http://pear.php.net/user/jmcastagnetto
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
_______________________________________________
Linux-plug mailing list
[email protected]
http://www.linux.org.pe/cgi-bin/mailman/listinfo/linux-plug
