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: 9.728 ]

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

newsletter.pl

Remover caixas postais do Cyrus IMAP

FetchYahoo 2.8.1

Notificador de Gmail no Conky.

Adicionar conta de e-mail - Postfix com domínios virtuais no MySQL

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