}
if ($settings{'ACTION'} eq $Lang::tr{'add'}) {
- # Convert subnet masks to CIDR notation.
- $settings{'IP'} = &General::iporsubtocidr($settings{'IP'});
-# Validate inputs
- if (( !&General::validip($settings{'IP'})) and ( !&General::validipandmask($settings{'IP'}))){
+ # Validate inputs
+ if (!&General::validipandmask($settings{'IP'}))){
$errormessage = $Lang::tr{'invalid ip'}." / ".$Lang::tr{'invalid netmask'};
+ }else{
+ #set networkip if not already correctly defined
+ my($ip,$cidr) = split(/\//,$settings{'IP'});
+ $cidr = &General::iporsubtocidr($cidr);
+ my $netip=&General::getnetworkip($ip,$cidr);
+ $settings{'IP'} = "$netip/$cidr";
}
if ($settings{'IP'} =~ /^0\.0\.0\.0/){