diff options
| author | Stephen Hemminger <stephen.hemminger@vyatta.com> | 2008-11-21 17:07:23 -0800 |
|---|---|---|
| committer | Stephen Hemminger <stephen.hemminger@vyatta.com> | 2008-11-21 17:07:23 -0800 |
| commit | db4770b72d8e8cb51d7777e28df27207f470ae2e (patch) | |
| tree | 181c451270d2c4c06fef5f98c555179c5b86b9a0 /scripts | |
| parent | 0214d6af2bdaa782d8241b729a7cf5f9a0a60de5 (diff) | |
| download | vyatta-wanloadbalance-db4770b72d8e8cb51d7777e28df27207f470ae2e.tar.gz vyatta-wanloadbalance-db4770b72d8e8cb51d7777e28df27207f470ae2e.zip | |
Convert to Vyatta::
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/vyatta-wanloadbalance.pl | 18 |
1 files changed, 9 insertions, 9 deletions
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"; } |