{"id":3580,"date":"2014-09-21T23:50:06","date_gmt":"2014-09-21T15:50:06","guid":{"rendered":"http:\/\/rmohan.com\/?p=3580"},"modified":"2014-09-21T23:50:06","modified_gmt":"2014-09-21T15:50:06","slug":"manage-postfix-mail-queue","status":"publish","type":"post","link":"https:\/\/mohan.sg\/?p=3580","title":{"rendered":"manage Postfix mail queue"},"content":{"rendered":"

This post will show a simple perl tool to manage (delete) one or more message in Postfix mail queue.<\/p>\n

The main script to use is delete-mailq.pl
\nCreate a file called delete-mailq.pl in \/usr\/local\/bin with the the following content :<\/p>\n

\n
\n\n\n\n
\n
1<\/div>\n
2<\/div>\n
3<\/div>\n
4<\/div>\n
5<\/div>\n
6<\/div>\n
7<\/div>\n
8<\/div>\n
9<\/div>\n
10<\/div>\n
11<\/div>\n
12<\/div>\n
13<\/div>\n
14<\/div>\n
15<\/div>\n
16<\/div>\n
17<\/div>\n
18<\/div>\n
19<\/div>\n
20<\/div>\n
21<\/div>\n
22<\/div>\n
23<\/div>\n
24<\/div>\n
25<\/div>\n
26<\/div>\n<\/td>\n
\n
\n
<<\/code>\/pre<\/code>><\/code><\/div>\n
#!\/usr\/bin\/perl -w<\/code><\/div>\n
# Postfix mailq cleanup utility<\/code><\/div>\n
<\/div>\n
$REGEXP = <\/code>shift<\/code> || die <\/code>\"no email-adress given (regexp-style, test.*@example.com)!\"<\/code>;<\/code><\/div>\n
<\/div>\n
@data = qx<<\/code>\/usr\/sbin\/postqueue<\/code> -p>;<\/code><\/div>\n
for<\/code> (@data) {<\/code><\/div>\n
if<\/code> (\/^(w+)*?s\/) {<\/code><\/div>\n
$queue_id = $1;<\/code><\/div>\n
}<\/code><\/div>\n
if<\/code>($queue_id) {<\/code><\/div>\n
if<\/code> (\/$REGEXP<\/code>\/i<\/code>) {<\/code><\/div>\n
$Q{$queue_id} = 1;<\/code><\/div>\n
$queue_id = <\/code>\"\"<\/code>;<\/code><\/div>\n
}<\/code><\/div>\n
}<\/code><\/div>\n
}<\/code><\/div>\n
<\/div>\n
open<\/code>(POSTSUPER,<\/code>\"|postsuper -d -\"<\/code>) || die <\/code>\"couldn't open postsuper\"<\/code> ;<\/code><\/div>\n
<\/div>\n
foreach (keys %Q) {<\/code><\/div>\n
print POSTSUPER <\/code>\"$_n\"<\/code>;<\/code><\/div>\n
};<\/code><\/div>\n
close(POSTSUPER);<\/code><\/div>\n
<pre><\/code><\/div>\n<\/div>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<\/div>\n

Assign it correct ownership and permission with the following commands :<\/p>\n

\n
\n\n\n\n
\n
1<\/div>\n
2<\/div>\n
3<\/div>\n
4<\/div>\n<\/td>\n
\n
\n
<<\/code>\/pre<\/code>><\/code><\/div>\n
chown<\/code> root:root <\/code>\/usr\/local\/bin\/delete-mailq<\/code>.pl<\/code><\/div>\n
chmod<\/code> 700 <\/code>\/usr\/local\/bin\/delete-mailq<\/code>.pl<\/code><\/div>\n
<pre><\/code><\/div>\n<\/div>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<\/div>\n

You should run the file directly passing the variables directly on comand line, or you should (and I prefer) create another file in \/usr\/local\/bin called clean-mailq.sh with the following content :<\/p>\n

\n
\n\n\n\n
\n
1<\/div>\n
2<\/div>\n
3<\/div>\n
4<\/div>\n
5<\/div>\n
6<\/div>\n
7<\/div>\n
8<\/div>\n
9<\/div>\n
10<\/div>\n
11<\/div>\n
12<\/div>\n
13<\/div>\n<\/td>\n
\n
\n
<<\/code>\/pre<\/code>><\/code><\/div>\n
#!\/bin\/sh<\/code><\/div>\n
<\/div>\n
if<\/code> [ -z $1 ]<\/code><\/div>\n
then<\/code><\/div>\n
echo<\/code> \"Insert the E-Mail address or a string to find it in mailqueue and delete it\"<\/code><\/div>\n
read<\/code> STRING<\/code><\/div>\n
else<\/code><\/div>\n
STRING=$1<\/code><\/div>\n
fi<\/code><\/div>\n
<\/div>\n
\/usr\/local\/bin\/delete_mailq<\/code>.pl $STRING<\/code><\/div>\n
<pre><\/code><\/div>\n<\/div>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<\/div>\n

Assign it correct ownership and permission with the following commands :<\/p>\n

\n
\n\n\n\n
\n
1<\/div>\n
2<\/div>\n
3<\/div>\n
4<\/div>\n<\/td>\n
\n
\n
<<\/code>\/pre<\/code>><\/code><\/div>\n
chown<\/code> root:root <\/code>\/usr\/local\/bin\/clean-mailq<\/code>.sh<\/code><\/div>\n
chmod<\/code> 700 <\/code>\/usr\/local\/bin\/clean-mailq<\/code>.sh<\/code><\/div>\n
<pre><\/code><\/div>\n<\/div>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<\/div>\n

At this time, you should execute \/usr\/local\/bin called clean-mailq.sh as root and pass the value to find and to delete from mail queue.<\/p>\n

Hope this help<\/p>\n

Bye
\nRiccardo<\/p>\n","protected":false},"excerpt":{"rendered":"

This post will show a simple perl tool to manage (delete) one or more message in Postfix mail queue.<\/p>\n

The main script to use is delete-mailq.pl Create a file called delete-mailq.pl in \/usr\/local\/bin with the the following content :<\/p>\n

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[45],"tags":[],"_links":{"self":[{"href":"https:\/\/mohan.sg\/index.php?rest_route=\/wp\/v2\/posts\/3580"}],"collection":[{"href":"https:\/\/mohan.sg\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/mohan.sg\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/mohan.sg\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/mohan.sg\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=3580"}],"version-history":[{"count":1,"href":"https:\/\/mohan.sg\/index.php?rest_route=\/wp\/v2\/posts\/3580\/revisions"}],"predecessor-version":[{"id":3581,"href":"https:\/\/mohan.sg\/index.php?rest_route=\/wp\/v2\/posts\/3580\/revisions\/3581"}],"wp:attachment":[{"href":"https:\/\/mohan.sg\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3580"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/mohan.sg\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3580"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/mohan.sg\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3580"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}