I've been working on a script to update the name servers for all of our
domains. Fixing a few problems along the way I thought I had things
working until I tried to run it again today. The subroutine is:
sub fixns {
my $sql = "select * from domain where opensrs=1 and dead=0";
my $sth = $dbh->prepare($sql) or die "bad << $sql >>";
$sth->execute or die;
my %attr = %defattr;
$attr{type} = 'nameservers';
my $row;
while ($row = $sth->fetchrow_hashref) {
my $domain = $row->{name};
my $nssetid = $row->{nssetid};
print "processing $domain...";
my @ns_shouldbe;
$sql = "select * from nameserversetitem
where nssetid=$nssetid
order by lookorder
";
$sth2 = $dbh->prepare($sql) or die "bad << $sql >>";
$sth2->execute or die;
if ($sth2->rows == 0) {
print "no nssetitems\n";
next;
}
while (my $nsrow = $sth2->fetchrow_hashref) {
push(@ns_shouldbe,$nsrow->{name});
}
my $rv = $XCP->send({
action => 'set',
object => 'cookie',
attributes => {
domain => $domain,
reg_username => $defattr{reg_username},
reg_password => $defattr{reg_password}
},
});
if ($rv->{is_success}) {
print "login...";
} else {
die $rv->{response_text};
}
$cookie = $rv->{attributes}{cookie};
%attr = %defattr;
$attr{type} = 'nameservers';
$rv = $XCP->send({
action => 'get',
object => 'domain',
cookie => $cookie,
attributes => \%attr,
});
if ($rv->{is_success}) {
print "got curr domains,";
} else {
die $rv->{response_text};
}
my @ns_is;
foreach my $listent (@{$rv->{attributes}->{nameserver_list}}) {
push(@ns_is,$listent->{name});
}
#print Dumper(\@ns_is,\@ns_shouldbe),"\n";die;
my $x = 0;
foreach my $is (@ns_is) {
my $sb = $ns_shouldbe[$x];
if ($is eq $sb) {
$x++;
next;
} else {
print "ns[$x] mismatch,";
#print "\n\t($is<>$sb),";
last;
}
}
if ($x == scalar(@ns_shouldbe)) {
print " good. :-)\n";
next;
#} else {
# print "\n\tx=$x, snsb=",scalar(@ns_shouldbe),"\n";
}
if (0) {
print "need to fix!!!!\n";
next;
}
print "fixing...";
my $nslist;
my $y=1;
foreach my $sb (@ns_shouldbe) {
my $action = 'update';
if ($y > scalar @ns_is) {
$action = 'add';
}
#$sb = uc $sb;
my $racedom = $UTIL->do_race($sb);
push(@$nslist, {
name => $racedom->{ConvertedDomain},
sortorder => $y,
action => $action,
});
$y++;
}
while ($y <= scalar @ns_is) {
push(@$nslist, {
sortorder => $y,
action => 'remove',
});
$y++;
}
#print Dumper($nslist),"\n";die;
%attr = ();
$attr{data} = 'nameserver_list';
$attr{nameserver_list} = $nslist;
$rv = $XCP->send({
action => 'modify',
object => 'domain',
cookie => $cookie,
attributes => \%attr,
});
if ($rv->{is_success}) {
print "done."
} else {
die "\nOpenSRS: $rv->{response_text}\n"
. Dumper($rv)
. Dumper(\%attr)
. ' ';
}
print "\n";
}
$sth->finish if defined($sth);
}
And here's what it's giving me today:
processing chicks.net...login...got curr domains,ns[0] mismatch,fixing...
OpenSRS: Fatal Server Error Occured
$VAR1 = {
'is_success' => '0',
'_OPS_msg_type' => undef,
'protocol' => 'XCP',
'object' => 'DOMAIN',
'_OPS_msg_id' => undef,
'attributes' => {
'external_client' => '1',
'command_rate' => '0'
},
'response_text' => 'Fatal Server Error Occured',
'response_code' => '400',
'action' => 'REPLY'
};
$VAR1 = {
'data' => 'nameserver_list',
'nameserver_list' => [
{
'sortorder' => 1,
'action' => 'update',
'name' => 'va0.fini.net'
},
{
'sortorder' => '2',
'action' => 'update',
'name' => 'va1.fini.net'
},
{
'sortorder' => '3',
'action' => 'update',
'name' => 'va2.fini.net'
},
{
'sortorder' => '4',
'action' => 'update',
'name' => 'va3.fini.net'
},
{
'sortorder' => '5',
'action' => 'update',
'name' => 'ca0.fini.net'
},
{
'sortorder' => '6',
'action' => 'add',
'name' => 'ca1.fini.net'
}
]
};
at ./testsf line 193, <GEN6> line 12.
I've run the exact same code within the last three weeks several times and
it worked. Today's error message is NOT helpful.
There was a problem at one point where it wouldn't take nameservers that
weren't in use somewhere (even if they were defined on the
manage.opensrs.net for the domain), but that gave a different error.
There are 140 domains to update and I've done it once through manage and
I'd rather pull teeth than do it that way again. I know I could define a
given set of name servers and just change the IP's, but we're expecting
some situations where that would be suboptimal.
Any suggestions would be greatly appreciated.
--
</chris>
"Outside of a dog, a man's best friend is a good book.
Inside of a dog, it's too dark to read." - Groucho Marx
