Changeset 2336

Timestamp:

01/30/20 23:40:44 (4 years ago)

Author:

nanardon

Message:

Fix encode() notfound

File:

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

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

@@ -14 +14 @@
 use Net::IPv6Addr;
 use URI; # Ensure module is required
-use URI::_idna qw(encode decode);
+use URI::_idna;
 
 =head1 NAME
@@ -514 +514 @@
                 $dbzone .= sprintf(
                     "%-30s IN    %-4s     %s\n",
-                    encode($res),
+                    URI::_idna::encode($res),
                     ($ip =~ /:/ ? 'AAAA' : 'A'),
                     $ip
@@ -523 +523 @@
                     $dbzone .= sprintf(
                         "%-30s IN    %-4s     %s\n",
-                        encode($_),
+                        URI::_idna::encode($_),
                         ($ip =~ /:/ ? 'AAAA' : 'A'),
                         $ip
@@ -541 +541 @@
                     $dbzone .= "; $msg\n";
                 } else {
-                    $dbzone .= sprintf("%-30s IN    CNAME    %s\n", encode($_), encode($res));
+                    $dbzone .= sprintf("%-30s IN    CNAME    %s\n", URI::_idna::encode($_), encode($res));
                 }
             }
@@ -549 +549 @@
                     $dbzone .= sprintf(
                         "%-30s IN    SSHFP    %s\n",
-                        encode($name),
+                        URI::_idna::encode($name),
                         $sshfp,
                     );
@@ -564 +564 @@
 
     my $domain = $ozone->get_attributes('domain') || '';
-    my $punyDomain = encode($domain);
+    my $punyDomain = URI::_idna::encode($domain);
     my $dbzone = '';
     if ($ozone->get_attributes('net')) {
@@ -634 +634 @@
             $dbzone .= sprintf($fmt, $revip,
                 $reverse =~ /\.$/
-                    ? (encode($reverse), ($punyDomain ? "$punyDomain." : '.'))
-                    : (encode($reverse), '.'));
+                    ? (URI::_idna::encode($reverse), ($punyDomain ? "$punyDomain." : '.'))
+                    : (URI::_idna::encode($reverse), '.'));
         }
     }