#!/usr/bin/perl # Export URI blacklist data use strict; use warnings; use DBI; use URIdb; my $uridb = new URIdb; # default DB info - all other settings should be loaded from the DB. my $dbhost = "localhost"; my $dbname = "uridb"; my $dbuser = "uridb"; my $dbpass = "spambgone"; warn "Need DNS data type argument\n" if !$ARGV[0]; my $mode = shift @ARGV || 'rbldnsd'; # Load a config ref containing DB host, name, user, and pass info based on # from the server name + full script web path. This allows us to host # multiple instances without having to duplicate the code. # This file is a Perl fragment to be processed inline. if (-e "/etc/uridb/uridb.conf") { my $cfg = `cat /etc/uridb/uridb.conf`; ($cfg) = ($cfg =~ /^(.+)$/s); # avoid warnings, failures, and general nastiness with taint mode eval $cfg; } my $dbh = $uridb->connect($dbhost, $dbname, $dbuser, $dbpass); 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);