Following some advice from Stan Ryckman on finding why procmail
is not matching as I might expect, I put in my .procmailrc:
:0
*^From clpm-owner(_at_)lists(_dot_)eyrie(_dot_)org
{
LOG="The value of To on this mail from
clpm-owner(_at_)lists(_dot_)eyrie(_dot_)org is
+`formail -x To:`
"
}
VERBOSE=on
:0:
# * ^TO(comp\.lang\.)?perl
* ^TOperl
pl
VERBOSE=off
Note that there is one space between the "is" and the "`formail -x
To:`"
And following a suggestion from Philip Guenther I put in .qmail:
| preline /usr/home/lang/bin/procmail
# | preline /usr/home/lang/bin/procmail -m /usr/home/lang/.procmailrc
and I get in the log:
The value of To on this mail from clpm-owner(_at_)lists(_dot_)eyrie(_dot_)org
is clpm(_at_)lists(_dot_)eyri
e.org
procmail: [12830] Wed Aug 22 04:39:43 2001
procmail: No match on "(^((Original-)?(Resent-)?(To|Cc|Bcc)|(X-Envelope|Apparent
ly(-Resent)?)-To):(.*[^a-zA-Z])?)perl"
procmail: Assigning "VERBOSE=off"
procmail: Extraneous locallockfile ignored
From clpm-owner(_at_)lists(_dot_)eyrie(_dot_)org Tue Aug 21 20:39:43 2001
Subject: Re: Finding specific directories listings using regular expressions
Folder: /usr/home/lang/Mail/mbox 2579
But then from mutt when I pipe this mail to
/usr/home/lang/bin/procmail I get this different log:
The value of To on this mail from clpm-owner(_at_)lists(_dot_)eyrie(_dot_)org
is comp.lang.perl
.moderated
procmail: [22304] Wed Aug 22 09:47:05 2001
procmail: Match on "(^((Original-)?(Resent-)?(To|Cc|Bcc)|(X-Envelope|Apparently(
-Resent)?)-To):(.*[^a-zA-Z])?)perl"
procmail: Locking "pl.lock"
procmail: Assigning "LASTFOLDER=pl"
procmail: Opening "pl"
procmail: Acquiring kernel-lock
procmail: Unlocking "pl.lock"
From clpm-owner(_at_)lists(_dot_)eyrie(_dot_)org Tue Aug 21 20:39:43 2001
Subject: Re: Finding specific directories listings using regular expressions
Folder: pl 2621
procmail: Notified comsat: "lang(_at_)1165306:/usr/home/lang/Mail/pl"
Note that there are two spaces between "is" and "clpm" in the
first log, and three spaces between "is" and
"comp.lang.perl.moderated" in the second.
Diffing the two messages, there is no difference after reading
them in mutt.
Here is the message:
From clpm-owner(_at_)lists(_dot_)eyrie(_dot_)org Tue Aug 21 20:39:43 2001
Return-Path: <clpm-owner(_at_)lists(_dot_)eyrie(_dot_)org>
Delivered-To: lang(_at_)ms(_dot_)chinmin(_dot_)edu(_dot_)tw
Received: (qmail 12825 invoked from network); 21 Aug 2001 20:39:40 -0000
Received: from haven.stanford.edu (HELO haven.eyrie.org) (171.64.13.121)
by ms.chinmin.edu.tw with SMTP; 21 Aug 2001 20:39:40 -0000
Received: (qmail 15220 invoked by uid 201); 21 Aug 2001 20:34:53 -0000
Delivered-To: clpm(_at_)lists(_dot_)eyrie(_dot_)org
Received: (qmail 15215 invoked from network); 21 Aug 2001 20:34:51 -0000
Received: from windlord.stanford.edu (171.64.13.23)
by eyrie.org with SMTP; 21 Aug 2001 20:34:51 -0000
Received: (qmail 2611 invoked by uid 50); 21 Aug 2001 20:36:38 -0000
Old-To: clpm(_at_)lists(_dot_)eyrie(_dot_)org
From: gbacon(_at_)HiWAAY(_dot_)net (Greg Bacon)
Newsgroups: comp.lang.perl.moderated
Subject: Re: Finding specific directories listings using regular expressions
Date: Tue, 21 Aug 2001 19:51:49 -0000
Organization: Eric Conspiracy Secret Labs
Message-ID: <to5eulg37mob17(_at_)corp(_dot_)supernews(_dot_)com>
References: <9ltitm$1pc$1(_at_)usenet(_dot_)Stanford(_dot_)EDU>
<vafsnel5luq(_dot_)fsf(_at_)lucy(_dot_)cs(_dot_)uni-dortmund(_dot_)de>
Reply-To: Greg Bacon <gbacon(_at_)HiWAAY(_dot_)net>
X-Eric-Conspiracy: There is no conspiracy.
X-Newsreader: trn 4.0-test75 (Feb 13, 2001)
Originator: gbacon(_at_)HiWAAY(_dot_)net (Greg Bacon)
X-Complaints-To: newsabuse(_at_)supernews(_dot_)com
Sender: clpm-owner(_at_)lists(_dot_)eyrie(_dot_)org
Precedence: bulk
To: comp.lang.perl.moderated
Status: RO
Content-Length: 1190
Lines: 37
In article
<vafsnel5luq(_dot_)fsf(_at_)lucy(_dot_)cs(_dot_)uni-dortmund(_dot_)de>,
Kai Großjohann <Kai(_dot_)Grossjohann(_at_)CS(_dot_)Uni-Dortmund(_dot_)DE>
wrote:
: Maybe parsing the output of "find /data/fxa -ls" is easier?
: Maybe using File::Find is perlisher?
:
: kai
:
: PS: Is "perlisher" a word?
Are we talking about English or Deutsch? :-) If we're talking about
English, "more Perlish" is probably better grammar.
In grade school, the rule-of-thumb we learned for forming comparatives
is
# $adj is some adjective
if (syllables($adj) == 1 || $adj =~ s/y$/i/) {
$comparative = "${adj}er";
}
else {
$comparative = "more $adj";
}
Damian probably has a more robust implementation in a module
somewhere. :-)
Of course, there are a zillion exceptions. Instead of English, they
should have named it Exceptions, but I don't think the Brits would like
living in Exceptionland.
Greg
--
Recently I saw a promotion where for each gun you handed in, you got two
tickets to an LA Clippers game. Now that doesn't work out too well because
after watching the Clippers you want to kill yourself, and you don't have a
gun. It is literally an O Henry story waiting to be written. --Dennis Miller
My comment: It seems procmail's matching is more complicated than
may appear from the ^TO macro. It appears to be matching on the
Old-To: the first time round and inserting a space and on the
real To: line the second time round and inserting a space too.
--
Greg Matheson There is nothing as good as a
Chinmin College, practical theory.
Taiwan --Kurt Lewin's practicality maxim corollary
_______________________________________________
procmail mailing list
procmail(_at_)lists(_dot_)RWTH-Aachen(_dot_)DE
http://MailMan.RWTH-Aachen.DE/mailman/listinfo/procmail