extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-06-19 08:07:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add some comments to the Zones module

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2015-07-13 12:57:00 -07:00
parent 30a5488a8a
commit d0fc7f6547
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Shorewall/Perl/Shorewall/Zones.pm
View File

@ -1549,10 +1549,16 @@ sub known_interface($)
my $iface = $interface; my $iface = $interface;
if ( $minroot ) { if ( $minroot ) {
#
# We have wildcard interfaces -- see if this interface matches one of their roots
#
while ( length $iface > $minroot ) { while ( length $iface > $minroot ) {
chop $iface; chop $iface;
if ( my $i = $roots{$iface} ) { if ( my $i = $roots{$iface} ) {
#
# Found one
#
$interfaceref = $interfaces{$i}; $interfaceref = $interfaces{$i};
my $physical = map_physical( $interface, $interfaceref ); my $physical = map_physical( $interface, $interfaceref );
@ -1682,9 +1688,8 @@ sub source_port_to_bridge( $ ) {
return $portref ? $portref->{bridge} : ''; return $portref ? $portref->{bridge} : '';
} }
# #
# Returns a hash reference for the zones interface through the interface # Returns a hash reference for the zones interfaced through the interface
# #
sub interface_zones( $ ) { sub interface_zones( $ ) {
my $interfaceref = known_interface( $_[0] ); my $interfaceref = known_interface( $_[0] );
@ -1719,7 +1724,7 @@ sub interface_is_required($) {
} }
# #
# Return true if the interface is 'plain' # Return true if the interface is 'plain' (not optional, required or ignored and not a bridge port).
# #
sub interface_is_plain($) { sub interface_is_plain($) {
my $interfaceref = $interfaces{$_[0]}; my $interfaceref = $interfaces{$_[0]};