Designed by olwebdesign

Apagar SPAM na fila de saída do Postfix.

Este script em perl apaga mensagens de SPAM que estão na fila de saída do postfix.

Basta colocar o TEXTO a ser buscado que ele encontra a mensagem e apaga.

O TEXTO deve ser algo do assunto ou mesmo da mensagem.

----------------------------------------------------------------------------------------------------------------------------

#!/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 -e "TEXTO"`;
        next unless $match;
        print "Deleting id: $id\n";
        my $saida = `postsuper -d $id`;
        print $saida;
}

----------------------------------------------------------------------------------------------------------------------------

Temos 56 visitantes e Nenhum membro online

Rua Guaipá, 1001 - Vila Leopoldina - São Paulo - SP - Contato:(11) 4102-3592