From 62af8baf3a696f774430117927440c114248a81d Mon Sep 17 00:00:00 2001
From: Stephen Hemminger <stephen.hemminger@vyatta.com>
Date: Fri, 21 Nov 2008 17:05:44 -0800
Subject: Convert to Vyatta::Config hierarchy

---
 scripts/system/vyatta_update_login.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'scripts/system/vyatta_update_login.pl')

diff --git a/scripts/system/vyatta_update_login.pl b/scripts/system/vyatta_update_login.pl
index ad33412a..eb7baeee 100755
--- a/scripts/system/vyatta_update_login.pl
+++ b/scripts/system/vyatta_update_login.pl
@@ -18,10 +18,10 @@
 
 use strict;
 use lib "/opt/vyatta/share/perl5";
-use VyattaConfig;
+use Vyatta::Config;
 
 # handle "user"
-my $uconfig = new VyattaConfig;
+my $uconfig = new Vyatta::Config;
 $uconfig->setLevel("system login user");
 
 my %users     = $uconfig->listNodeStatus();
@@ -170,7 +170,7 @@ sub remove_tacacs {
 # Finally, service and protocol will need to be removed.  They are just 
 # in there for troubleshootig purposes right now.
 #
-my $tconfig = new VyattaConfig;
+my $tconfig = new Vyatta::Config;
 if ($tconfig->isDeleted("system login tacacs-plus")) { remove_tacacs; }
 $tconfig->setLevel("system login tacacs-plus");
 my @tacacs_params = $tconfig->listNodes();
@@ -291,7 +291,7 @@ sub add_radius_servers {
 }
 
 # handle "radius-server"
-my $rconfig = new VyattaConfig;
+my $rconfig = new Vyatta::Config;
 $rconfig->setLevel("system login radius-server");
 my %servers     = $rconfig->listNodeStatus();
 my @server_keys = sort keys %servers;
-- 
cgit v1.2.3