FYI.
(Devin, I haven't forgotten about your questions about filtering - just been busy :) ) - ask -- ask bjoern hansen, http://ask.netcetera.dk/ !try; do(); ---------- Forwarded message ---------- Date: 27 Jan 2002 01:23:42 -0000 From: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Subject: cvs commit: qpsmtpd Changes qpsmtpd ask 02/01/26 17:23:42 Modified: . Changes qpsmtpd Log: Allow [1.2.3.4] for the hostname when checking if the dns resolves Revision Changes Path 1.5 +3 -0 qpsmtpd/Changes Index: Changes =================================================================== RCS file: /home/perlcvs/qpsmtpd/Changes,v retrieving revision 1.4 retrieving revision 1.5 diff -u -w -r1.4 -r1.5 --- Changes 22 Jan 2002 03:53:48 -0000 1.4 +++ Changes 27 Jan 2002 01:23:42 -0000 1.5 @@ -1,3 +1,6 @@ +2002/01/26 + Allow [1.2.3.4] for the hostname when checking if the dns resolves + 2002/01/21 assorted fixes; getting dnsbl's to actually work 1.9 +3 -0 qpsmtpd/qpsmtpd Index: qpsmtpd =================================================================== RCS file: /home/perlcvs/qpsmtpd/qpsmtpd,v retrieving revision 1.8 retrieving revision 1.9 diff -u -w -r1.8 -r1.9 --- qpsmtpd 22 Jan 2002 03:53:48 -0000 1.8 +++ qpsmtpd 27 Jan 2002 01:23:42 -0000 1.9 @@ -339,6 +339,9 @@ sub check_dns { my $host = shift; + + return 1 if $host =~ m/^\[(\d{1,3}\.){3}\d{1,3}\]$/; + my $res = new Net::DNS::Resolver; return 1 if mx($res, $host); my $query = $res->search($host);
