procmail
[Top] [All Lists]

Re: original date (again)

2001-09-08 11:40:33
Hallo

Sorry this matched it not too

-------------------------------------------

From duranicub(_at_)gmx(_dot_)net  Sat Sep  8 20:34:49 2001
Return-Path: <duranicub(_at_)gmx(_dot_)net>
Delivered-To: frank(_at_)localhost(_dot_)localhost(_dot_)frankux
Received: from localhost (Frankux [127.0.0.1])
 by localhost.Frankux (Postfix) with ESMTP id C0C9A20EAB
 for <frank(_at_)localhost>; Sat,  8 Sep 2001 20:34:48 +0200 (CEST)
X-Flags: 0000
Delivered-To: GMX delivery to duranicub(_at_)gmx(_dot_)net
Received: from 194.221.183.20
 by localhost with POP3 (fetchmail-5.9.0)
 for frank(_at_)localhost (single-drop); Sat, 08 Sep 2001 20:34:48 +0200 (CEST)
Received: (qmail 13646 invoked by uid 0); 8 Sep 2001 18:29:30 -0000
Received: from pd9e1c4d4.dip.t-dialin.net (HELO localhost.Frankux)
(217.225.196.212)
  by mail.gmx.net (mail02) with SMTP; 8 Sep 2001 18:29:30 -0000
Received: from frankxp (Frank-XP [192.168.0.1])
 by localhost.Frankux (Postfix) with SMTP id 8794C20EAB
 for <duranicub(_at_)gmx(_dot_)net>; Sat,  8 Sep 2001 20:29:25 +0200 (CEST)
Message-ID: <001701c13894$32207df0$0100a8c0(_at_)frankxp>
From: "Frank" <duranicub(_at_)gmx(_dot_)net>
To: "Frank" <duranicub(_at_)gmx(_dot_)net>
Subject: test2
Date: Sat, 8 Sep 2001 20:29:27 +0200
MIME-Version: 1.0
Content-Type: text/plain;
 charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 6.00.2600.0000
Disposition-Notification-To: "Frank" <duranicub(_at_)gmx(_dot_)net>
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
X-Modified-Forwards: 1A.inbox

------------------------------------------
procmail: [1850] Sat Sep  8 20:34:49 2001
procmail: Assigning "LOGABSTRACT=all"
procmail: Assigning "LINEBUF=4096"
procmail: Assigning "COMSAT=NO"
procmail: Assigning "MATCH="
procmail: Matched " 8 Sep 2001 18:29:30 -0000
"
procmail: Match on "^Received:.*by mail.gmx.net.*;\/[^;]+$"
procmail: Assigning "DATE= 8 Sep 2001 18:29:30 -0000
"
procmail: Assigning "MATCH="
procmail: Matched "8"
procmail: Match on "()\/[0-9]+"
procmail: Assigning "DAY=8"
procmail: Assigning "MATCH="
procmail: Matched "Sep"
procmail: Match on "()\/(A(pr|ug)|Dec|Feb|J(an|u[ln])|Ma[ry]|Nov|Oct|Sep)"
procmail: Assigning "MONTH=Sep"
procmail: Assigning "MON2N=Jan = 01 Feb = 02 Mar = 03 Apr = 04
May = 05 Jun = 06 Jul = 07 Aug = 08
Sep = 09 Oct = 10 Nov = 11 Dec = 12"
procmail: Assigning "MATCH="
procmail: Matched "09"
procmail: Match on "Sep = \/[0-9]+"
procmail: Assigning "MNUM=09"
procmail: Assigning "MATCH="
procmail: Matched "2001"
procmail: Match on "Sep.*\/[0-9]+"
procmail: Assigning "YEAR=2001"
procmail: Assigning "MATCH="
procmail: Matched "18:29:30"
procmail: Match on "()\/[0-2][0-9]:[0-5][0-9]:[0-6][0-9]"
procmail: Assigning "TIME=18:29:30"
procmail: Assigning "MATCH="
procmail: Matched "18"
procmail: Match on "^^\/[0-9]+"
procmail: Assigning "HOUR=18"
procmail: Assigning "MATCH="
procmail: Matched "29"
procmail: Match on ":\/[0-9]+"
procmail: Assigning "MIN=29"
procmail: Assigning "MATCH="
procmail: Matched "30"
procmail: Match on ":[0-9]+:\/[0-9]+"
procmail: Assigning "SEC=30"
procmail: Assigning "TOUCHTIME=20010981829.30"
procmail: Assigning "TRAP=touch -t $TOUCHTIME $LASTFOLDER"
procmail: No match on
"(^((Original-)?(Resent-)?(To|Cc|Bcc)|(X-Envelope|Apparently(-Resent)?)-To):
(.*[^-a-zA-Z0-9_.])?)support(_at_)compulines(_dot_)de"
procmail: No match on
"(^((Original-)?(Resent-)?(To|Cc|Bcc)|(X-Envelope|Apparently(-Resent)?)-To):
(.*[^-a-zA-Z0-9_.])?)postfix-users@"
procmail: No match on
"(^((Original-)?(Resent-)?(To|Cc|Bcc)|(X-Envelope|Apparently(-Resent)?)-To):
(.*[^-a-zA-Z0-9_.])?)courier-users@"
procmail: No match on
"(^((Original-)?(Resent-)?(To|Cc|Bcc)|(X-Envelope|Apparently(-Resent)?)-To):
(.*[^-a-zA-Z0-9_.])?)netfilter@"
procmail: No match on
"(^((Original-)?(Resent-)?(To|Cc|Bcc)|(X-Envelope|Apparently(-Resent)?)-To):
(.*[^-a-zA-Z0-9_.])?)ext3-users@"
procmail: No match on
"(^((Original-)?(Resent-)?(To|Cc|Bcc)|(X-Envelope|Apparently(-Resent)?)-To):
(.*[^-a-zA-Z0-9_.])?)procmail@"
procmail: No match on
"(^((Original-)?(Resent-)?(To|Cc|Bcc)|(X-Envelope|Apparently(-Resent)?)-To):
(.*[^-a-zA-Z0-9_.])?)procmail-users@"
procmail: Assigning "LASTFOLDER=/home/frank/Maildir/new/msg.yEN"
procmail: Opening "/home/frank/Maildir/new/msg.yEN"
procmail: Acquiring kernel-lock
From duranicub(_at_)gmx(_dot_)net  Sat Sep  8 20:34:49 2001
 Subject: test2
  Folder: /home/frank/Maildir/new/msg.yEN
