From 8fd0204c883ca175c754d96b83433f084a7cc2ee Mon Sep 17 00:00:00 2001
From: slioch <slioch@eng-140.vyatta.com>
Date: Wed, 8 Jul 2009 09:23:29 -0700
Subject: fix for bug 4698

---
 scripts/vyatta-wanloadbalance.pl | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'scripts')

diff --git a/scripts/vyatta-wanloadbalance.pl b/scripts/vyatta-wanloadbalance.pl
index f541ea3..397591b 100644
--- a/scripts/vyatta-wanloadbalance.pl
+++ b/scripts/vyatta-wanloadbalance.pl
@@ -12,6 +12,7 @@ use lib "/opt/vyatta/share/perl5/";
 use Vyatta::Config;
 use Vyatta::Misc;
 use Vyatta::TypeChecker;
+use Getopt::Long;
 
 use warnings;
 use strict;
@@ -235,12 +236,28 @@ sub write_rules {
     return $valid;
 }
 
+my $nexthop;
 
+sub usage {
+    exit 1;
+}
+
+GetOptions("valid-nexthop=s" => \$nexthop,
+    ) or usage();
 
 ####main
 my $conf_file = '/var/load-balance/wlb.conf';
 my $conf_lck_file = '/var/load-balance/wlb.conf.lck';
 
+####are we just validating?
+if (defined $nexthop) {
+    my $rc = Vyatta::TypeChecker::validateType('ipv4', $nexthop, 1);
+    if (!$rc && $nexthop ne "dhcp") {
+	exit 1;
+    }
+    exit 0;
+}
+
 #open file
 open(FILE, "<$conf_file") or die "Can't open wlb config file"; 
 open(FILE_LCK, "+>$conf_lck_file") or die "Can't open wlb lock file";
-- 
cgit v1.2.3