At 12:39 p -0600 06/03/2008, [EMAIL PROTECTED] didst inscribe upon an
electronic papyrus:
On 3-Jun-2008, at 12:20, Doug McNutt wrote:
Please ask <[EMAIL PROTECTED]> If you'd like to see the code - it's done
in perl. and uses post filtering options of qmail under open BSD.
<ftp://ftp.macnauchtan.com/Pair/qfilter_list.pl >
I have a few lines of procmail that auto-sorts all mailing lists
(well, just about). It does not need updating for new lists nor
cleaning to remove old lists.
==begin
# .list_procmail, best to be called with a
# INCLUDERC=/list_procmail
MYDATE=`date '+%Y-%m'`
# [ ] contains a space and a tab
#Sean B Straw wrote most (all?) of this block, some slight tweaks made
LISTNAME
:0
* 9876543210^0 ^(List-Id:.*<|X-Mailing-List:[ ]*)\/[-A-z0-9_+]+
* 9876543210^0 ^(List-Post:[ ]*(<mailto:)?|List-Owner:[
]*(<mailto:)?owner-) \/[-A-Z0-9_+]+
* 9876543210^0 ^(Sender:[ ]*owner-|X-BeenThere:[ ]*|Delivered-To:
[ ]*mailing list )\/[-A-Za-z0-9_+]+
* 9876543210^0 ^Sender:.* List"? <(mailto:)?\/[-A-Z0-9_+]+
{ LISTNAME=$MATCH }
# OK, that didn't work, let's try List-Subscribe
:0E
* ^List-Subscribe:.*<mailto:\/[-A-Z0-9_+]+-(digest|on|subscribe)@
* MATCH ?? ^^\/.+-
* MATCH ?? ^^\/.+[^-]
{ LISTNAME = $MATCH }
[snip]
Ugh, procmail code is so ugly and obtuse. That's why I wrote my own
filter in Perl, which has English-like rules syntax:
if list-id contains bbedit.googlegroups.com then done
Um, no, it's not publicly available at this time. But at least I
tracked down the [greedy regexp] culprit that occasionally caused my
script to hang. :)
-boo
who dislikes googlegroups and is dismayed by BB's decision
--
------------------------------------------------------------------
Have a feature request? Not sure the software's working correctly?
If so, please send mail to <[EMAIL PROTECTED]>, not to the list.
List FAQ: <http://www.barebones.com/support/lists/bbedit_talk.shtml>
List archives: <http://www.listsearch.com/BBEditTalk.lasso>
To unsubscribe, send mail to: <[EMAIL PROTECTED]>
