Changeset 2335
- Timestamp:
- 01/30/20 23:13:50 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Buildnet.pm
r2334 r2335 13 13 use Net::IPv4Addr; 14 14 use Net::IPv6Addr; 15 use URI::_punycode qw(encode_punycode decode_punycode); 15 use URI; # Ensure module is required 16 use URI::_idna qw(encode decode); 16 17 17 18 =head1 NAME … … 513 514 $dbzone .= sprintf( 514 515 "%-30s IN %-4s %s\n", 515 encode _punycode($res),516 encode($res), 516 517 ($ip =~ /:/ ? 'AAAA' : 'A'), 517 518 $ip … … 522 523 $dbzone .= sprintf( 523 524 "%-30s IN %-4s %s\n", 524 encode _punycode($_),525 encode($_), 525 526 ($ip =~ /:/ ? 'AAAA' : 'A'), 526 527 $ip … … 540 541 $dbzone .= "; $msg\n"; 541 542 } else { 542 $dbzone .= sprintf("%-30s IN CNAME %s\n", encode _punycode($_), encode_punycode($res));543 $dbzone .= sprintf("%-30s IN CNAME %s\n", encode($_), encode($res)); 543 544 } 544 545 } … … 548 549 $dbzone .= sprintf( 549 550 "%-30s IN SSHFP %s\n", 550 encode _punycode($name),551 encode($name), 551 552 $sshfp, 552 553 ); … … 563 564 564 565 my $domain = $ozone->get_attributes('domain') || ''; 565 my $punyDomain = encode _punycode($domain);566 my $punyDomain = encode($domain); 566 567 my $dbzone = ''; 567 568 if ($ozone->get_attributes('net')) { … … 633 634 $dbzone .= sprintf($fmt, $revip, 634 635 $reverse =~ /\.$/ 635 ? (encode _punycode($reverse), ($punyDomain ? "$punyDomain." : '.'))636 : (encode _punycode($reverse), '.'));636 ? (encode($reverse), ($punyDomain ? "$punyDomain." : '.')) 637 : (encode($reverse), '.')); 637 638 } 638 639 }
Note: See TracChangeset
for help on using the changeset viewer.