summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniil Baturin <daniil@baturin.org>2018-06-05 20:50:18 +0200
committerDaniil Baturin <daniil@baturin.org>2018-06-05 20:50:18 +0200
commitc6240983f1f562f3ff7d3c092d256ba45bcaa2ee (patch)
treed19956c38cdfad8c6a8601e492f330dc40e73712
parent2a925cdc203cab2d8b8a3bd08ab6380f399b8bc9 (diff)
downloadvyatta-cfg-c6240983f1f562f3ff7d3c092d256ba45bcaa2ee.tar.gz
vyatta-cfg-c6240983f1f562f3ff7d3c092d256ba45bcaa2ee.zip
T684: remove the old config to command convertor.lithium
-rwxr-xr-xscripts/vyatta-config-gen-sets.pl87
1 files changed, 0 insertions, 87 deletions
diff --git a/scripts/vyatta-config-gen-sets.pl b/scripts/vyatta-config-gen-sets.pl
deleted file mode 100755
index 51a474a..0000000
--- a/scripts/vyatta-config-gen-sets.pl
+++ /dev/null
@@ -1,87 +0,0 @@
-#!/usr/bin/perl
-
-# Author: An-Cheng Huang <ancheng@vyatta.com>
-# Date: 2007
-# Description: hack of vyatta-config-load.pl to simple generate
-# a list of the "set" commands from a config file.
-
-# **** 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) 2006, 2007, 2008 Vyatta, Inc.
-# All Rights Reserved.
-# **** End License ****
-
-# Perl script for loading the startup config file.
-# $0: startup config file.
-
-use strict;
-use lib "/opt/vyatta/share/perl5/";
-use Vyatta::ConfigLoad;
-
-sub error
-{
- my $error = shift;
- print "$error\n";
- exit(1);
-}
-
-my $conf_file;
-my $conf_tmp = "/tmp/config.boot.$$";
-
-if (defined $ARGV[0]) {
- if ($ARGV[0] eq "-") {
- # The case for using it in a pipe
-
- # The loader can't handle uncommited changes,
- # it treats -/+/> as part of the config and produces garbage
- system("cli-shell-api sessionChanged")
- or error("Please commit or discard your changes before using \"commands\" filter!");
-
- my $input = "";
- while (<>) {
- $input .= $_;
- }
- open(my $fh, '>', $conf_tmp) or die "Could not open file '$conf_tmp' $!";
- print $fh $input;
- close $fh;
- $conf_file = $conf_tmp;
- } else {
- $conf_file = $ARGV[0];
- }
-} else {
- system("cli-shell-api showCfg --show-active-only > $conf_tmp");
- $conf_file = $conf_tmp;
-}
-
-# get a list of all config statement in the startup config file
-my %cfg_hier = Vyatta::ConfigLoad::getStartupConfigStatements($conf_file);
-my @all_nodes = @{ $cfg_hier{'set'} };
-if (scalar(@all_nodes) == 0) {
- # no config statements
- exit 1;
-}
-
-my $ret = 0;
-foreach (@all_nodes) {
- my ($path_ref) = @$_;
- my $elements = scalar(@$path_ref);
- my @non_leaf = @$path_ref[0 .. ($elements - 2)] ;
- my $path = join(' ', @non_leaf);
- $path =~ s/'//g;
- my $cmd = "set $path " . @$path_ref[($elements - 1)];
- print "$cmd\n";
-}
-
-system("rm -f $conf_tmp") if $conf_file eq $conf_tmp;
-
-exit 0;
-