29 lines
530 B
Perl
29 lines
530 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use v5.14;
|
||
|
|
use autodie;
|
||
|
|
use Modern::Perl;
|
||
|
|
use DNS::ZoneParse;
|
||
|
|
|
||
|
|
use lib '../';
|
||
|
|
use app::zone::rndc_interface;
|
||
|
|
use app::zone::edit;
|
||
|
|
|
||
|
|
my $nom = $ARGV[0];
|
||
|
|
my $zdir = "/srv/named/";
|
||
|
|
|
||
|
|
my $ed = app::zone::edit->new(zdir => $zdir, zname => $nom);
|
||
|
|
|
||
|
|
my $zonefile = $ed->addzone();
|
||
|
|
|
||
|
|
my $a_records = $zonefile->a();
|
||
|
|
|
||
|
|
push (@$a_records, { name => 'www'
|
||
|
|
, class => 'IN'
|
||
|
|
, host => '192.168.0.190'
|
||
|
|
, ttl => ''
|
||
|
|
, ORIGIN => $zonefile->origin });
|
||
|
|
|
||
|
|
$ed->update($zonefile);
|