login: T1990: Migrate "system login" to XML/Python representation

1 files changed, 0 insertions, 41 deletions

diff --git a/scripts/system/vyatta_update_login.pl b/scripts/system/vyatta_update_login.pl
deleted file mode 100755
index 41172c55..00000000
--- a/scripts/system/vyatta_update_login.pl
+++ /dev/null
@@ -1,41 +0,0 @@
-#!/usr/bin/perl
-
-# **** License ****
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License version 2 as
-# published by the Free Software Foundation.
-#
-# This program is distributed in the hope that it will be useful, but
-# WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-# General Public License for more details.
-#
-# This code was originally developed by Vyatta, Inc.
-# Portions created by Vyatta are Copyright (C) 2007 Vyatta, Inc.
-# All Rights Reserved.
-#
-# **** End License ****
-
-use strict;
-use lib "/opt/vyatta/share/perl5";
-use Vyatta::Config;
-
-# This is just a simple wrapper that allows for extensiblility
-# of login types.
-
-my $config = new Vyatta::Config;
-$config->setLevel("system login");
-
-my %loginNodes = $config->listNodeStatus();
-while ( my ($type, $status) = each %loginNodes) {
-    next if ($status eq 'static');
-    next if ($type eq 'banner');
-
-    # Dynamically load the module to handle that login method
-    my $kind = ucfirst $type;
-    require "Vyatta/Login/$kind.pm";
-
-    # Dynamically invoke update for this type
-    my $login    = "Vyatta::Login::$kind";
-    $login->update($status);
-}