Apagar spam na fila do postfix por palavra [Perl]

Apagar spam na fila do postfix por palavra

Publicado por Ronaldo Terranova 21/10/2005

[ Hits: 10.099 ]

Download killspam.pl

0 0

Denuncie Favoritos Indicar

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.

Esconder código-fonte

#!/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;
}

Scripts recomendados

Envia e-mail com anexo

Remover caixas postais do Cyrus IMAP

Apagar MAILER-DAEMON da fila de email

Email UserAdmin

Retorna apenas emails válidos com MX válidos

Comentários

[1] Comentário enviado por dimasdaros em 15/08/2011 - 13:32h

Me ajudou bastante =D
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

0 0