Changeset 864

Timestamp:

12/15/11 18:25:28 (13 years ago)

Author:

nanardon

Message:

• handle ip6 in reverse

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/BuildNet.pm (modified) (2 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/BuildNet.pm

@@ -13 +13 @@
 use File::Path;
 use File::Temp qw(tempfile);
+use Net::IPv4Addr;
+use Net::IPv6Addr;
 
 sub _base {
@@ -470 +472 @@
                 ? '; ' . $desc . "\n"
                 : '';
-            my @ippart = split(/\./, $res->{value});
-            splice(@ippart, 0, $mask/8); # get rid of start of ip
-            my @nippart;
-            while (@ippart) { unshift(@nippart, shift(@ippart)) }
-            $dbzone .= sprintf("%-12s IN    PTR    %s%s\n", join('.', @nippart),
+            my $revip;
+            my $fmt;
+            if ($res->{value} =~ /:/) {
+                # IPv6
+                my $m = $mask/4;
+                $revip = Net::IPv6Addr->new($res->{value})->to_string_ip6_int;
+                $revip =~ s/\.([0-9,a-f]\.?){$m}\.IP6\.INT\.$//i;
+                $fmt = "%-72s IN    PTR    %s%s\n";
+            } else {
+                # ipv4
+                my @ippart = split(/\./, $res->{value});
+                splice(@ippart, 0, $mask/8); # get rid of start of ip
+                my @nippart;
+                while (@ippart) { unshift(@nippart, shift(@ippart)) }
+                $revip = join('.', @nippart);
+                $fmt = "%-12s IN    PTR    %s%s\n";
+            }
+            $dbzone .= sprintf($fmt, $revip,
                 $reverse 
                     ? ($reverse, '.')