#mail queue

It has some of the common Postfix commands, but what interested me was the Perl script to delete mailqs that matched regular expressions.

postfix-delete.pl script

The following script deletes all mail from the mailq which matches the regular expression specified as the first argument.

(Credit: Vivek Gite of cyberciti.biz. His credit: Credit: ??? – I found it on old good newsgroup)

#!/usr/bin/perl $REGEXP = shift || die "no email-adress given (regexp-style, e.g. bl.*\@yahoo.com)!"; @data = qx; for (@data) {  if (/^(\w+)(\*|\!)?\s/) {     $queue_id = $1;  }  if($queue_id) {    if (/$REGEXP/i) {      $Q{$queue_id} = 1;      $queue_id = "";    }  } } #open(POSTSUPER,"|cat") || die "couldn't open postsuper" ; open(POSTSUPER,"|postsuper -d -") || die "couldn't open postsuper" ; foreach (keys %Q) {  print POSTSUPER "$_\n"; }; close(POSTSUPER);

For example, delete all queued messages from or to the domain called [email protected], enter:

./postfix-delete.pl [email protected]

Delete all queued messages that contain the word “xyz” in the e-mail address:

./postfix-delete.pl xyz