From db4770b72d8e8cb51d7777e28df27207f470ae2e Mon Sep 17 00:00:00 2001
From: Stephen Hemminger <stephen.hemminger@vyatta.com>
Date: Fri, 21 Nov 2008 17:07:23 -0800
Subject: Convert to Vyatta::

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

(limited to 'scripts')

diff --git a/scripts/vyatta-wanloadbalance.pl b/scripts/vyatta-wanloadbalance.pl
index 49cb05b..56d4bc4 100644
--- a/scripts/vyatta-wanloadbalance.pl
+++ b/scripts/vyatta-wanloadbalance.pl
@@ -9,9 +9,9 @@
 # **** End License ****
 #
 use lib "/opt/vyatta/share/perl5/";
-use VyattaConfig;
-use VyattaMisc;
-use VyattaTypeChecker;
+use Vyatta::Config;
+use Vyatta::Misc;
+use Vyatta::TypeChecker;
 
 use warnings;
 use strict;
@@ -20,7 +20,7 @@ use File::Copy;
 
 sub write_health {
 #open conf
-    my $config = new VyattaConfig;
+    my $config = new Vyatta::Config;
 
     my $valid = "false";
 
@@ -78,7 +78,7 @@ sub write_health {
 }
 
 sub write_rules {
-    my $config = new VyattaConfig;
+    my $config = new Vyatta::Config;
 
     my $valid = "false";
 
@@ -117,7 +117,7 @@ sub write_rules {
 	print FILE_LCK "\tdestination {\n";
 	my $daddr = $config->returnValue("$rule destination address");
 	if (defined $daddr) {
-	    if (VyattaTypeChecker::validate_iptables4_addr($daddr) eq "1") {
+	    if (Vyatta::TypeChecker::validate_iptables4_addr($daddr) eq "1") {
 		print FILE_LCK "\t\taddress \"" . $daddr . "\"\n";
 	    }
 	    else {
@@ -135,7 +135,7 @@ sub write_rules {
 	    if ($protocol eq "tcp" || $protocol eq "udp") {
 		$can_use_port = "yes";
 	    }
-	    ($port_str, $port_err) = VyattaMisc::getPortRuleString($option, $can_use_port, "d", $protocol);
+	    ($port_str, $port_err) = Vyatta::Misc::getPortRuleString($option, $can_use_port, "d", $protocol);
 	    if (defined $port_str) {
 		print FILE_LCK "\t\tport-ipt \"" . $port_str . "\"\n";
 	    }
@@ -154,7 +154,7 @@ sub write_rules {
 	print FILE_LCK "\tsource {\n";
 	my $saddr = $config->returnValue("$rule source address");
 	if (defined $saddr) {
-	    if (VyattaTypeChecker::validate_iptables4_addr($saddr) eq "1") {
+	    if (Vyatta::TypeChecker::validate_iptables4_addr($saddr) eq "1") {
 		print FILE_LCK "\t\taddress \"" . $saddr . "\"\n";
 	    }
 	    else {
@@ -172,7 +172,7 @@ sub write_rules {
 	    if ($protocol eq "tcp" || $protocol eq "udp") {
 		$can_use_port = "yes";
 	    }
-	    ($port_str, $port_err) = VyattaMisc::getPortRuleString($option, $can_use_port, "d", $protocol);
+	    ($port_str, $port_err) = Vyatta::Misc::getPortRuleString($option, $can_use_port, "d", $protocol);
 	    if (defined $port_str) {
 		print FILE_LCK "\t\tport-ipt \"" . $port_str . "\"\n";
 	    }
-- 
cgit v1.2.3