Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Allow [1.2.3.4] for the hostname when checking if the dns resolves

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@12 958fd67b-6ff1-0310-b445-bb7760255be9
  • Loading branch information...
commit 0a91332bcd014547f9c398877da9f1fa7dc12978 1 parent 07a4c58
@abh abh authored
Showing with 6 additions and 0 deletions.
  1. +3 −0  Changes
  2. +3 −0  qpsmtpd
View
3  Changes
@@ -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
View
3  qpsmtpd
@@ -339,6 +339,9 @@ sub check_dnsbl {
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);
Please sign in to comment.
Something went wrong with that request. Please try again.