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.

• Download killspam.pl
• Enviar nova versão

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;
}

Validando lista de e-mail no MX

mimemail.pl

newsletter.pl

FetchYahoo 2.8.1

Retornar somente e-mails válidos