Changeset 1327 for trunk/LATMOS-Accounts

Timestamp:

04/16/15 18:23:11 (9 years ago)

Author:

nanardon

Message:

trap non existant host while renaming

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

@@ -355 +355 @@
     my ($self, $nethostname, $to, %config) = @_;
     {
-        my $obj = $self->get_object('nethost', $nethostname);
+        my $obj = $self->get_object('nethost', $nethostname) or do {
+            $self->log(LA_ERR, 'Unable to rename non exisant host %s', $nethostname);
+            return;
+        };
         $obj->_delAttributeValue(cname => $to);
     }