diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/vyatta-wanloadbalance.pl | 17 |
1 files changed, 17 insertions, 0 deletions
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"; |