Bash Script for Spam Queue Removal on Zimbra Mail Server (Updated)

I have a small script-got it from Internet-for Zimbra spam queue removal based on Postfix queue message removal. The script written on Perl language and become a mandatory script on each Zimbra server deployment, as a quick tools to remove spam message from queue caused by compromised account.

As of Zimbra 8.7, there is a little change on path for some Postfix binary. On previous version, Postfix binary located on /opt/zimbra/postfix/ but since version 8.7, the binary folder moved into /opt/zimbra/common/ so I take a little time to change the script.
Below is an updated script, check for Zimbra version and change binary folder accordingly :
[code lang=”bash”]
#!/usr/bin/perl -w
#
# pfdel – deletes message containing specified address from
# Postfix queue. Matches either sender or recipient address.
#
# Usage: pfdel sender-or-recipient-address
#
use strict;
my $LISTQ;
my $POSTSUPER;
# Change these paths if necessary.
system(“su – zimbra -c ‘zmcontrol -v’ > /tmp/zcs-ver.txt”);
my $VER=`awk ‘/Release 6|Release 7|Release 8.0|Release 8.5|Release 8.6/’ /tmp/zcs-ver.txt`;
#print $VER
if (length($VER) > 0)
{
$LISTQ = “/opt/zimbra/postfix/sbin/postqueue -p”;
$POSTSUPER = “/opt/zimbra/postfix/sbin/postsuper”;
}
else
{
$LISTQ = “/opt/zimbra/common/sbin/postqueue -p”;
$POSTSUPER = “/opt/zimbra/common/sbin/postsuper”;
}
my $email_addr = “”;
my $qid = “”;
my $euid = $>;
if ( @ARGV != 1 ) {
die “Usage: pfdel \n”;
} else {
$email_addr = $ARGV[0];
}
if ( $euid != 0 ) {
die “You must be root to delete queue files.\n”;
}
open(QUEUE, “$LISTQ |”) ||
die “Can’t get pipe to $LISTQ: $!\n”;
my $entry = ; # skip single header line
$/ = “”; # Rest of queue entries print on
# multiple lines.
while ( $entry = ) {
if ( $entry =~ / $email_addr$/m ) {
($qid) = split(/\s+/, $entry, 2);
$qid =~ s/[\*\!]//;
next unless ($qid);
#
# Execute postsuper -d with the queue id.
# postsuper provides feedback when it deletes
# messages. Let its output go through.
#
if ( system($POSTSUPER, “-d”, $qid) != 0 ) {
# If postsuper has a problem, bail.
die “Error executing $POSTSUPER: error ” .
“code ” . ($?/256) . “\n”;
}
}
}
close(QUEUE);
if (! $qid ) {
die “No messages with the address <$email_addr> ” .
“found in queue.\n”;
}
exit 0;
[/code]
If you tend to lazy to copy-paste the script, get it from mine :
[code lang=”bash”]
wget https://www.vavai.com/pfdel
chmod +x pfdel
[/code]
And to run it, just run this script with root permissions :
[code lang=”bash”]
./pfdel email-spammer
[/code]
ex :
[code lang=”bash”]
./pfdel spammersampah@vavai.com
[/code]
However, this is only a quick tools to remove spam, but more importantly is prevent spam from being filling into queue.