Displaying 1 result from an estimated 1 matches for "policychainref".
2009 Aug 25
1
[PATCH] A default log level of ULOG is ignored by the shorewall-perl compiler (but not by shorewall-shell)
...ler act like the shell compiler:
=== 8< ===
--- Policy.orig.pm 2009-06-18 00:00:00.000000000 +0000
+++ Policy.pm 2009-08-25 00:00:00.000000000 +0000
@@ -453,6 +453,10 @@
my ( $policy, $loglevel, $defaultaction ) = ( $default , 6, $config{$default . ''_DEFAULT''} );
my $policychainref;
+ if (!$ruleschainref) {
+ $ruleschainref = $filter_table->{"all2all"};
+ }
+
$policychainref = $filter_table->{$ruleschainref->{policychain}} if $ruleschainref;
( $policy, $loglevel, $defaultaction ) = @{$policychainref}{''policy'', ...