[Greylist-users] greylisting and VERP

[Erik Clark]

wow, very nice :)
thanks for the assist!
erik

On Wed, 8 Oct 2003, Sang-yong Suh wrote:

> On Mon, Oct 06, 2003 at 06:56:58AM -0400, Erik Clark wrote:
> > i personally am very interested in some suggestions in handling
> > new-envelope mailing lists
>
> I am using following subroutine.
> --
> sysuh
>
> $mail_from = munge_numeric_id($mail_from, $rcpt_to);
>  ...
>
> sub munge_numeric_id {
>     my $mail_from = shift;
>     my $rcpt_to   = shift;
>
>     # split $mail_from into id and domain
>     my ($id, $dom) = split(/\@/, $mail_from);
>
>     # domain part of $rcpt_to is already deleted.
>     # i.e., <sysuh at kigam.re.kr> is tranformed to "sysuh".
>     # $mail_from from a mailing list is something like .*-dddddd-sysuh.*@...
>
>     return $mail_from unless ($id =~ /$rcpt_to/);
>
>     # the sequence number must be preceded by a hyphen and optionally
>     # alphas.
>     if ($id =~ /-\w*\d/) {
>         $id =~ s/\d/0/g;
>         $mail_from = join('@', $id, $dom);
>     }
>     return $mail_from;
> }
>
>