summaryrefslogtreecommitdiff
path: root/scripts/system/vyatta_update_login.pl
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/system/vyatta_update_login.pl')
-rwxr-xr-xscripts/system/vyatta_update_login.pl8
1 files changed, 4 insertions, 4 deletions
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;