From c6446c1ced72ad797eff849c13567bc190a9770f Mon Sep 17 00:00:00 2001
From: marko <marko>
Date: Thu, 18 May 2006 17:00:44 +0000
Subject: [PATCH] Use the (relatively) new policy mechanism for redistributing
 static and connected routes to RIP / RIPng in XORP.

Bug found by:
Submitted by:
Requested by:
Reviewed by:
Approved by:
Obtained from:
---
 xorp.tcl | 23 +++++++++++++++++++++--
 1 file changed, 21 insertions(+), 2 deletions(-)

diff --git a/xorp.tcl b/xorp.tcl
index 0778a85..146abe9 100755
--- a/xorp.tcl
+++ b/xorp.tcl
@@ -145,7 +145,8 @@ proc $MODULE.cfggen { node } {
     if { [netconfFetchSection $node "router rip"] != "" } {
 	lappend cfg "protocols {"
 	lappend cfg "    rip {"
-	lappend cfg ""
+	lappend cfg "	export: \"static\""
+	lappend cfg "	export: \"connected\""
 	foreach ifc [ifcList $node] {
 	    set addr "[lindex [split [getIfcIPv4addr $node $ifc] /] 0]"
             if { $addr != "" } {
@@ -165,7 +166,8 @@ proc $MODULE.cfggen { node } {
     if { [netconfFetchSection $node "router ripng"] != "" } {
 	lappend cfg "protocols {"
 	lappend cfg "    ripng {"
-	lappend cfg ""
+	lappend cfg "	export: \"static\""
+	lappend cfg "	export: \"connected\""
 	foreach ifc [ifcList $node] {
 	    set addr "[lindex [split [getIfcIPv6addr $node $ifc] /] 0]"
             if { $addr != "" } {
@@ -182,6 +184,23 @@ proc $MODULE.cfggen { node } {
 	lappend cfg ""
     }
 
+    lappend cfg "policy {"
+    lappend cfg "    policy-statement connected {"
+    lappend cfg "	term export {"
+    lappend cfg "	    from {"
+    lappend cfg "		protocol: \"connected\""
+    lappend cfg "	    }"
+    lappend cfg "	}"
+    lappend cfg "    }"
+    lappend cfg "    policy-statement static {"
+    lappend cfg "	term export {"
+    lappend cfg "	    from {"
+    lappend cfg "		protocol: \"static\""
+    lappend cfg "	    }"
+    lappend cfg "	}"
+    lappend cfg "    }"
+    lappend cfg "}"
+
     return $cfg
 }
 
-- 
2.39.5