package Iodef::Pb::Format::Bindzone;
use base 'Iodef::Pb::Format';
use strict;
use warnings;
use constant DEFAULT_OUTPUT => '/etc/namedb/';
sub write_out {
my $self = shift;
my $args = shift;
my $array = $self->SUPER::to_keypair($args);
return '' unless(exists(@{$array}[0]->{'address'}));
my $config = $args->{'config'};
my @config_search_path = ('claoverride', $args->{'query'}, 'client' );
my $cfg_bindzone_path = $args->{'bindzone_path'} || $self->confor($config, \@config_search_path, 'bindzone_path', DEFAULT_OUTPUT());
my $text = '// generated by: '.$0." at ".time()."\n";
foreach (@$array){
$text .= 'zone "'.$_->{'address'}.'" {type master; file "'.$cfg_bindzone_path.'";};'."\n";
}
return $text;
}
1;