[Greylist-users] greylisting and VERP

[Erik Clark]

Hmm. Im not sure why you have the following:

return $mail_from unless ($id =~ /$rcpt_to/);

since $id should never match $rcpt_to, unless you either are sending mail

from: bob at bob.com
to:   bob at fred.com (greylisted)
at which point bob at bob.com would fulfill this unless statement. thus, it
never makes it to the munge....i changed this to an if from an unless,
incase a mailinglist is for unknown reasons looping back on itself...
someone kick me if i missed something here.

erik

> > $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;
> > }
> >
> >
>
>