Apagar spam na fila do postfix por palavra

Publicado por Ronaldo Terranova 21/10/2005

[ Hits: 9.649 ]

Download killspam.pl




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

Email UserAdmin

FetchYahoo 2.8.1

newsletter.pl

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

mimemail.pl


  

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


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts