From fa1916d3e6805d8d36d0f1c0ef7774948fc26f7b Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <philippe.pittoli@etu.unistra.fr>
Date: Thu, 8 May 2014 11:45:18 +0200
Subject: [PATCH] petites erreurs

---
 app/app.pm                 | 14 +++++++-------
 app/zone/nsdc_interface.pm |  2 +-
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/app/app.pm b/app/app.pm
index 27138c9..5a86d9a 100644
--- a/app/app.pm
+++ b/app/app.pm
@@ -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();
 }
 
diff --git a/app/zone/nsdc_interface.pm b/app/zone/nsdc_interface.pm
index 55f25db..384eecf 100644
--- a/app/zone/nsdc_interface.pm
+++ b/app/zone/nsdc_interface.pm
@@ -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");
 }