Obsolete
/
dnsmanagerv1
Archived
3
0
Fork 0
Code

petites erreurs

master
Philippe Pittoli 2014-05-08 11:45:18 +02:00
parent 181149df7a
commit fa1916d3e6
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
app/app.pm
View File

@ -28,7 +28,7 @@ sub init {
my $success;
my $dsn = 'DBI:' . $self->sgbd
my $dsn = 'dbi:' . $self->sgbd
. ':database=' . $self->dbname
. ';host=' . $self->dbhost
. ';port=' . $self->dbport;
@ -110,7 +110,7 @@ sub add_domain {
return 0;
}
my $ze = _get_zone_edit($domain);
my $ze = $self->_get_zone_edit($domain);
$ze->addzone();
}
@ -122,7 +122,7 @@ sub delete_domain {
return 0 unless $success;
return 0 unless $user->delete_domain($domain);
my $ze = _get_zone_edit($domain);
my $ze = $self->_get_zone_edit($domain);
$ze->del();
1;
@ -131,19 +131,19 @@ sub delete_domain {
sub update_domain_raw {
my ($self, $zone, $domain) = @_;
my $ze = _get_zone_edit($domain);
my $ze = $self->_get_zone_edit($domain);
$ze->update_raw($zone);
}
sub update_domain {
my ($self, $zone, $domain) = @_;
my $ze = _get_zone_edit($domain);
my $ze = $self->_get_zone_edit($domain);
$ze->update($zone);
}
sub get_domain {
my ($self, $domain) = @_;
my $ze = _get_zone_edit($domain);
my $ze = $self->_get_zone_edit($domain);
$ze->get();
}
@ -166,7 +166,7 @@ sub get_all_users {
sub new_tmp {
my ($self, $domain) = @_;
my $ze = _get_zone_edit($domain);
my $ze = $self->_get_zone_edit($domain);
$ze->new_tmp();
}

2
app/zone/nsdc_interface.pm
View File

@ -8,7 +8,7 @@ has [ qw/data/ ] => qw/is ro required 1/;
sub reload {
my ($self, $zname) = @_;
system("ssh "
. $self->data->sshsec
. $self->data->sshhostsec
. " nsdc reload $zname 2>/dev/null 1>/dev/null");
}