Comments on: Quick Tip: Postfix Flush the Mail Queue

By: lemsx1

lemsx1 — Thu, 04 Mar 2010 18:09:23 +0000

Some say Perl is becoming a lost art ;-) Here is my Ruby re-write (a bit more efficient. it uses practically no memory) Save as postfix-purge-queue and run every 1 min from a cron job. Change the path to match your own binaries. This assumes Solaris (+ blastwave) paths:

#!/opt/csw/bin/ruby
# vi: ft=ruby :
#
#  !! lemsx1 $$@$$ gmail !! com 
# 2010-03-04 12:20 EST
#
# Cleans postfix mail queue on Solaris

# set debug to true when testing regex:
debug = false

regex = "example\.(com|net|org)|Host\s+or\s+domain\s+name\s+not\s+found"

IO.popen("/opt/csw/sbin/postqueue -p") do |readme|
    q_id = nil
    readme.each do |line|
        if line =~ /^(\w+)(\*|\!)?\s/
            q_id = $1
        end
        if q_id
            if line =~ /#{regex}/
                if debug
                    puts "matching #{q_id}"
                else
                    `/opt/csw/sbin/postsuper -d #{q_id} > /dev/null 2>&1`
                end
            q_id=nil
            end
        end
    end
end

By: salman

salman — Thu, 25 Jun 2009 09:43:12 +0000

thanx alot alot ………………. for the script it works very very very well …… very very very well done …. !!!!!!!!!!!!!!

By: somono

somono — Wed, 11 Feb 2009 08:08:02 +0000

If a queue_id of - is specified, the program reads queue IDs from standard input. For example, to delete all mail with exactly one sender info@msn.com :

mailq | tail +2 | grep -v '^ *(' | awk  'BEGIN { RS = "" }
              # $7=sender, $8=recipient1, $9=recipient2
               { if ($7 == "info@msn.com")
               print $1 }
              ' | tr -d '*!' | postsuper -d -

By: Sean

Sean — Fri, 07 Nov 2008 15:27:23 +0000

Manuel, learn to indent.

By: pd

pd — Fri, 25 Jul 2008 02:08:33 +0000

is there someone help me out? i need scripts to check how many emails bounced or deferred or sent?
if bounced or deferred then why? like full details message?

By: Manuel

Manuel — Fri, 02 May 2008 01:20:50 +0000

Wow This is a seriously crappy coding job. Who writes this stuff? I cleaned this up to not only make sure this was scoped correctly, but also try to have a novice perl user understand it.

#!/usr/bin/perl

my $REGEXP = shift(@ARGV) || die “no email-adress given (regexp-style, e.g. bl.*\@yahoo.com)!”;

my %Q;
my $queue_id;
my @data = `/usr/sbin/postqueue -p`;
foreach my $line (@data) {
if ($line =~ /^(\w+)(\*|\!)?\s/) {
$queue_id = $1;
}
if($queue_id) {
if ($line =~ /$REGEXP/i) {
$Q{$queue_id} = 1;
$queue_id = “”;
}
}
}

open(POSTSUPER,”|postsuper -d -”) || die “couldn’t open postsuper” ;

foreach my $key (keys %Q) {
print POSTSUPER “$key\n”;
}
close(POSTSUPER);

Hopefully this helps.. I cannot confirm that this works, just cleaned it up so that it makes sense.

By: Jim

Jim — Thu, 24 Apr 2008 18:30:26 +0000

I’ve found this code on two different blogs and have received compilation errors both times similar to:

Unmatched right curly bracket at ./delete-queue line 9, at end of line
(Might be a runaway multi-line ;; string starting on line 5)
syntax error at ./postfix-delete.pl line 9, near “}”
Execution of ./postfix-delete.pl aborted due to compilation errors.

I’m more of a PHP person so Perl’s not my thing. I know syntax is really important and I’ve double and triple checked to make sure things are correct, including composing in vi, pico and bbedit editors.
??

By: Henk

Henk — Tue, 11 Dec 2007 15:46:54 +0000

I think matt deserves a pink slip from his employer, because he uses commands found on random sites without even checking what the effects are!

By: vivek

vivek — Tue, 11 Dec 2007 08:45:56 +0000

Matt,

thanks for the heads up. It was a typo. The post has been updated

By: Matt

Matt — Mon, 10 Dec 2007 23:49:05 +0000

The command for “To remove all bounced mail from Queue, enter:” is incorrect. That command will completely delete all the contents of your Mail Queue.

When I read this I thought it would eliminate only the bounced back emails that were sitting in my queue. I was wrong. It deleted all 6,000 of the emails sitting in my queue.

If this post is any sign of the type of information provided on this website, the readers are in for a big surprise…and some pink slips from their employer..