From e4878466f707068fb1597e06fd2384ceb35332d7 Mon Sep 17 00:00:00 2001
From: teastep <teastep@fbd18981-670d-0410-9b5c-8dc0c1a9a2bb>
Date: Thu, 20 Mar 2008 18:54:40 +0000
Subject: [PATCH] Add Tuomo's patch for adding 'src' to default route

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@8315 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
---
 Shorewall-perl/Shorewall/Providers.pm | 2 +-
 Shorewall-perl/Shorewall/Tc.pm        | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/Shorewall-perl/Shorewall/Providers.pm b/Shorewall-perl/Shorewall/Providers.pm
index d2cff44a4..ca124e2cc 100644
--- a/Shorewall-perl/Shorewall/Providers.pm
+++ b/Shorewall-perl/Shorewall/Providers.pm
@@ -345,7 +345,7 @@ sub add_a_provider( $$$$$$$$ ) {
 	} else {
 	    emit "run_ip route replace $gateway src $address dev $interface ${mtu}table $number $realm";
 	}
-	emit "run_ip route add default via $gateway dev $interface table $number $realm";
+	emit "run_ip route add default via $gateway src $address dev $interface ${mtu}table $number $realm";
     }
 
     balance_default_route $balance , $gateway, $interface, $realm if $balance;
diff --git a/Shorewall-perl/Shorewall/Tc.pm b/Shorewall-perl/Shorewall/Tc.pm
index 92625c3bf..99769cd8d 100644
--- a/Shorewall-perl/Shorewall/Tc.pm
+++ b/Shorewall-perl/Shorewall/Tc.pm
@@ -517,6 +517,9 @@ sub validate_tc_class( $$$$$$ ) {
     progress_message "   Tcclass \"$currentline\" $done.";
 }
 
+#
+# Process a record from the tcfilters file
+#
 sub process_tc_filter( $$$$$$ ) {
     my ($devclass , $source, $dest , $proto, $port , $sport ) = @_;
 
@@ -532,7 +535,7 @@ sub process_tc_filter( $$$$$$ ) {
     
     $tcref = $tcref->{$class};
 
-    fatal_error "Unknown CLASS ($class)" unless $tcref; 
+    fatal_error "Unknown CLASS ($devclass)" unless $tcref; 
 
     my $rule = "filter add dev $device protocol ip parent $devref->{number}:0 pref 10 u32";