| Subject: | Support lookups in DNSBLs requiring special keys |
Lists such as Http:BL require an API key in order to query via DNS. The
patch below adds such a capability and documents it.
$ diff -u RBLClient.pm RBLClient.pm.orig
--- RBLClient.pm 2011-07-04 14:20:56.123096186 -0400
+++ RBLClient.pm.orig 2011-07-04 13:57:38.550437005 -0400
@@ -130,8 +130,7 @@
sub mk_packet {
# pass me a REVERSED dotted quad ip (qip) and a blocklist domain
my($qip, $list) = @_;
- my $fqdn = ($list =~ m!%s!) ? sprintf($list, $qip) : "$qip.$list";
- my($packet, $error) = new Net::DNS::Packet $fqdn, 'A';
+ my($packet, $error) = new Net::DNS::Packet my $fqdn = "$qip.$list",
'A';
die "Cannot build DNS query for $fqdn, type A: $error" unless
$packet;
return $packet->data unless wantarray;
(my $txt_packet, $error) = new Net::DNS::Packet $fqdn, 'TXT', 'IN';
@@ -294,13 +293,6 @@
you want to query a specific list of RBL's - if this argument is
omitted,
a large list of RBL's is queried.
-Each domain can have the special token C<%s> embedded. If this is
-found, the inverted dotted quad for the corresponding IP lookup will
-be replaced at this mark, in the same style as
-C<sprintf()>. Otherwise, a standard inverted dotted quad lookup
-anchored on the RHS will be performed. This is useful to handle cases
-such as using the Http:BL API.
-
=item query_txt
Set this to true if you want Net::RBLClient to also query for TXT
records,
@@ -396,7 +388,6 @@
=head1 CREDITS
Martin H. Sluka E<lt>F<martin@sluka.de>E<gt>
-Luis E. Muñoz E<lt>F<lem@itverx.com.ve>E<gt>
=head1 COPYRIGHT