Obsolete
/
dnsmanagerv1
Archived
3
0
Fork 0

ajout de dnsslavekey

master
Philippe Pittoli 2014-05-08 00:50:31 +02:00
parent df1bbaefa5
commit 63d787c79c
4 changed files with 8 additions and 5 deletions

View File

@ -18,7 +18,7 @@ has dbh => ( is => 'rw', builder => '_void');
has dnsi => ( is => 'rw', builder => '_void');
has dnsisec => ( is => 'rw', builder => '_void');
has um => ( is => 'rw', builder => '_void');
has [ qw/zdir dbname dbhost dbport dbuser dbpass sgbd dnsapp dnsappsec sshhost sshhostsec sshuser sshusersec sshport sshportsec nsmasterv4 nsmasterv6/ ] => qw/is ro required 1/;
has [ qw/zdir dbname dbhost dbport dbuser dbpass sgbd dnsapp dnsappsec sshhost sshhostsec sshuser sshusersec sshport sshportsec nsmasterv4 nsmasterv6 dnsslavekey/ ] => qw/is ro required 1/;
sub _void { my $x = ''; \$x; }
### users

View File

@ -38,12 +38,12 @@ sub addzone_sec {
# allow notify & request xfr, v4 & v6
$nouveau .=
"\tallow-notify: " . $self->data->nsmasterv4. "\n"
. "\trequest-xfr: " . $self->data->nsmasterv4 . "\n";
"\tallow-notify: " . $self->data->nsmasterv4 . ' ' . $self->data->dnsslavekey . "\n"
. "\trequest-xfr: " . $self->data->nsmasterv4 . ' ' . $self->data->dnsslavekey . "\n";
$nouveau .=
"\tallow-notify: " . $self->data->nsmasterv6. "\n"
. "\trequest-xfr: " . $self->data->nsmasterv6 . "\n\n";
"\tallow-notify: " . $self->data->nsmasterv6. ' ' . $self->data->dnsslavekey . "\n"
. "\trequest-xfr: " . $self->data->nsmasterv6. ' ' . $self->data->dnsslavekey . "\n\n";
}
$data =~ s/$debut.*/$debut\n$nouveau/gsm;

View File

@ -21,6 +21,8 @@ dnsapp = rndc
dnsappsec = knot
zones_path = "/var/named/rndczones/"
dnssalvekey = key-alsace.tetaneutral.net
# to access zones on the server
sshhost = host
sshuser = dnsmanager

View File

@ -47,6 +47,7 @@ sub initco {
, sshusersec => $cfg->param('sshusersec')
, sshport => $cfg->param('sshport')
, sshportsec => $cfg->param('sshportsec')
, dnsslavekey => $cfg->param('dnsslavekey')
, dnsapp => $cfg->param('dnsapp')
, dnsappsec => $cfg->param('dnsappsec') );