Changeset 89 for trunk/uribl

Timestamp:

09/16/25 15:00:35 (3 days ago)

Author:

Kris Deugau

Message:

/trunk/uribl

Tweak handling of the blzone value; use it as a full base domain rather
than something anchored to .dnsbl

File:

• trunk/uribl/URIdb.pm (modified) (4 diffs)

trunk/uribl/URIdb.pm

@@ -24 +24 @@
 use warnings;
 use Exporter;
+
 use DBI;
 use NetAddr::IP;
@@ -188 +189 @@
 
 ##fixme:  should probably rejig this key to point to a FQDN rather than a "something that will get published under .dnsbl"
-  my $blzone = ($self->{misc}{blzone} ? $self->{misc}{blzone} : 'uri').".dnsbl";
+  my $blzone = ($self->{misc}{blzone} ? $self->{misc}{blzone} : 'uri.dnsbl');
   my $bladmin = ($self->{misc}{bladmin} ? $self->{misc}{bladmin} : 'systems.company.com');
   my $blttl = ($self->{misc}{ttl} ? $self->{misc}{ttl} : '900');
@@ -194 +195 @@
 
   if ($target eq 'rbldnsd') {
-    print $blfh "\$SOA 900 $blzone.dnsbl $bladmin 0 1200 600 600 900\n".
+    print $blfh "\$SOA 900 $blzone $bladmin 0 1200 600 600 900\n".
         "\$NS 3600 127.0.0.1\n".
         "\$TTL $blttl\n";
@@ -216 +217 @@
     }
   } elsif ($target eq 'tinydns') {
-    print $blfh "Z$blzone.dnsbl:$blzone.dnsbl:$bladmin::600:600:600:600\n";
-    print $blfh "\&$blzone.dnsbl:127.0.0.1::900\n";
+    print $blfh "Z$blzone:$blzone:$bladmin::600:600:600:600\n";
+    print $blfh "\&$blzone:127.0.0.1::900\n";
     $sth = $dbh->prepare("SELECT uri FROM urilist WHERE list=2");
     $sth->execute;