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 $success;
my $dsn = 'DBI:' . $self->sgbd my $dsn = 'dbi:' . $self->sgbd
. ':database=' . $self->dbname . ':database=' . $self->dbname
. ';host=' . $self->dbhost . ';host=' . $self->dbhost
. ';port=' . $self->dbport; . ';port=' . $self->dbport;
@ -110,7 +110,7 @@ sub add_domain {
return 0; return 0;
} }
my $ze = _get_zone_edit($domain); my $ze = $self->_get_zone_edit($domain);
$ze->addzone(); $ze->addzone();
} }
@ -122,7 +122,7 @@ sub delete_domain {
return 0 unless $success; return 0 unless $success;
return 0 unless $user->delete_domain($domain); return 0 unless $user->delete_domain($domain);
my $ze = _get_zone_edit($domain); my $ze = $self->_get_zone_edit($domain);
$ze->del(); $ze->del();
1; 1;
@ -131,19 +131,19 @@ sub delete_domain {
sub update_domain_raw { sub update_domain_raw {
my ($self, $zone, $domain) = @_; my ($self, $zone, $domain) = @_;
my $ze = _get_zone_edit($domain); my $ze = $self->_get_zone_edit($domain);
$ze->update_raw($zone); $ze->update_raw($zone);
} }
sub update_domain { sub update_domain {
my ($self, $zone, $domain) = @_; my ($self, $zone, $domain) = @_;
my $ze = _get_zone_edit($domain); my $ze = $self->_get_zone_edit($domain);
$ze->update($zone); $ze->update($zone);
} }
sub get_domain { sub get_domain {
my ($self, $domain) = @_; my ($self, $domain) = @_;
my $ze = _get_zone_edit($domain); my $ze = $self->_get_zone_edit($domain);
$ze->get(); $ze->get();
} }
@ -166,7 +166,7 @@ sub get_all_users {
sub new_tmp { sub new_tmp {
my ($self, $domain) = @_; my ($self, $domain) = @_;
my $ze = _get_zone_edit($domain); my $ze = $self->_get_zone_edit($domain);
$ze->new_tmp(); $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 { sub reload {
my ($self, $zname) = @_; my ($self, $zname) = @_;
system("ssh " system("ssh "
. $self->data->sshsec . $self->data->sshhostsec
. " nsdc reload $zname 2>/dev/null 1>/dev/null"); . " nsdc reload $zname 2>/dev/null 1>/dev/null");
} }