diff --git a/Shorewall-perl/Shorewall/Chains.pm b/Shorewall-perl/Shorewall/Chains.pm index 7630def4e..08113edd8 100644 --- a/Shorewall-perl/Shorewall/Chains.pm +++ b/Shorewall-perl/Shorewall/Chains.pm @@ -450,6 +450,14 @@ sub chain_base($) { $chain; } +# +# Forward Chain for an interface +# +sub forward_chain($) +{ + chain_base( $_[0] ) . '_fwd'; +} + # # Input Chain for an interface # @@ -475,11 +483,12 @@ sub masq_chain($) } # -# Syn_chain +# Syn_flood_chain -- differs from the other _chain functions in that the argument is a chain table reference # Syn_chain # -sub syn_chain ( $ ) { - '@' . $_[0]; +sub syn_flood_chain ( $ ) { + '@' . $_[0]->{synchain}; } + # # MAC Verification Chain for an interface #