On Wed, 20 Jan 2010, RW wrote:
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+
Thats crazy! It's wrong since 1/8 is now allocated, it also does not
detect most other bogon ranges, What is the point of this...
Another rule I now need to disable.
--
Res
"What does Windows have that Linux doesn't?" - One hell of a lot of bugs!
