Rename 'New' to 'Shorewall-perl'

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5816 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb

Shorewall/lib.base

@@ -28,7 +28,7 @@
 # and /usr/share/shorewall-lite/shorecap.
 #
 
-SHOREWALL_LIBVERSION=30401
+SHOREWALL_LIBVERSION=30402
 
 [ -n "${VARDIR:=/var/lib/shorewall}" ]
 [ -n "${SHAREDIR:=/usr/share/shorewall}" ]
@@ -826,6 +826,13 @@ get_routed_networks() # $1 = interface name, $2-n = Fatal error message
         done
 }
 
+get_interface_bcasts() # $1 = interface
+{
+    local addresses=
+
+    ip -f inet addr show dev $1 2> /dev/null | grep 'inet.*brd' | sed 's/inet.*brd //; s/scope.*//;' | sort -u 
+}
+	
 #
 # Internal version of 'which'
 #