Part of my /var/spool/mqueue consist of administrative bounces to mail domains that fail for a long time.
First a few queries to filter the messages I want to move (the -h suppresses filename so you can aggregate with sort and uniq):
grep -h "MDeferred: Connection" /tmp/mqueue-junk/qf* | sort | uniq -c
It gives results like this:
...
56 MDeferred: Connection refused by static.vnpt.vn.
...
1 MDeferred: Connection reset by cleanfreshliving.com.
...
10 MDeferred: Connection timed out with netflix.ssl.com.
...
After blacklisting those domains, I’ve used qtool.pl to cleanup the mail queue.
qtool.pl
As qtool.pl does not have “dry run” or log options, it’s best to test expressions on a copy of your mail queue first. I’ve made copies in /tmp/mqueue for this.
The query expression language on qtool.pl is complicated to get right: the documentation talks about using %msg which in fact is $msg and there is no official documentation on the mapping of qf files in the mqueue directory to expressions used in qtool.pl.
Luckily that mapping is in qtool.pl itself as explained by www.the-art-of-web.com/system/sendmail-qtool/#section_2. A recent source is at github.com/freebsd/freebsd/blob/master/contrib/sendmail/contrib/qtool.pl where I copied the fragment further below from.
Now just see these commands:
./contrib/qtool.pl -C /etc/sendmail.cf -e '$msg{message}[0] =~ /Deferred: Connection refused by/' /tmp/mqueue-junk/ /tmp/mqueue/
and
./contrib/qtool.pl -C /etc/sendmail.cf -e '$msg{num_delivery_attempts} > 100' /tmp/mqueue-junk/ /tmp/mqueue/
Since there are two M lines per qf file, you have to index the {message} part. There is no need for that with the {num_delivery_attempts}.
Because of the =~ operator, the match expressions are of [WayBack] perlre – perldoc.perl.org: Perl regular expressions.
If you run this on the live /var/spool/mqueue directory, then you can get errors like this which means you should retry after a few minutes (or run with sendmail disabled):
Could not obtain fcntl lock on '/var/spool/mqueue//qfv4H9jv7M007291': Resource temporarily unavailable.
1
Could not obtain fcntl lock on '/var/spool/mqueue//qfv5DB2NkJ024360': Resource temporarily unavailable.
1
Note that the searching for Mhost map: lookup \(.*\): deferredfails, so I write this little script that shows which commands are going to be executed and how to execute them:
grep -l "^Mhost map: lookup \(.*\): deferred$" /var/spool/mqueue/qf* | xargs -n1 -I {} echo "./contrib/qtool.pl -C /etc/sendmail.cf /var/spool/mqueue-junk/ {}"
grep -l "^Mhost map: lookup \(.*\): deferred$" /var/spool/mqueue/qf* | xargs -n1 -I {} ./contrib/qtool.pl -C /etc/sendmail.cf /var/spool/mqueue-junk/ {}
It executes the qtool.pl once per grep output line.
Read the rest of this entry »
The Wiert Corner - irregular stream of stuff 