| Date: | Sun, 13 Jan 2002 00:46:07 -0500 |
| From: | Meng Weng Wong <mengwong [...] dumbo.pobox.com> |
| To: | Walt Mankowski <waltman [...] pobox.com> |
| Cc: | simon [...] cpan.org |
| Subject: | Re: [waltman: Mail:Audit patch to fix duplicate headers] |
ok, incorporated.
On Sun, Jan 13, 2002 at 12:43:11AM -0500, Walt Mankowski wrote:
|
| ----- Forwarded message from Walt Mankowski <waltman> -----
|
| Date: Fri, 2 Mar 2001 22:21:55 -0500
| From: Walt Mankowski <waltman>
| To: Simon Cozens <simon@cpan.org>
| Subject: Mail:Audit patch to fix duplicate headers
| User-Agent: Mutt/1.2.5i
|
| Simon,
|
| I noticed this week that my email count in sirc wasn't matching the
| count mutt was reporting. I looked at some recent messages in my
| inbox and saw that they all had duplicate "From ", "Return-Path:", and
| "Delivered-To:" headers. And I was able to trace that back to some
| code in Mail::Audit version 1.8.
|
| The problem is that the code was checking the body instead of the
| header to look for the "From " line.
|
| I've included a patch which fixes the problem.
|
| Walt
|
| --- Audit.pm.old Thu Feb 8 02:45:45 2001
| +++ Audit.pm Fri Mar 2 22:10:55 2001
| @@ -94,7 +94,7 @@
| flock(FH, LOCK_EX)
| or _log(1,"Couldn't get exclusive lock on $file");
| seek FH, 0, 2;
| - if ((${$self->{obj}->body}[0] !~ /^From\s/) && (exists $ENV{UFLINE})) {
| + if (($self->{obj}->head->header->[0] !~ /^From\s/) && (exists $ENV{UFLINE})) {
| _log(3,"Looks qmail, but preline not run, prepending UFLINE, RPLINE, DTLINE");
| print FH $ENV{UFLINE};
| print FH $ENV{RPLINE};
|
| ----- End forwarded message -----