From 0840e9783053522cdec2826aa200c80921b6e7b8 Mon Sep 17 00:00:00 2001
From: Christian Poessinger <christian@poessinger.com>
Date: Wed, 5 Feb 2020 19:30:33 +0100
Subject: login: T1990: Migrate "system login" to XML/Python representation

---
 scripts/system/vyatta_update_login.pl | 41 -----------------------------------
 1 file changed, 41 deletions(-)
 delete mode 100755 scripts/system/vyatta_update_login.pl

(limited to 'scripts/system')

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);
-}
-- 
cgit v1.2.3