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

---
 lib/Vyatta/NatRule.pm        | 24 ++++++++++++------------
 scripts/vyatta-show-nat.pl   |  4 ++--
 scripts/vyatta-update-nat.pl |  4 ++--
 3 files changed, 16 insertions(+), 16 deletions(-)

diff --git a/lib/Vyatta/NatRule.pm b/lib/Vyatta/NatRule.pm
index 49029df..b1561a8 100644
--- a/lib/Vyatta/NatRule.pm
+++ b/lib/Vyatta/NatRule.pm
@@ -4,8 +4,8 @@ use strict;
 use lib "/opt/vyatta/share/perl5";
 require VyattaConfig;
 require Vyatta::IpTablesAddressFilter;
-use VyattaMisc;
-use VyattaTypeChecker;
+use Vyatta::Misc;
+use Vyatta::TypeChecker;
 
 my $src = new VyattaIpTablesAddressFilter;
 my $dst = new VyattaIpTablesAddressFilter;
@@ -178,15 +178,15 @@ sub rule_str {
     if (defined($self->{_outside_addr}->{_addr})) {
       my $addr = $self->{_outside_addr}->{_addr};
       return (undef, "\"$addr\" is not a valid IP address")
-        if (!VyattaTypeChecker::validateType('ipv4', $addr, 1));
+        if (!Vyatta::TypeChecker::validateType('ipv4', $addr, 1));
       $to_src .= $addr;
     } elsif (defined($self->{_outside_addr}->{_range}->{_start})
              && defined($self->{_outside_addr}->{_range}->{_stop})) {
       my $start = $self->{_outside_addr}->{_range}->{_start};
       my $stop = $self->{_outside_addr}->{_range}->{_stop};
       return (undef, "\"$start-$stop\" is not a valid IP range")
-        if (!VyattaTypeChecker::validateType('ipv4', $start, 1)
-            || !VyattaTypeChecker::validateType('ipv4', $stop, 1));
+        if (!Vyatta::TypeChecker::validateType('ipv4', $start, 1)
+            || !Vyatta::TypeChecker::validateType('ipv4', $stop, 1));
       $to_src .= "$start-$stop";
     }
    
@@ -205,11 +205,11 @@ sub rule_str {
       my ($success, $err) = (undef, undef);
       if ($self->{_outside_addr}->{_port} =~ /-/) {
         ($success, $err)
-          = VyattaMisc::isValidPortRange($self->{_outside_addr}->{_port}, '-');
+          = Vyatta::Misc::isValidPortRange($self->{_outside_addr}->{_port}, '-');
         return (undef, $err) if (!defined($success));
       } else {
         ($success, $err)
-          = VyattaMisc::isValidPortNumber($self->{_outside_addr}->{_port});
+          = Vyatta::Misc::isValidPortNumber($self->{_outside_addr}->{_port});
         return (undef, $err) if (!defined($success));
       }
       $to_src .= "$self->{_outside_addr}->{_port}";
@@ -254,15 +254,15 @@ sub rule_str {
     if (defined($self->{_inside_addr}->{_addr})) {
       my $addr = $self->{_inside_addr}->{_addr};
       return (undef, "\"$addr\" is not a valid IP address")
-        if (!VyattaTypeChecker::validateType('ipv4', $addr, 1));
+        if (!Vyatta::TypeChecker::validateType('ipv4', $addr, 1));
       $to_dst .= $addr;
     } elsif (defined($self->{_inside_addr}->{_range}->{_start})
              && defined($self->{_inside_addr}->{_range}->{_stop})) {
       my $start = $self->{_inside_addr}->{_range}->{_start};
       my $stop = $self->{_inside_addr}->{_range}->{_stop};
       return (undef, "\"$start-$stop\" is not a valid IP range")
-        if (!VyattaTypeChecker::validateType('ipv4', $start, 1)
-            || !VyattaTypeChecker::validateType('ipv4', $stop, 1));
+        if (!Vyatta::TypeChecker::validateType('ipv4', $start, 1)
+            || !Vyatta::TypeChecker::validateType('ipv4', $stop, 1));
       $to_dst .= "$start-$stop";
     } 
     
@@ -274,11 +274,11 @@ sub rule_str {
       my ($success, $err) = (undef, undef);
       if ($self->{_inside_addr}->{_port} =~ /-/) {
         ($success, $err)
-          = VyattaMisc::isValidPortRange($self->{_inside_addr}->{_port}, '-');
+          = Vyatta::Misc::isValidPortRange($self->{_inside_addr}->{_port}, '-');
         return (undef, $err) if (!defined($success));
       } else {
         ($success, $err)
-          = VyattaMisc::isValidPortNumber($self->{_inside_addr}->{_port});
+          = Vyatta::Misc::isValidPortNumber($self->{_inside_addr}->{_port});
         return (undef, $err) if (!defined($success));
       }
       $to_dst .= ":$self->{_inside_addr}->{_port}";
diff --git a/scripts/vyatta-show-nat.pl b/scripts/vyatta-show-nat.pl
index 8abce6d..7df9e4a 100755
--- a/scripts/vyatta-show-nat.pl
+++ b/scripts/vyatta-show-nat.pl
@@ -2,7 +2,7 @@
 
 use strict;
 use lib "/opt/vyatta/share/perl5";
-use VyattaConfig;
+use Vyatta::Config;
 use Vyatta::NatRule;
 
 sub numerically { $a <=> $b; }
@@ -45,7 +45,7 @@ print RENDER "<opcommand name='natrules'><format type='row'>\n";
 # get rid of the stats for PRE_SNAT_HOOK
 splice @{$stats{'source'}}, 0, 2;
 
-my $config = new VyattaConfig;
+my $config = new Vyatta::Config;
 $config->setLevel("service nat rule");
 my @rules_pre = $config->listOrigNodes();
 my $rule;
diff --git a/scripts/vyatta-update-nat.pl b/scripts/vyatta-update-nat.pl
index 9842309..e0f059e 100755
--- a/scripts/vyatta-update-nat.pl
+++ b/scripts/vyatta-update-nat.pl
@@ -2,7 +2,7 @@
 
 use strict;
 use lib "/opt/vyatta/share/perl5/";
-use VyattaConfig;
+use Vyatta::Config;
 use Vyatta::NatRule;
 
 sub numerically { $a <=> $b; }
@@ -24,7 +24,7 @@ sub raw_cleanup {
   }
 }
 
-my $config = new VyattaConfig;
+my $config = new Vyatta::Config;
 $config->setLevel("service nat rule");
 my %rules = $config->listNodeStatus();
 my $rule;
-- 
cgit v1.2.3