problemas sendmail con perl

21 Jul 2005

      bueno tengo un problemita cuando estoy corriendo un
script que hace llamado a una subrutina de envio de
correo  me da un error y no envia nada...el error
aparece en /var/spool/mail/root ...y lo muestro mas
abajo 

               if($Datos{A}){	# obtengo un dato
arreglo hash si existe
                        my $in1= $Datos{A};
                        my $lin1=length($in1);    #
comparo la longitud 
                        if ($lin1 >= 3){			#si la
logitud es 3 la salida out1 puede                     

				$out1=$in1;			#mostrarse  y guardarse en memoria
                                $mem1=$in1;		
                                print "$out1\n";		# si
no.... muestra memoria 	

                               if ($out1<140 &&
$band==1 ){	# si el valor de out es menor a   
                                        &w1mail();			
# a 140 entonces enviar correo 
                                        $band=0;
                                        }
                                elsif(  $out1 >= 140){
		# el resto es una comprobacion
                                        $band=1;				
                                        print "bandera
a 1\n";

 }
                                else{ $band =0;
                                        print "bandera
a 0 \n"; }
                                }
                        else {
                                $out1=$mem1;		
#mostrar memoria 
                                print"$out1\n";
                                         }
                        }
                else{   $out1=$mem1;
                        print "$mem1\n";

#aca envio el correo 
sub w1mail{
        print "en la funcion correo\n";
        open (MAIL,"|/usr/lib/sendmail -t");
        print MAIL "To: mv_sanguino\@yahoo.es\n";
        print MAIL "From:root@zayaka.funmrd.gov.ve\n";
        print MAIL "Subject: Perdida de energia en la
estacion \n\n";
        print MAIL "blalvblç\n";

        close MAIL;
        print "final funcion correo\n";
}

eso es lo que me da el /var/spool/mail/root

from MAILER-DAEMON  Thu Jul 21 16:08:10 2005
Return-Path: <>
X-Original-To: root@zayaka.funmrd.gov.ve
Delivered-To: root@zayaka.funmrd.gov.ve
Received: by zayaka.funmrd.gov.ve (Postfix)
        id 6AA3B34D69; Thu, 21 Jul 2005 16:08:10 -0400
(VET)
Date: Thu, 21 Jul 2005 16:08:10 -0400 (VET)
From: MAILER-DAEMON@zayaka.funmrd.gov.ve (Mail
Delivery System)
Subject: Undelivered Mail Returned to Sender
To: root@zayaka.funmrd.gov.ve
MIME-Version: 1.0
Content-Type: multipart/report;
report-type=delivery-status;

boundary="3A02034CDF.1121976490/zayaka.funmrd.gov.ve"
Message-Id:
<20050721200810.6AA3B34D69@zayaka.funmrd.gov.ve>

This is a MIME-encapsulated message.

--3A02034CDF.1121976490/zayaka.funmrd.gov.ve
Content-Description: Notification
Content-Type: text/plain

This is the Postfix program at host
zayaka.funmrd.gov.ve.

I'm sorry to have to inform you that your message
could not be
be delivered to one or more recipients. It's attached
below.

For further assistance, please send mail to
<postmaster>

If you do so, please include this problem report. You
can
delete your own text from the attached returned
message.

                        The Postfix program

<unknown>: No recipients specified

--3A02034CDF.1121976490/zayaka.funmrd.gov.ve
Content-Description: Delivery report
Content-Type: message/delivery-status
Reporting-MTA: dns; zayaka.funmrd.gov.ve
X-Postfix-Queue-ID: 3A02034CDF
X-Postfix-Sender: rfc822; root@zayaka.funmrd.gov.ve
Arrival-Date: Thu, 21 Jul 2005 16:08:10 -0400 (VET)

Final-Recipient: rfc822; unknown
Action: failed
Status: 5.0.0
Diagnostic-Code: X-Postfix; No recipients specified

--3A02034CDF.1121976490/zayaka.funmrd.gov.ve
Content-Description: Undelivered Message
Content-Type: message/rfc822

Received: by zayaka.funmrd.gov.ve (Postfix, from
userid 0)
        id 3A02034CDF; Thu, 21 Jul 2005 16:08:10 -0400
(VET)
To: mv_sanguino@yahoo.es
From: root.funmrd.gov.ve@zayaka.funmrd.gov.ve
Subject: Perdida de energia en la estacion
Message-Id:
<20050721200810.3A02034CDF@zayaka.funmrd.gov.ve>
Date: Thu, 21 Jul 2005 16:08:10 -0400 (VET)

aca va el mensaje 

--3A02034CDF.1121976490/zayaka.funmrd.gov.ve--

alguien me puede decir que esta pasando 

______________________________________________ 
Renovamos el Correo Yahoo! 
Nuevos servicios, más seguridad 
http://correo.yahoo.es

problemas sendmail con perl

Manuel Sanguino