Apagar spam na fila do postfix por palavra
Este script varre todo o diretorio /var/spool/postfix procurando em todos os e-mails que estão na fila que contenham a palavra que foi especificada no grep.
Obs.:É necessario ter o qshape intalado.
Obs.:É necessario ter o qshape intalado.
Descrição
Este script varre todo o diretorio /var/spool/postfix procurando em todos os e-mails que estão na fila que contenham a palavra que foi especificada no grep.
Obs.:É necessario ter o qshape intalado.
Obs.:É necessario ter o qshape intalado.
#!/usr/bin/perl
my $ids = `postqueue -p`;
my @ids = split /\n/, $ids;
for my $id (@ids) {
next if $id =~ /^[\s\(-]/;
chomp $id;
next unless $id;
$id =~ s/(.*?)\**\s.*/$1/;
print "$id\n";
my $match = `postcat -q $id | grep 'hotmail.com'`;
next unless $match;
print "Deleting id: $id\n";
my $saida = `postsuper -d $id`;
print $saida;
}
tinha feito em shellscript, mas tem alguns emails que na fila ficam com um "*" ao lado do id do email, dai não conseguia excluir :P
com esse seu script funcionou legal
parabéns, e vlws
abraço