diff options
| author | Joachim Tingvold <joachim@tingvold.com> | 2015-03-21 22:48:32 +0100 |
|---|---|---|
| committer | Joachim Tingvold <joachim@tingvold.com> | 2015-03-21 22:48:32 +0100 |
| commit | 6669f020b17779cc6767a30ca2e7c51de766b9b8 (patch) | |
| tree | f15349365fd6d905a49b64cbd6ab19bb27f8451b /bootstrap/make-first-zones.pl | |
| parent | fe80e0a56b3b67699a6117b010e6d5c81e8391ba (diff) | |
Spring cleaning for TG15.
Preparing for DHCP6. Cleanup of old files.
Diffstat (limited to 'bootstrap/make-first-zones.pl')
| -rwxr-xr-x | bootstrap/make-first-zones.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/bootstrap/make-first-zones.pl b/bootstrap/make-first-zones.pl index 7d6d9f4..065b2a5 100755 --- a/bootstrap/make-first-zones.pl +++ b/bootstrap/make-first-zones.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl -I /root/tgmanage use strict; - use Net::IP; BEGIN { @@ -99,8 +98,8 @@ if ( not -f $zonefile ) ; on the bootstrapping/nms server! EOF - my $ip_pri = new Net::IP( $nms::config::pri_v6 ) or die ( "Error, new Net::IP for " . $nms::config::pri_v6 ); - my $ip_sec = new Net::IP( $nms::config::sec_v6 ) or die ( "Error, new Net::IP for " . $nms::config::sec_v6 ); + my $ip_pri = Net::IP->new( $nms::config::pri_v6 ) or die ( "Error, new Net::IP for " . $nms::config::pri_v6 ); + my $ip_sec = Net::IP->new( $nms::config::sec_v6 ) or die ( "Error, new Net::IP for " . $nms::config::sec_v6 ); print IPV6ZONE $ip_pri->reverse_ip() . " IN PTR $nms::config::pri_hostname.$nms::config::tgname.gathering.org.\n"; print IPV6ZONE $ip_sec->reverse_ip() . " IN PTR $nms::config::sec_hostname.$nms::config::tgname.gathering.org.\n"; close IPV6ZONE; |