[Mimedefang] Re: Forged Sender Checking

[Mark Sheppard]

On 2004-01-03 (Saturday) at 11:01:37 -0800, Jeremy Mates wrote:
>
> Updated my example code to log no MX being found, and to use A record in
> such a case:
>
> http://sial.org/howto/mimedefang/check-sender/

Just spotted a slight mistake in that.  The following code:

  if ($mx) {
    for my $rr ($mx->answer) {
      push @mxs if $rr->type eq 'MX';
    }
  }

should be:

  if ($mx) {
    for my $rr ($mx->answer) {
      push(@mxs, $rr->exchange) if $rr->type eq 'MX';
    }
  }

Cheers,
Mark.

PS.  It's a very useful feature!