[Comm] script for procmail log

[Comm] script for procmail log

[Alexey Tourbin]

[-- Attachment #1: Type: text/plain, Size: 374 bytes --]

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

~/.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__

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [Comm] script for procmail log

[Alexey Tourbin]

[-- Attachment #1.1: Type: text/plain, Size: 488 bytes --]

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__

Вот версия получше.

[-- Attachment #1.2: maillog --]
[-- Type: text/plain, Size: 309 bytes --]

#!/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__

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]