Changeset 90 for trunk/uribl/uridb.cgi

Timestamp:

09/16/25 15:03:29 (4 weeks ago)

Author:

Kris Deugau

Message:

/trunk/uribl

Minor instantiation and oops cleanup
Expand the scope of trimming submitted URIs; form will now extract the

FQDN for many links, email addresses, and allows for a secondary blzone
(altblzone) to enable use of different names during eg a transition
from one base name to another

File:

• trunk/uribl/uridb.cgi (modified) (2 diffs)

trunk/uribl/uridb.cgi

@@ -62 +62 @@
 $cfgname =~ s|_$||;
 
-my $uridb = new URIdb (configfile => "/etc/uridb/$cfgname.conf");
+my $uridb = new URIdb (configfile => "/etc/uridb/$cfgname.conf")
+        or die "urk:  something went wrong creating UIRdb\n";
+$uridb->connect;
 
 my $page;
@@ -96 +98 @@
   foreach my $domain (@dombase) {
     my %row;
+    # strip off URL protocol
+    $domain =~ s{^https?://}{};
+    # clean up/strip off extraneous bits from extract-data's tinydns output
     ($domain) = split /:/, $domain;
     $domain =~ s/^\+//;
-    $domain =~ s/\.uribl.company.com//;
+    $domain =~ s/\.$uridb->{misc}{blzone}//;
+    # and a secondary zone name Just In Case(TM)
+    $domain =~ s/\.$uridb->{misc}{altblzone}//;
+    # trim any non-FQDN URI parts
+    $domain =~ s{/.+$}{};
+    # QoL: allow just pasting an email address
+    $domain =~ s/[^@]+\@//;
+    $domain =~ s/\>.*$//;
     chomp $domain;
     # now, see if it's multilisted