Changeset 86 for trunk/uribl/export-uridb

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/export-uridb (modified) (2 diffs)

trunk/uribl/export-uridb

@@ -29 +29 @@
 use URIdb 2.0;
 
-my $uridb = new URIdb;
-
 die "Usage: export-uridb <list> [type]\n"
         if !$ARGV[0];
@@ -42 +40 @@
 $uridb->connect;
 
-my %config;
-my $sth = $dbh->prepare("SELECT key,value FROM misc");
-$sth->execute;
-while (my ($key,$value) = $sth->fetchrow_array) {
-  $config{$key} = $value;
-}
-
-print "\$SOA 900 ".($config{blzone} ? $config{blzone} : 'uri').".dnsbl systems.company.com 0 1200 600 600 900\n".
-        "\$NS 3600 127.0.0.1\n".
-        "\$TTL 900\n";
-
 $uridb->export($mode,*STDOUT);