From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <a_s_y@sama.ru>
X-Spam-Checker-Version: SpamAssassin 3.2.5 (2008-06-10) on sa.int.altlinux.org
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=AWL,BAYES_00 autolearn=ham
	version=3.2.5
From: Sergey <a_s_y@sama.ru>
To: "ALT Linux sysadmins' discussion" <sysadmins@lists.altlinux.org>
Date: Fri, 31 May 2013 10:33:27 +0400
User-Agent: KMail/1.9.10 (enterprise35 0.20100827.1168748)
References: <51A76BFE.6030703@iop.kiev.ua>
In-Reply-To: <51A76BFE.6030703@iop.kiev.ua>
X-KMail-QuotePrefix: > 
MIME-Version: 1.0
Content-Type: Text/Plain;
  charset="koi8-r"
Content-Transfer-Encoding: 8bit
Content-Disposition: inline
Message-Id: <201305311033.27076.a_s_y@sama.ru>
Subject: Re: [Sysadmins] =?koi8-r?b?z97F0sXE2CDTxc7EzdnMwQ==?=
X-BeenThere: sysadmins@lists.altlinux.org
X-Mailman-Version: 2.1.12
Precedence: list
Reply-To: ALT Linux sysadmins' discussion <sysadmins@lists.altlinux.org>
List-Id: ALT Linux sysadmins' discussion <sysadmins.lists.altlinux.org>
List-Unsubscribe: <https://lists.altlinux.org/mailman/options/sysadmins>,
	<mailto:sysadmins-request@lists.altlinux.org?subject=unsubscribe>
List-Archive: <http://lists.altlinux.org/pipermail/sysadmins>
List-Post: <mailto:sysadmins@lists.altlinux.org>
List-Help: <mailto:sysadmins-request@lists.altlinux.org?subject=help>
List-Subscribe: <https://lists.altlinux.org/mailman/listinfo/sysadmins>,
	<mailto:sysadmins-request@lists.altlinux.org?subject=subscribe>
X-List-Received-Date: Fri, 31 May 2013 06:33:41 -0000
Archived-At: <http://lore.altlinux.org/sysadmins/201305311033.27076.a_s_y@sama.ru/>
List-Archive: <http://lore.altlinux.org/sysadmins/>

On Thursday 30 May 2013, Andrii Dobrovol`s`kii wrote:

> Возможно ли рулить очередью сендмыла на уровне отдельных писем?
> Например удалить из очереди все письма конкретного отправителя?
> Или это из области фантастики?
 
Никакой фантастики. Я даже с mailq не заморачиваюсь.

#!/bin/bash

ALIEN='какой-то признак поуникальнее'

for QN in `seq -f %03g 20`; do
    echo queue$QN
    find /var/spool/mqueue/queue$QN/ -type f -print0 | 2>/dev/null xargs -0 egrep -l "$ALIEN" | \
    cut -d '/' -f6|cut -b 3- | \
    while read f; do \
       rm -f /var/spool/mqueue/queue$QN/*$f; \
       done
done

Можно в find добавить -regex ".*\/qf.*", если достаточно по данным
заголовка ориентироваться.

-- 
С уважением, Сергей
a_s_y@sama.ru