foreach $key (keys(%vpnconfighash)) {
next unless ($vpnconfighash{$key}[3] eq 'net');
- my $convertip = &General::ipcidr2msk($vpnconfighash{$key}[11]);
+ # Check and convert into subnetmask format.
+ my $convertip = &Network::convert_to_cidr_or_mask($vpnconfighash{$key}[11], "mask");
my @net = split ("/", $convertip);
if ( %ovpnccdconfhash ne '' ) {
foreach $key (keys(%ovpnccdconfhash)) {
- my $convertip = &General::ipcidr2msk($ovpnccdconfhash{$key}[1]);
+ # Check and convert into subnetmask format.
+ my $convertip = &Network::convert_to_cidr_or_mask($ovpnccdconfhash{$key}[1], "mask");
my @net = split ("/", $convertip);
$vpnn2nip = $net[0];