Changeset 98 for trunk/uribl/URIdb.pm

Timestamp:

09/18/25 18:14:31 (3 days ago)

Author:

Kris Deugau

Message:

/trunk/uribl

Bump version slightly and add octet value 16, for "High-risk domains" to
export. Note this is not exposed in the UI.

File:

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

trunk/uribl/URIdb.pm

@@ -51 +51 @@
         4 => "Grey",
         8 => "Abused URL shortener/redirector"
+        16 => "High-risk domain",
 );
 
@@ -216 +217 @@
       print $blfh ".$uri\n";
     }
+    print $blfh ":127.0.0.16:High-risk domain\n";
+    $sth = $dbh->prepare("SELECT uri FROM urilist WHERE list=16");
+    $sth->execute;
+    while (my ($uri) = $sth->fetchrow_array) {
+      print $blfh ".$uri\n";
+    }
   } elsif ($target eq 'tinydns') {
     print $blfh "Z$blzone:$blzone:$bladmin::600:600:600:600\n";
@@ -237 +244 @@
         "+$uri.$blzone:127.0.0.8:900::\n";
     }
+    $sth = $dbh->prepare("SELECT uri FROM urilist WHERE list=16");
+    $sth->execute;
+    while (my ($uri) = $sth->fetchrow_array) {
+      print $blfh "'$uri.$blzone:High-risk domain:900::\n".
+        "+$uri.$blzone:127.0.0.16:900::\n";
+    }
   } elsif ($target eq 'bind') {
   } else {