1411
procmail: Assigning "EXITCODE=0"
procmail: Executing
"touch,-t,20010981829.30,/home/frank/Maildir/new/msg.yEN"
touch: invalid date format `20010981829.30'
procmail: Unlocking "/home/frank/.lockmail"



--
Frank


Martin McCarthy <marty(_at_)ancient-scotland(_dot_)co(_dot_)uk> writes:
wrote an email to myself at 18.42, terminated Fetchmail, waited 10
Minuts,
activated Fetchmail again.

-----------------------------------------------------------------------
[..]
Received: from pd9522976.dip.t-dialin.net (HELO localhost.Frankux)
(217.82.41.118)
  by mail.gmx.net (mail06) with SMTP; 8 Sep 2001 16:42:20 -0000

Well if I understand correctly (and I confess that I may not have done
so) this is the line that you want to retain.

Perhaps you can get what you want with a simple recipe like:

 :0 fhw
 * ^\/Received:.*by mail.gmx.net.*
 | formail -i "$MATCH"

It turned out that Courier-IMAP uses the mtime of the message file as
the received date.  So, rather than make that Received: header field
the only one in the message, we need to extract the date from the header
field above, fix up its format, then pass it to the 'touch' command.


:0
* ^Received:.*by mail.gmx.net.*;\/[^;]+$
{
DATE = $MATCH

:0
* DATE ?? ()\/[0-9]+
{ DAY = $MATCH }

:0
* DATE ?? ()\/(A(pr|ug)|Dec|Feb|J(an|u[ln])|Ma[ry]|Nov|Oct|Sep)
{ MONTH = $MATCH }

MON2N ="Jan = 01 Feb = 02 Mar = 03 Apr = 04
May = 05 Jun = 06 Jul = 07 Aug = 08
Sep = 09 Oct = 10 Nov = 11 Dec = 12"
:0
* MON2N ?? $ $MONTH = \/[0-9]+
{ MNUM = $MATCH }

:0
* DATE ?? $ $MONTH.*\/[0-9]+
{ YEAR = $MATCH }

:0
* DATE ?? ()\/[0-2][0-9]:[0-5][0-9]:[0-6][0-9]
{ TIME = $MATCH }

:0
* TIME ?? ^^\/[0-9]+
{ HOUR = $MATCH }

:0
* TIME ?? :\/[0-9]+
{ MIN = $MATCH }

:0
* TIME ?? :[0-9]+:\/[0-9]+
{ SEC = $MATCH }

TOUCHTIME = "$YEAR$MNUM$DAY$HOUR$MIN.$SEC"

# Invoke touch on $LASTFOLDER on exit
TRAP = 'touch -t $TOUCHTIME $LASTFOLDER'
}



Philip Guenther
_______________________________________________
procmail mailing list
procmail(_at_)lists(_dot_)RWTH-Aachen(_dot_)DE
http://MailMan.RWTH-Aachen.DE/mailman/listinfo/procmail




_______________________________________________
procmail mailing list
procmail(_at_)lists(_dot_)RWTH-Aachen(_dot_)DE
http://MailMan.RWTH-Aachen.DE/mailman/listinfo/procmail