Changeset 1597

Timestamp:

01/06/16 16:17:25 (8 years ago)

Author:

nanardon

Message:

The domain of reverse zone is added if name end by a point

This allow to add a just the name to overload the object name

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Buildnet.pm (modified) (2 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Buildnet.pm

@@ -559 +559 @@
             };
             my $desc = $self->_comment_nethost($host_o);
-            my $reverse = $host_o->get_attributes('reverse');
+            my $reverse = $host_o->get_attributes('reverse') || ($res->{name} . '.');
             $dbzone .= $desc
                 ? '; ' . $desc . "\n"
@@ -580 +580 @@
                 $fmt = "%-12s IN    PTR    %s%s\n";
             }
+ 
             $dbzone .= sprintf($fmt, $revip,
-                $reverse
-                    ? ($reverse, '.')
-                    : ($res->{name}, ($domain ? ".$domain." : '')));
+                $reverse =~ /\.$/
+                    ? ($reverse, ($domain ? "$domain." : '.')))
+                    : ($reverse);
         }
     }