#!/usr/bin/perl # Export URI blacklist data ## # $Id: export-uridb 41 2012-03-04 20:52:10Z kdeugau $ # Copyright 2010 Kris Deugau # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation, either version 3 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . ## 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);