Re: Opiniones para un script en perl.....

[Hugo Morago <morago@usuarios.retecal.es>]

Allá por el 18/Jun/2003, Orvil Juárez escribió:

Yo personalmente no le veo ningún problema a primera vista, pero
trataría de descubrir porqué procmail no hace su trabajo. Luego, en
lugar de ese script, utilizaría el módulo Net::PO3 para hacer lo que
quieres, te ahorra descargarte el mensaje del servidor.

Suerte.


> Que tal Listeros,
> 
> Me gustaria que los mas duchos perleros me dieran una opinion de este 
> pequeño script que hice al vapor ya que necesito filtrar los emails pero 
> el procmail no jala ni a patadas... el codigo es el siguiente el cual 
> toma como entrada el contenido de un email, ya que en el .forward tiene 
> la instruccion:
> 
> |/usr/bin/filtro.pl
> 
> y me gustaria si no es mucha molestia que me dijeran:
> Que problemas le ven??
> Creen que le afecte a los mensajes?
> No se pegaran dos mensajes o tres y bajaran como uno solo al cliente de 
> correo?
> Tengo que bloquear el archivo antes de escribir en el??
> Se hara mas lento el proceso de entrega del mail??
> o no esta a toda mauser..... 
> -----------------------------------------------------
> 
> #!/usr/bin/perl
> my $intVeces=0;
> my $Linea;
> my $Subj;
> my $strMail="";
> while($Linea=<>)
> {
> $strMail=$strMail . $Linea;
> if ($Linea=~/.*filename=.*(\.bat|\.exe|\.vbs).*/i)
> {
>  $intVeces++;
> }
> if ($Linea=~/^Subject:.*/i)
> {
>  $Subj = $Linea;
> }
> }
> if ($intVeces <= 0)
> {
>  if( -e "/var/spool/mail/orvux")
>  {
>      open f1, ">>/var/spool/mail/orvux";
>      print f1 $strMail;
>  }
>  else
>  {
>      open f1, ">/var/spool/mail/orvux";
>      print f1 $strMail;
>  }
>  close f1;
> }
> else
> {
>  if( -e "/home/users/orvux/borrados.log")
>  {
>      open f2, ">>/home/users/orvux/borrados.log";
>      print f2 "Mail Borrado--" . $Subj . "\n";
>  }
>  else
>  {
>      open f2, ">/home/users/orvux/borrados.log";
>      print f2 "Mail Borrado--" . $Subj . "\n";      }
>  close f2;
> }
> ------------------------------------------------------
> 
> OrvUx
> Making the Hard...Soft with Linux.
> 
> 
> 
> -- 
> To UNSUBSCRIBE, email to debian-user-spanish-request@lists.debian.org
> with a subject of "unsubscribe". Trouble? Contact 
> listmaster@lists.debian.org
>