Convert to new Vyatta::Config hierarchy

5 files changed, 21 insertions, 21 deletions

diff --git a/scripts/bgp/vyatta-bgp.pl b/scripts/bgp/vyatta-bgp.pl
index 6f72a5c5..6ca3480e 100755
--- a/scripts/bgp/vyatta-bgp.pl
+++ b/scripts/bgp/vyatta-bgp.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 use lib "/opt/vyatta/share/perl5/";
-use VyattaConfig;
-use VyattaMisc;
+use Vyatta::Config;
+use Vyatta::Misc;
 use Getopt::Long;
 
 GetOptions("check-peer-name=s"      => \$peername,
@@ -61,7 +61,7 @@ sub check_peer_name() {
 # Make sure we aren't deleteing a peer-group that has 
 # neighbors configured to us it
 sub check_for_peer_groups() {
-  my $config = new VyattaConfig;
+  my $config = new Vyatta::Config;
   my $pg = shift;
   my $as = shift;
   my $node = $pg;
@@ -100,7 +100,7 @@ sub check_as() {
   my $pg = shift;
   my $neighbor = shift;
   my $as = shift;
-  my $config = new VyattaConfig;
+  my $config = new Vyatta::Config;
   my $pgtest = $neighbor;
 
   # if this is peer-group then short circuit this
diff --git a/scripts/policy/vyatta-policy.pl b/scripts/policy/vyatta-policy.pl
index 8fd94843..4a1ea4d8 100755
--- a/scripts/policy/vyatta-policy.pl
+++ b/scripts/policy/vyatta-policy.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 use lib "/opt/vyatta/share/perl5/";
-use VyattaConfig;
-use VyattaMisc;
+use Vyatta::Config;
+use Vyatta::Misc;
 use Getopt::Long;
 
 my $VTYSH='/usr/bin/vyatta-vtysh';
@@ -47,7 +47,7 @@ sub is_community_list {
 
 sub update_community_list() {
   my $num = shift;
-  my $config = new VyattaConfig;
+  my $config = new Vyatta::Config;
   my @rules = ();
   my $rule;
 
@@ -97,7 +97,7 @@ sub is_as_path_list {
 
 sub update_as_path() {
   my $word = shift;
-  my $config = new VyattaConfig;
+  my $config = new Vyatta::Config;
   my @rules = ();
   my $rule;
 
@@ -147,7 +147,7 @@ sub is_access_list {
 
 sub update_access_list() {
   my $list = shift;
-  my $config = new VyattaConfig;
+  my $config = new Vyatta::Config;
   my @rules = ();
   my $rule;
 
@@ -221,7 +221,7 @@ sub update_access_list() {
 # $1 = policy route-map <name> rule <num> action
 sub check_routemap_action() {
   my $routemap = shift;
-  my $config = new VyattaConfig;
+  my $config = new Vyatta::Config;
 
   my $action = $config->setLevel("$routemap");
   my $origvalue = $config->returnOrigValue();
@@ -241,7 +241,7 @@ sub check_routemap_action() {
 # $1 = policy route-map <name> rule <num>
 sub check_delete_routemap_action() {
   my $routemap = shift;
-  my $config = new VyattaConfig;
+  my $config = new Vyatta::Config;
 
   my @nodes = $config->listNodes("$routemap");
   if (defined @nodes) {
diff --git a/scripts/vyatta-gateway-static_route-check.pl b/scripts/vyatta-gateway-static_route-check.pl
index b90fca92..51de1604 100644
--- a/scripts/vyatta-gateway-static_route-check.pl
+++ b/scripts/vyatta-gateway-static_route-check.pl
@@ -33,12 +33,12 @@ use warnings;
 use lib "/opt/vyatta/share/perl5/";
 
 use NetAddr::IP;
-use VyattaConfig;
+use Vyatta::Config;
 
 
 if (($#ARGV == 1) && ($ARGV[0] eq '0.0.0.0/0')) {
     # check when deleting static-route
-    my $vcCHECK_GATEWAY = new VyattaConfig();
+    my $vcCHECK_GATEWAY = new Vyatta::Config();
     $vcCHECK_GATEWAY->setLevel('system');
     if ( $vcCHECK_GATEWAY->exists('.') ) {
      my $gateway_ip = $vcCHECK_GATEWAY->returnValue('gateway-address');
@@ -49,7 +49,7 @@ if (($#ARGV == 1) && ($ARGV[0] eq '0.0.0.0/0')) {
     
 } elsif ($#ARGV == 0) {
     # check when deleting gateway-address                
-    my $vcCHECK_STATIC_ROUTE = new VyattaConfig();
+    my $vcCHECK_STATIC_ROUTE = new Vyatta::Config();
     $vcCHECK_STATIC_ROUTE->setLevel('protocols static');
     if ( $vcCHECK_STATIC_ROUTE->exists('.') ) {
      my @routes = $vcCHECK_STATIC_ROUTE->listNodes("route");
diff --git a/scripts/vyatta-policy-action-verify.pl b/scripts/vyatta-policy-action-verify.pl
index 5ddd2974..acb7d272 100644
--- a/scripts/vyatta-policy-action-verify.pl
+++ b/scripts/vyatta-policy-action-verify.pl
@@ -23,8 +23,8 @@
 # **** End License ****
 #
 use lib "/opt/vyatta/share/perl5/";
-use VyattaConfig;
-use VyattaMisc;
+use Vyatta::Config;
+use Vyatta::Misc;
 
 use warnings;
 use strict;
@@ -41,7 +41,7 @@ if (!defined($rule) || !defined($route_map)) {
   exit 1;
 }
 
-my $config = new VyattaConfig;
+my $config = new Vyatta::Config;
 
 $config->setLevel('policy route-map $route_map rule $rule');
 if ($config->exists("action")) {
diff --git a/scripts/vyatta_quagga_utils.pl b/scripts/vyatta_quagga_utils.pl
index 8806e120..eaf83649 100644
--- a/scripts/vyatta_quagga_utils.pl
+++ b/scripts/vyatta_quagga_utils.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 use lib "/opt/vyatta/share/perl5/";
-use VyattaConfig;
-use VyattaMisc;
+use Vyatta::Config;
+use Vyatta::Misc;
 use NetAddr::IP;
 use Getopt::Long;
 
@@ -36,7 +36,7 @@ sub check_prefix_boundry() {
 
 sub check_exists() {
   my $node = shift;
-  my $config = new VyattaConfig;
+  my $config = new Vyatta::Config;
 
   if ( $config->exists("$node") ) {
     exit 0;
@@ -47,7 +47,7 @@ sub check_exists() {
 
 sub check_not_exists() {
   my $node = shift;
-  my $config = new VyattaConfig;
+  my $config = new Vyatta::Config;
 
   if (! $config->exists("$node") ) {
     exit 0;