[Comm] script for procmail log

[Alexey Tourbin]

Может кому надо.

~/.procmailrc:
LOGFILE=$MAILDIR/.maillog
LOGABSTRACT=all

~/bin/maillog:
#!/bin/sh
log=$1 && shift || log=~/Mail/.maillog
tail -n 30 -f "$log" |perl -MEncode -Mopen=OUT,:locale -ln /dev/fd/3 3<<'__EOF__'
	/^\s*Subject:\s*/ and $subj = Encode::decode("MIME-Header", $') || $';
	/^\s*Folder:\s*(\S+)/ and printf "%-8s\t%s\n", $1, $subj;
__EOF__
----------- следующая часть -----------
Было удалено вложение не в текстовом формате...
Имя     : =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Тип     : application/pgp-signature
Размер  : 189 байтов
Описание: =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Url     : <http://lists.altlinux.org/pipermail/community/attachments/20060820/0a1618b5/attachment-0003.bin>