warn "rcode: $rcode ",dump( @ans );
$audit->{rcode} = $rcode;
- $audit->{ans} = [ @ans ];
+ $audit->{ans} = [ map {
+ my $data;
+ foreach my $n ( keys %$_ ) {
+ $data->{$n} = $_->{$n};
+ }
+ $data;
+ } @ans ];
CouchDB::audit( 'response', $audit );
Verbose => $debug,
) || die "couldn't create nameserver object\n";
- CouchDB::audit('start', { listen => { port => 53, domain_name => $server::domain_name } });
+ CouchDB::audit('start', { port => 53, domain_name => $server::domain_name });
warn "DNS $server::domain_name";
$ns->main_loop;