diff options
author | Stig Thormodsrud <stig@vyatta.com> | 2008-06-24 20:39:29 -0700 |
---|---|---|
committer | Stig Thormodsrud <stig@vyatta.com> | 2008-06-24 20:39:29 -0700 |
commit | 508087a450210fb6bfb4489f118c82f9515f61f5 (patch) | |
tree | 62f427f9ec5f4fb12335d8d4bfe66a551305c706 /scripts | |
parent | 82c0cd30275f8cbfcec95cdc129e4f88cea12f0f (diff) | |
download | vyatta-cfg-508087a450210fb6bfb4489f118c82f9515f61f5.tar.gz vyatta-cfg-508087a450210fb6bfb4489f118c82f9515f61f5.zip |
Fix 2619: Implement something similar to Juniper's "show | display set" functionality.
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/vyatta-config-gen-sets.pl | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/scripts/vyatta-config-gen-sets.pl b/scripts/vyatta-config-gen-sets.pl new file mode 100644 index 0000000..b9b083e --- /dev/null +++ b/scripts/vyatta-config-gen-sets.pl @@ -0,0 +1,58 @@ +#!/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 VyattaConfigLoad; + +my $conf_file = '/opt/vyatta/etc/config/config.boot'; + +$conf_file = $ARGV[0] if defined $ARGV[0]; + +# get a list of all config statement in the startup config file +# (sorted by rank). +my @all_nodes = VyattaConfigLoad::getStartupConfigStatements($conf_file); +if (scalar(@all_nodes) == 0) { + # no config statements + exit 1; +} +my $cur_rank = ${$all_nodes[0]}[1]; + +my $ret = 0; +# higher-ranked statements committed before lower-ranked. +foreach (@all_nodes) { + my ($path_ref, $rank) = @$_; + if ($rank != $cur_rank) { + # commit all nodes with the same rank together. + print "commit\n"; + $cur_rank = $rank; + } + my $cmd = "set " . (join ' ', @$path_ref); + print "$cmd\n"; +} +print "commit\n"; + +exit 0; + |