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.
