sub validmask {
my $mask = shift;
- return &Network::check_netmask($mask) or &Network::check_prefix($mask);
+ return &Network::check_netmask($mask) || &Network::check_prefix($mask);
}
sub validipormask
}
sub getnetworkip {
- my $arg = join("/", $@);
+ my $arg = join("/", @_);
return &Network::get_netaddress($arg);
}