Changeset 1599 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Buildnet.pm

Timestamp:

01/06/16 17:57:33 (8 years ago)

Author:

nanardon

Message:

Fix prefixlen discovering

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Buildnet.pm (modified) (1 diff)

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

@@ -551 +551 @@
 
         # reverse is complicated:
-        my ($mask) = ($ozone->get_attributes('net') =~ m:/(\d+)$:);
+        my $net = $ozone->get_attributes('net');
+        my $netip = Net::IP->new($net) or do {
+                $self->base->log(LA_ERR, "Cannot build reverse zone %s: wrong net %s", $ozone->id, $net);
+                return;
+        };
+        my $mask = $netip->prefixlen;
 
         while (my $res = $findhost->fetchrow_hashref) {