#!/usr/bin/perl -w

use strict;
use Socket;
use DBI;
use Tie::File;

my $zone_filename = 'test.zone';
my ($query, $sth, $rv);


my $db = DBI->connect("dbi:Pg:dbname=named", "named", "", {PrintError => 0});

if (defined($DBI::err)) 
{
    print $DBI::errstr . "\n";
    exit($DBI::err);
}

open (ZONE, $zone_filename) || die "Can't open $zone_filename: $!";

my $counter = 0;
while(<ZONE>)
{
    if(!/^([a-zA-Z0-9-\.\*]+)\s+in\s+(\w+)\s+(.+?)[\$\s;]/i) { next; };
    $query = "INSERT INTO \"test-zone.info\" (host, type, data) VALUES ('".lc($1)."', '".uc($2)."', '$3')";
#=c
    $sth = $db->prepare($query);
    $rv = $sth->execute();
    if (!defined $rv) 
    {
        print "ERROR executing query '$query' : " . $db->errstr . "\n";
        <STDIN>;
        next;
    }
    $sth->finish();
#=cut
    print ++$counter.") QUERY OK: $query\n";
}


#Disconnect from DB
$db->disconnect();