From 59a9a492a51f1f53ba23261086920cbf0d5ce8fc Mon Sep 17 00:00:00 2001
From: teastep <teastep@fbd18981-670d-0410-9b5c-8dc0c1a9a2bb>
Date: Thu, 11 Dec 2008 21:58:01 +0000
Subject: [PATCH] Make routestopped work

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@8995 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
---
 Shorewall-perl/Shorewall/Rules.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Shorewall-perl/Shorewall/Rules.pm b/Shorewall-perl/Shorewall/Rules.pm
index da19a7ec5..682b772de 100644
--- a/Shorewall-perl/Shorewall/Rules.pm
+++ b/Shorewall-perl/Shorewall/Rules.pm
@@ -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;