Commit f9a1a6e6 authored by Nigel Kukard's avatar Nigel Kukard
Browse files

* Fixed bug when handling .something.example.com style reverse dns names

parent 2792a0c3
......@@ -403,7 +403,7 @@ sub policySourceItemMatches
$server->log(LOG_DEBUG,"[POLICIES] $debugTxt: - Resolved source '$item' to a email address specification, match = $res") if ($log);
# Match domain name (for reverse dns)
} elsif ($item =~ /^(?:[a-z0-9\-_\*]+\.)+[a-z0-9]+$/i) {
} elsif ($item =~ /^\.?(?:[a-z0-9\-_\*]+\.)+[a-z0-9]+$/i) {
$res = reverseDNSMatches($sessionData->{'ClientReverseName'},$item);
$server->log(LOG_DEBUG,"[POLICIES] $debugTxt: - Resolved source '$item' to a reverse dns specification, match = $res") if ($log);
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment