[Comm] script for procmail log
Alexey Tourbin
=?iso-8859-1?q?at_=CE=C1_altlinux=2Eru?=
Чт Фев 22 15:17:30 MSK 2007
On Sun, Aug 20, 2006 at 12:51:13AM +0400, Alexey Tourbin wrote:
> Может кому надо.
>
> ~/.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__
Вот версия получше.
----------- следующая часть -----------
#!/bin/sh
log=$1 && shift || log=~/Mail/.maillog
tail -n 99 -f "$log" |perl -MEncode -Mopen=OUT,:locale -ln /dev/fd/3 3<<'__EOF__' 2>/dev/null
s/^\s*Subject:\s*// and s/=\?\w\S*[^=]$/$&?=/,
$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/20070222/80753b92/attachment-0003.bin>
Подробная информация о списке рассылки community