From a37b449ce7546851ab801d62d9260d773b24e005 Mon Sep 17 00:00:00 2001 From: Robert Bays Date: Mon, 5 Apr 2010 23:25:06 -0700 Subject: initial update to bgp with new ipv6 and peer-group nodes --- lib/Vyatta/Quagga/Config.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lib') diff --git a/lib/Vyatta/Quagga/Config.pm b/lib/Vyatta/Quagga/Config.pm index 107731fe..a1e76f80 100644 --- a/lib/Vyatta/Quagga/Config.pm +++ b/lib/Vyatta/Quagga/Config.pm @@ -30,6 +30,7 @@ my %_vtysh; my %_vtyshdel; my $_qcomref = ''; my $_qcomdelref = ''; +my $_vtyshexe = '/usr/bin/vtysh'; ### Public methods - # Create the class. @@ -187,7 +188,7 @@ sub cmpb { $b cmp $a } sub _sendQuaggaCommand { my ($command) = @_; my $section; - my $args = "/usr/sbin/vtysh --noerr -c 'configure terminal' "; + my $args = "$_vtyshexe --noerr -c 'configure terminal' "; my @commands = split / ; /, $command; foreach $section (@commands) { @@ -195,6 +196,7 @@ sub _sendQuaggaCommand { } if ($_DEBUG >= 2) { print "DEBUG: _sendQuaggaCommand - args prior to system call - $args\n"; } + # TODO: need to fix this system call. split into command and args. system("$args"); if ($? != 0) { # TODO: note that DEBUG will never happen here with --noerr as an argument. -- cgit v1.2.3