Re: [cobalt-users] RaQ4 to RaQ550 migration

[Jeff Bilicki <jeff@xxxxxxxxxxx>]

> On Thu, 2 Jan 2003, John D. Gorena wrote:
>> It notified you that there are identical records.  It should not add them.  You will need to edit
>> each of the DNS settings for each domain name through the GUI.  You will most likely have to delete
>> each record and then add them in.  The DNS import is good if you will be using the same IP address.
>> Also, you will have to add the A-record without the www before you can add the one with the www.
>>
> Thanks, I figured that out, I was looking for an easier way.

Delete them all and re-import.

I attached  a script that should destroy all DNS record types in CCE:
(quick and dirty).
ftp://ftp-eng.cobalt.com/pub/users/jeffb/scripts/deldns.pl

Also check out getdns.pl, just dumps CCE info about dns.
ftp://ftp-eng.cobalt.com/pub/users/jeffb/scripts/getdns.pl

I wrote these to make the dnsImport script easier to test. 

Jeff-

#!/usr/bin/perl
# $Id: deldns.pl,v 1.2 2002/10/23 19:54:06 jeffb Exp $

use lib "/usr/sausalito/perl";
use CCE;
use Data::Dumper;

$cce = new CCE;
$cce->connectuds();

destoryDnsRecords();
destoryDnsSlave();
destoryDnsSOA();

$cce->bye("bye");

exit 0;

sub destoryDnsSOA
{
    print "Destorying DNS SOA records\n";
    my @oids = $cce->find("DnsSOA");

    print "SOA oids are: ", @oids, "\n";
    my ($ok, $obj);
    foreach my $oid (@oids) {
        ($ok, $obj) = $cce->destroy($oid);
    }
}

sub destoryDnsSlave
{
    print "Destorying DNS Slave records\n";
    my @oids = $cce->find("DnsSlaveZone");

    print "Slave oids are: ", @oids, "\n";
    my ($ok, $obj);
    foreach my $oid (@oids) {
        ($ok, $obj) = $cce->destroy($oid);
    }
}


sub destoryDnsRecords
{
    print "Destorying DNS Records (a,mx,cname)\n";
    my @oids = $cce->find("DnsRecord");

    print "Records oids are: ", @oids, "\n";
    my ($ok, $obj);
    foreach my $oid (@oids) {
        ($ok, $obj) = $cce->destroy($oid);
    }
}