On 4/10/13 6:40 PM, Mr Dash Four wrote:
>
>> I guess we can try 'shorewall trace -vv check > trace'; the 'trace' file
>> might show me something...
>>
> rules
> ~~~~~
> INLINE $FW net ; -j SECCTX --name test
>
> trace
> ~~~~~
> [...]
> IN===> INLINE fw net ; -j SECCTX --name test
> NF-(N)-> filter:INLINE
> NF-(!O1)-> filter:INLINE
> Checking /usr/share/shorewall/action.INLINE for chain INLINE...
> CD===> ?FORMAT 2
> IN===> DEFAULTS -
> IN===> use strict;
> IN===> use Shorewall::Chains;
> IN===> use Shorewall::Rules;
> IN===>
> IN===> my $chainref = get_action_chain;
> IN===> my $rule = get_inline_matches;
> IN===>
> IN===> add_rule( $chainref, $rule, '' );
> IN===>
> IN===> allow_optimize( $chainref );
> IN===>
> IN===> ?END PERL;
>
> stdout
> ~~~~~~
> [...]
> ERROR: Bareword "get_action_chain" not allowed while "strict subs" in
> use at /usr/share/shorewall/action.INLINE line 16.
> Bareword "get_inline_matches" not allowed while "strict subs" in use at
> /usr/share/shorewall/action.INLINE line 17.
> at /usr/share/perl5/Shorewall/Config.pm line 1254
> Shorewall::Config::fatal_error1('Bareword "get_action_chain" not
> allowed while "strict subs" i...') called at
> /usr/share/perl5/Shorewall/Config.pm line 2805
> Shorewall::Config::embedded_perl(undef) called at
> /usr/share/perl5/Shorewall/Config.pm line 3094
> Shorewall::Config::read_a_line(-1) called at
> /usr/share/perl5/Shorewall/Rules.pm line 1717
> Shorewall::Rules::process_action('HASH(0x1a409d0)', 'fw2net') called
> at /usr/share/perl5/Shorewall/Rules.pm line 2423
> Shorewall::Rules::process_rule(undef, '', 'INLINE', '', 'fw', 'net',
> '-', '-', '-', ...) called at /usr/share/perl5/Shorewall/Rules.pm line 3032
> Shorewall::Rules::process_raw_rule() called at
> /usr/share/perl5/Shorewall/Rules.pm line 3205
> Shorewall::Rules::process_rules(0) called at
> /usr/share/perl5/Shorewall/Compiler.pm line 821
> Shorewall::Compiler::compiler('script', '', 'directory', '',
> 'verbosity', 2, 'timestamp', 0, 'debug', ...) called at
> /usr/libexec/shorewall/compiler.pl line 145
> Try applying the attached patch. -Tom -- Tom Eastep \ When I die, I want to go like my Grandfather who Shoreline, \ died peacefully in his sleep. Not screaming like Washington, USA \ all of the passengers in his car http://shorewall.net \________________________________________________
diff --git a/Shorewall/action.INLINE b/Shorewall/action.INLINE index 943f233..d63d460 100644 --- a/Shorewall/action.INLINE +++ b/Shorewall/action.INLINE @@ -10,6 +10,7 @@ DEFAULTS - ?BEGIN PERL; use strict; +use Shorewall::Config; use Shorewall::Chains; use Shorewall::Rules;
signature.asc
Description: OpenPGP digital signature
------------------------------------------------------------------------------ Precog is a next-generation analytics platform capable of advanced analytics on semi-structured data. The platform includes APIs for building apps and a phenomenal toolset for data science. Developers can use our toolset for easy data analysis & visualization. Get a free account! http://www2.precog.com/precogplatform/slashdotnewsletter
_______________________________________________ Shorewall-devel mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/shorewall-devel
