From b45e64b20f356afb629ff78aecedb00e417a18e1 Mon Sep 17 00:00:00 2001
From: Stig Thormodsrud <stig@vyatta.com>
Date: Wed, 9 Jan 2008 13:12:36 -0800
Subject: Fix for bug 2615 "as-path-list configuration was not sent to the
 routing engine".

---
 scripts/policy/vyatta-policy.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/scripts/policy/vyatta-policy.pl b/scripts/policy/vyatta-policy.pl
index 563cae0d..51aa163a 100755
--- a/scripts/policy/vyatta-policy.pl
+++ b/scripts/policy/vyatta-policy.pl
@@ -3,7 +3,7 @@ use lib "/opt/vyatta/share/perl5/";
 use VyattaConfig;
 use VyattaMisc;
 use Getopt::Long;
-$VTYSH='/usr/bin/vtysh';
+$VTYSH='/opt/vyatta/sbin/vyatta-vtysh.pl';
 
 GetOptions("update-access-list=s"    => \$accesslist,
            "update-aspath-list=s"    => \$aspathlist,
@@ -32,7 +32,7 @@ sub check_peer_syntax() {
 sub is_community_list {
     my $list = shift;
 
-    my $count = `vtysh -c \"show ip community-list $list\" | grep $list | wc -l`;
+    my $count = `$VTYSH -c \"show ip community-list $list\" | grep $list | wc -l`;
     if ($count > 0) {
 	return 1; 
     } else {
@@ -82,7 +82,7 @@ sub update_community_list() {
 sub is_as_path_list {
     my $list = shift;
 
-    my $count = `vtysh -c \"show ip as-path-access-list $list\" | grep $list | wc -l`;
+    my $count = `$VTYSH -c \"show ip as-path-access-list $list\" | grep $list | wc -l`;
     if ($count > 0) {
 	return 1; 
     } else {
@@ -132,7 +132,7 @@ sub update_as_path() {
 sub is_access_list {
     my $list = shift;
 
-    my $count = `vtysh -c \"show ip access-list $list\" | grep $list | wc -l`;
+    my $count = `$VTYSH -c \"show ip access-list $list\" | grep $list | wc -l`;
     if ($count > 0) {
 	return 1; 
     } else {
-- 
cgit v1.2.3