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

Make routestopped work

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@8995 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2008-12-11 21:58:01 +00:00
parent 71e7eb26f6
commit 59a9a492a5
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Shorewall-perl/Shorewall/Rules.pm
View File

@ -418,7 +418,7 @@ sub process_routestopped() {
for my $host ( split /,/, $hosts ) {
validate_host $host, 1;
push @hosts, "$interface:$host";
push @hosts, "$interface|$host";
}
unless ( $options eq '-' ) {
@ -439,11 +439,11 @@ sub process_routestopped() {
}
} elsif ( $option eq 'source' ) {
for my $host ( split /,/, $hosts ) {
$source{"$interface:$host"} = 1;
$source{"$interface|$host"} = 1;
}
} elsif ( $option eq 'dest' ) {
for my $host ( split /,/, $hosts ) {
$dest{"$interface:$host"} = 1;
$dest{"$interface|host"} = 1;
}
} else {
warning_message "Unknown routestopped option ( $option ) ignored" unless $option eq 'critical';
@ -455,7 +455,7 @@ sub process_routestopped() {
}
for my $host ( @allhosts ) {
my ( $interface, $h ) = split /:/, $host;
my ( $interface, $h ) = split /\|/, $host;
my $source = match_source_net $h;
my $dest = match_dest_net $h;
my $sourcei = match_source_dev $interface;