Changeset 1318 for trunk/LATMOS-Accounts/bin/la-sql-switch-cname

Timestamp:

04/07/15 16:42:41 (9 years ago)

Author:

nanardon

Message:

Use new delAttributeValue and addAttributeValue to make code shorter (and working)

File:

• trunk/LATMOS-Accounts/bin/la-sql-switch-cname (modified) (3 diffs)

trunk/LATMOS-Accounts/bin/la-sql-switch-cname

@@ -52 +52 @@
     pod2usage(1);
 }
-    
+
 my ($to, $from) = ($ARGV[-1], $ARGV[-2]);
 
@@ -72 +72 @@
     warn "CNAME $cname: $nhost => $to\n";
 
-    {
-        my @name = grep { $_ && $_ ne $cname } $onhost->get_attributes('cname');
-        $onhost->set_c_fields(cname => @name ? [ @name ] : undef) or die "Cannot set $cname to $nhost\n";
-    }
-    
-    {
-        my @name = $cname, $oto->get_attributes('cname');
-        $oto->set_c_fields(cname => [ grep { $_ } @name ]) or die "Cannot add $cname to $to\n";
-    }
+    $onhost->delAttributeValue('cname', $cname) or die "Cannot remove $cname from $nhost\n";
+    $oto->addAttributeValue   ('cname', $cname) or die "Cannot add $cname to $to\n";
 }
+
 foreach my $aname (@arecords) {
     my @listhost = $labase->search_objects('nethost', "otherName=$aname");
@@ -97 +91 @@
     warn "CNAME $aname: $nhost => $to";
 
-    {
-        my @name = grep { $_ && $_ ne $aname } $onhost->get_attributes('otherName');
-        $onhost->set_c_fields(otherName => @name ? [ @name ] : undef) or die "Cannot set $aname to $nhost\n";
-    }
-    
-    {
-        my @name = $aname, $oto->get_attributes('otherName');
-        $oto->set_c_fields(otherName => [ grep { $_ } @name ]) or die "Cannot add $aname to $to\n";
-    }
+    $onhost->delAttributeValue('otherName', $aname) or die "Cannot remove $aname from $nhost\n";
+    $oto->addAttributeValue   ('otherName', $aname) or die "Cannot add $aname to $to\n";
 }