-
- $wiosettings{"${_}_IPLOW"} = inet_ntoa pack q/N/, (unpack (q/N/, inet_aton ($netsettings{"${_}_NETADDRESS"}))+1);
- my @addrarr = split(/\./,$netsettings{"${_}_ADDRESS"});
- my $ipaddress = unpack( "N", pack( "C4",@addrarr ) );
-
- my @maskarr = split(/\./,$netsettings{"${_}_NETMASK"});
- my $netmask = unpack( "N", pack( "C4",@maskarr ) );
-
- my $bcast = ( $ipaddress & $netmask ) + ( ~ $netmask );
- my @bcastarr = inet_ntoa pack q/N/, (unpack (q/N/, inet_aton ($bcast))-1);
-
- $wiosettings{"${_}_IPHIGH"} = join(".",@bcastarr);
+ $wiosettings{"${_}_IPLOW"} = &Network::find_next_ip_address($netsettings{"${_}_NETADDRESS"}, 1);
+ $wiosettings{"${_}_IPHIGH"} = &Network::find_next_ip_address($netsettings{"${_}_BROADCAST"}, -1);