#!/usr/bin/perl
use DBI;
use DBD::mysql;
my $username="mydns";
my $password="changepassword";
my $dsn = 'dbi:mysql:mydns:localhost:3306';
my $dbh = DBI->connect($dsn, $username, $password) or die "Can<92>t connect to the DB: $DBI::errstr\n";
                my $query="truncate table dns.dns_records";
                my $sth = $dbh->prepare($query);
                $sth->execute();
open (named,"named.conf") ||
  die "cannot open named.conf for reading ";
@stuff = <named>;
close(named) ||
die "can't close named.conf";
$zone = "";

foreach $line (@stuff)
{
        $dbfile = "";
        if ($line =~ m/^zone/i)
        {
                $line =~ /^zone(.+)"(.+)"(.+){(.+)acct=(\d+)/;
                if ($2 ne "")
                {
                        $zone = $2;
                        $accts = $5;
			chomp($zone);
			chomp($accts);
			$zone2 = $zone . ".";
                }
        }
$importerr=`/usr/bin/mydnsimport -r --axfr=66.37.143.67 $zone`;
my $query="update soa set acct='$accts' where origin='$zone2'";
my $sth = $dbh->prepare($query);
$sth->execute();
}