procmail
[Top] [All Lists]

Howto extract multiple emailadresse from the to: header field valid for the local domain

2005-06-06 18:24:20
Hi you

i am searching for a pure procmail rc witch can extract the emailadresses from 
the to: field.

i read already this:

#  This routine takes a header containing both email addresses and
#  friendly names, and returns just the email addresses, in a comma
#  separated form.
#
#  It checks both the To and Cc headers.

LINEBUF = 24000

:0

* HDRFLD ?? ^^()^^

{

SPACE       = ' '

TAB         = '  '

_ifs        = ${_ifs:-,$SPACE}

HOSTCL      = [a-zA-Z0-9-]

AHOST       = ($HOSTCL+[.])*$HOSTCL+

ADDYCL      = "[^]> ]"

HDRFLDNAME = ${HDRFLDNAME:-To}

:0
* $ ^$HDRFLDNAME:.*\/[^$SPACE$TAB].*

{ HDRFLD = $MATCH }

HDRFLDNAME

HDRFLDNAME = ${HDRFLDNAME:-Cc}

:0


* $ ^$HDRFLDNAME:.*\/[^$SPACE$TAB].*

{ HDRFLD = ${MATCH:+$MATCH${_ifs}}$HDRFLD }

:0

{ _HOLD = $HDRFLD }

}

:0

* $ _HOLD ?? ()\/$ADDYCL+  $AHOST[.][a-zA-Z]+

{

ADDRESS = $MATCH

STRIPPED_ADDRESSES =
${STRIPPED_ADDRESSES:+$STRIPPED_ADDRESSES${_ifs}}$ADDRESS

:0

* $ _HOLD ?? $\ADDRESS\/.+

{

_HOLD = $MATCH

SWITCHRC = $_

}

} _HOLD HDRFLDNAME _ifs ADDRESS               # unset unneeded local
vars

##LOG = "Stripped addresses: >$STRIPPED_ADDRESSES

but what i want is to extract only the email adresses for the local domain.
any answer is highly apreciatet

Matthias

mit freundlichem Gruß

M. Häker
IT-Service Häker
Tel. +49 40 52596585
Fax. +49 40 52596583
Mob. +49 01793493731
mhaeker(_at_)its-h(_dot_)de


____________________________________________________________
procmail mailing list   Procmail homepage: http://www.procmail.org/
procmail(_at_)lists(_dot_)RWTH-Aachen(_dot_)DE
http://MailMan.RWTH-Aachen.DE/mailman/listinfo/procmail
<Prev in Thread] Current Thread [Next in Thread>