From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Date: Sun, 20 Aug 2006 00:51:13 +0400 From: Alexey Tourbin To: community@lists.altlinux.org Message-ID: <20060819205113.GC8500@localhost.localdomain> Mail-Followup-To: community@lists.altlinux.org Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha1; protocol="application/pgp-signature"; boundary="wxDdMuZNg1r63Hyj" Content-Disposition: inline Subject: [Comm] script for procmail log X-BeenThere: community@lists.altlinux.org X-Mailman-Version: 2.1.7 Precedence: list Reply-To: ALT Linux Community List-Id: ALT Linux Community List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Sat, 19 Aug 2006 20:50:51 -0000 Archived-At: List-Archive: List-Post: --wxDdMuZNg1r63Hyj Content-Type: text/plain; charset=koi8-r Content-Disposition: inline Content-Transfer-Encoding: quoted-printable =ED=CF=D6=C5=D4 =CB=CF=CD=D5 =CE=C1=C4=CF. ~/.procmailrc: LOGFILE=3D$MAILDIR/.maillog LOGABSTRACT=3Dall ~/bin/maillog: #!/bin/sh log=3D$1 && shift || log=3D~/Mail/.maillog tail -n 30 -f "$log" |perl -MEncode -Mopen=3DOUT,:locale -ln /dev/fd/3 3<<'= __EOF__' /^\s*Subject:\s*/ and $subj =3D Encode::decode("MIME-Header", $') || $'; /^\s*Folder:\s*(\S+)/ and printf "%-8s\t%s\n", $1, $subj; __EOF__ --wxDdMuZNg1r63Hyj Content-Type: application/pgp-signature Content-Disposition: inline -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.5 (GNU/Linux) iD8DBQFE53nBfBKgtDjnu0YRAhmrAJ0T8c51RQ/gfaXHmWrANwCMWRsUNACfTOFW 77QdZP/UjUItYyMCTYxR1/g= =Zim2 -----END PGP SIGNATURE----- --wxDdMuZNg1r63Hyj--