diff options
| -rw-r--r-- | Makefile.am | 2 | ||||
| -rwxr-xr-x | scripts/vyatta-show-protocols | 59 |
2 files changed, 0 insertions, 61 deletions
diff --git a/Makefile.am b/Makefile.am index 836a94ac..df92558e 100644 --- a/Makefile.am +++ b/Makefile.am @@ -3,8 +3,6 @@ cfgdir = $(datadir)/vyatta-cfg/templates curverdir = $(sysconfdir)/config-migrate/current gentmpdir = generated-templates -bin_SCRIPTS = scripts/vyatta-show-protocols - sbin_SCRIPTS = scripts/bgp/vyatta-bgp.pl sbin_SCRIPTS += scripts/policy/vyatta-policy.pl sbin_SCRIPTS += scripts/vyatta_quagga_utils.pl diff --git a/scripts/vyatta-show-protocols b/scripts/vyatta-show-protocols deleted file mode 100755 index 51450632..00000000 --- a/scripts/vyatta-show-protocols +++ /dev/null @@ -1,59 +0,0 @@ -#! /usr/bin/perl -# Author: Stephen Hemminger -# Date: 2009 -# Description: Helper script to display configured protocols - -# **** 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 **** - -use lib "/opt/vyatta/share/perl5"; -use Vyatta::Config; -use strict; -use warnings; - -# Map from command line to config->XXX() function -my %actions = ( - 'original' => 'existsOrig', - 'exists' => 'exists', - 'added' => 'isAdded', - 'changed' => 'isChanged', - 'deleted' => 'isDeleted', - 'modified' => 'isChangedOrDeleted', -); - -my %daemons = ( - 'bgp' => 'bgpd', - 'ospf' => 'ospfd', - 'ospfv3' => 'ospf6d', - 'rip' => 'ripd', - 'ripng' => 'ripngd', - 'isis' => 'isisd', -); - -sub usage { - die "Usage: $0 {",join('|',keys %actions),"}\n" -} - -usage if ($#ARGV == -1); -my $match = $actions{$ARGV[0]}; -usage unless $match; - -my $config = new Vyatta::Config; -$config->setLevel('protocols'); - -# Should have avoided the urge to do Perl golf here... -my @found = grep { $config->$match($_) } keys %daemons; -print join(' ', map { $daemons{$_} } @found),"\n"; - |