holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Fix policy parsing problem

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@8358 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2008-03-26 15:15:34 +00:00
parent 3ea2f8692f
commit b2d2ee253a
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Shorewall-perl/Shorewall/Policy.pm
View File

@ -224,8 +224,12 @@ sub validate_policy()
fatal_error "Undefined zone $server" unless $serverwild || defined_zone( $server );
my $originalpolicy = $policy;
( $policy , my ( $default, $remainder ) ) = split( /:/, $policy, 3 );
fatal_error "Invalid or missing POLICY ($originalpolicy)" unless $policy;
fatal_error "Invalid default action ($default:$remainder)" if defined $remainder;
( $policy , my $queue ) = get_target_param $policy;