Changeset 86 for trunk/uribl/URIdb.pm

Timestamp:

09/11/25 17:57:24 (3 days ago)

Author:

Kris Deugau

Message:

/trunk/uribl

Move the %config blurb inside the module so it's not splattered across all
the scripts

File:

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

trunk/uribl/URIdb.pm

@@ -128 +128 @@
         })
         or die "database inaccessible: ".$DBI::errstr;
-#  my $sth = $dbh->prepare("SELECT masklen,ipcount FROM autolist");
-#  $sth->execute;
-#  while (my ($masklen,$ipcount) = $sth->fetchrow_array) {
-#    $autolist{$masklen} = $ipcount;
-#  }
+  my $sth = $dbh->prepare("SELECT key,value FROM misc");
+  $sth->execute;
+  while (my ($key,$value) = $sth->fetchrow_array) {
+    $self->{misc}{$key} = $value;
+  }
+  $self->{misc}{blzone} = 'uribl.company.com' if !$self->{misc}{blzone};
   return $dbh;
 }
@@ -186 +187 @@
   my $sth;
 
+##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 $bladmin = ($self->{misc}{bladmin} ? $self->{misc}{bladmin} : 'systems.company.com');
+  my $blttl = ($self->{misc}{ttl} ? $self->{misc}{ttl} : '900');
+##fixme:  should probably add some configuration strings for the nameserver value
+
   if ($target eq 'rbldnsd') {
+    print $blfh "\$SOA 900 $blzone.dnsbl $bladmin 0 1200 600 600 900\n".
+        "\$NS 3600 127.0.0.1\n".
+        "\$TTL $blttl\n";
     print $blfh ":127.0.0.2:Domain found in reported missed-spam, no legitimate root or www content\n";
     $sth = $dbh->prepare("SELECT uri FROM urilist WHERE list=2");