Re: RCVD_ILLEGAL_IP Question

[RW]

On Wed, 20 Jan 2010 10:19:14 +1000 (EST)
Res <r...@ausics.net> wrote:

> Greetings,
> 
> Can anyone tell me how the bogon list in this rule is updated?
> Does it query a live bogon DNS server? The wiki does not explain or
> say much at all about it.
> 
> Thanks
> 

It appears to be just a regular expression:

sub check_for_illegal_ip {
  my ($self, $pms) = @_;

  foreach my $rcvd ( @{$pms->{relays_untrusted}} ) {
    # (note this might miss some hits if the Received.pm skips any
  invalid IPs) foreach my $check ( $rcvd->{ip}, $rcvd->{by} ) {
      return 1 if ($check =~ /^
        
(?:[01257]|(?!127.0.0.)127|22[3-9]|2[3-9]\d|[12]\d{3,}|[3-9]\d\d+)\.\d+\.\d+\.\d+
        $/x);
    }
  }
  return 0;
}