Pretty up some come

This commit is contained in:
Tom Eastep 2010-08-24 13:08:21 -07:00
parent 91c5a2f80b
commit 4a865e0a6d

View File

@ -1611,20 +1611,17 @@ sub process_rule ( ) {
return 1; return 1;
} }
my $intrazone = 0; my $intrazone = 0;
my $wild = 0; my $wild = 0;
my $thisline = $currentline; #We must save $currentline because it is overwritten by macro expansion my $thisline = $currentline; #We must save $currentline because it is overwritten by macro expansion
my $action = isolate_basic_target $target; my $action = isolate_basic_target $target;
my $fw = firewall_zone; my $fw = firewall_zone;
my $generated = 0; my @source = build_zone_list ( $fw, $source, 'SOURCE', $intrazone, $wild );
my @source; my @dest = build_zone_list ( $fw, $dest, 'DEST' , $intrazone, $wild );
my @dest; my $generated = 0;
fatal_error "Invalid or missing ACTION ($target)" unless defined $action; fatal_error "Invalid or missing ACTION ($target)" unless defined $action;
@source = build_zone_list ( $fw, $source, 'SOURCE', $intrazone, $wild );
@dest = build_zone_list ( $fw, $dest, 'DEST' , $intrazone, $wild );
for $source ( @source ) { for $source ( @source ) {
for $dest ( @dest ) { for $dest ( @dest ) {
my $sourcezone = (split( /:/, $source, 2 ) )[0]; my $sourcezone = (split( /:/, $source, 2 ) )[0];