network-functions.pl: Add function to check for valid networks.

The "check_network" function is able to process inputs in prefix
or dotted decimal notations.

diff --git a/config/cfgroot/network-functions.pl b/config/cfgroot/network-functions.pl
index 029ffc09eee5308dddc5d777e7eb11417e347e3b..9ac38d0e3b29efb63298342c773fc06688fb68ea 100644 (file)
--- a/config/cfgroot/network-functions.pl
+++ b/config/cfgroot/network-functions.pl
@@ -144,6 +144,22 @@ sub check_netmask($) {
 
        return (exists $NETMASK2PREFIX{$netmask});
 }
+# Returns True for all valid inputs like a.b.c.d/a.b.c.d
+# or a.b.c.d/a.
+sub check_network($$) {
+       my $network = shift;
+
+       my ($address, $netmask) = split(/\//, $network, 2);
+
+       # Check for a valid IP address.
+       my $result = &check_ip_address($address);
+       unless ($result) {
+               return $result;
+       }
+
+       # Check if we got a valid netmask or prefix.
+       return &check_netmask($netmask) || &check_prefix($netmask);
+}
 
 # Returns True for all valid inputs like a.b.c.d/a.b.c.d.
 sub check_ip_address_and_netmask($$) {