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
