These functions have been replaced by the
Network::convert_to_cidr_or_subnet() function.
Also drop the usage of the Net::IPv4Addr perl module, which is
not needed anymore.
Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
use Socket;
use IO::Socket;
use Net::SSLeay;
-use Net::IPv4Addr qw(:all);
$|=1; # line buffering
$General::version = 'VERSION';
return &Network::find_next_ip_address(shift, 4);
}
-sub ipcidr {
- my ($ip,$cidr) = &Net::IPv4Addr::ipv4_parse(shift);
- return "$ip\/$cidr";
-}
-
-sub ipcidr2msk {
- my ($ip,$cidr) = &Net::IPv4Addr::ipv4_parse(shift);
- my $netmask = &Net::IPv4Addr::ipv4_cidr2msk($cidr);
- return "$ip\/$netmask";
-}
-
sub validemail {
my $address = shift;
my @parts = split( /\@/, $address );