source: trunk/dnsbl/orgmove@ 7

#!/usr/bin/perl
# move blocks listed with one org to another.  intended for orgs that have several bytestrings as names in WHOIS.

use strict;
use warnings;
use DBI;

use DNSBL;

my $dnsbl = new DNSBL;

my $dbh = $dnsbl->connect;

$dbh->{AutoCommit} = 0;

my $sth1 = $dbh->prepare("update blocks set orgid=? where orgid=?");
my $sth2 = $dbh->prepare("delete from orgs where orgid=?");

print "updating orgid $ARGV[0] to $ARGV[1]...\n";
$sth1->execute($ARGV[1],$ARGV[0]) or die "died horribly: $!\n";
print "failed org change ($ARGV[0] -> $ARGV[1]): ".$sth1->errstr."\n" if $sth1->err;
$sth2->execute($ARGV[0]);
print "failed org delete ($ARGV[0]): ".$sth2->errstr."\n" if $sth2->err;

$dbh->commit;