diff options
| -rwxr-xr-x | bootstrap/make-dhcpd.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/bootstrap/make-dhcpd.pl b/bootstrap/make-dhcpd.pl index 4052212..e6104af 100755 --- a/bootstrap/make-dhcpd.pl +++ b/bootstrap/make-dhcpd.pl @@ -29,11 +29,11 @@ my $pri_net = $pri_range->ip(); my $sec_range = Net::IP->new($nms::config::sec_net_v4) or die ("sec_range fail"); my $sec_mask = $sec_range->mask(); my $sec_net = $sec_range->ip(); -(my $sec_last = $sec_range->last()) =~ s/\/[0-9]{1,2}//; -(my $sec_gw = $sec_range->first()) =~ s/\/[0-9]{1,2}//; -my $sec_num = $sec_range->num(); +(my $sec_last = NetAddr::IP->new($nms::config::sec_net_v4)->last()) =~ s/\/[0-9]{1,2}//; +(my $sec_gw = NetAddr::IP->new($nms::config::sec_net_v4)->first()) =~ s/\/[0-9]{1,2}//; +my $sec_num = NetAddr::IP->new($nms::config::sec_net_v4)->num(); my $sec_n = $sec_num - int($sec_num / 4); # don't use more than 1/4 of the net for DHCP -(my $sec_first = $sec_range->nth($sec_n)) =~ s/\/[0-9]{1,2}//; +(my $sec_first = NetAddr::IP->new($nms::config::sec_net_v4)->nth($sec_n)) =~ s/\/[0-9]{1,2}//; # Create main configuration file for DHCP if ( not -f $dhcpd_conf ) |