Merge pull request #200 from dmbaturin/T671-dead-scripts

T671: remove unused scripts

6 files changed, 0 insertions, 369 deletions

diff --git a/Makefile.am b/Makefile.am
index e6681ede..88a1dedb 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -15,17 +15,12 @@ bin_SCRIPTS += scripts/restricted-shell
 
 bin_sudo_users_SCRIPTS += scripts/vyatta-tunnel-dhcp.pl
 sbin_SCRIPTS += scripts/vyatta-update-tunnel.pl
-sbin_SCRIPTS += scripts/vyatta-dhcp-helper.pl
 
 sbin_SCRIPTS += scripts/check_file_in_config_dir
 sbin_SCRIPTS += scripts/vyatta-grub-setup
 sbin_SCRIPTS += scripts/standalone_root_pw_reset
-sbin_SCRIPTS += scripts/system/vyatta_update_sysctl.pl
 sbin_SCRIPTS += scripts/snmp/if-mib-alias
 sbin_SCRIPTS += scripts/vyatta-interfaces.pl
-sbin_SCRIPTS += scripts/vyatta-address
-sbin_SCRIPTS += scripts/vyatta-tunnel-cleanup
-sbin_SCRIPTS += scripts/vyatta-raid-event
 sbin_SCRIPTS += scripts/install/install-get-partition
 sbin_SCRIPTS += scripts/install/install-functions
 sbin_SCRIPTS += scripts/install/install-image-new
diff --git a/scripts/system/vyatta_check_domainname.pl b/scripts/system/vyatta_check_domainname.pl
deleted file mode 100644
index a6e0d227..00000000
--- a/scripts/system/vyatta_check_domainname.pl
+++ /dev/null
@@ -1,72 +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) 2010 Vyatta, Inc.
-# All Rights Reserved.
-#
-# **** End License ****
-
-use strict;
-use warnings;
-
-# Source: http://en.wikipedia.org/wiki/Domain_Name_System
-# Rules for forming domain names appear in RFC 1035, RFC 1123, and RFC 2181.
-# A domain name consists of one or more parts, technically called labels,
-# that are conventionally concatenated, and delimited by dots, 
-# such as example.com.
-#
-#  * The right-most label conveys the top-level domain; for example,
-#   the domain name www.example.com belongs to the top-level domain com.
-#  * The hierarchy of domains descends from right to left; each label to
-#    the left specifies a subdivision, or subdomain of the domain to the
-#    right. For example: the label example specifies a subdomain of the
-#    com domain, and www is a sub domain of example.com. This tree of
-#    subdivisions may have up to 127 levels.
-# 
-# * Each label may contain up to 63 characters. The full domain name may
-#   not exceed a total length of 253 characters in its external
-#   dotted-label specification.[10] In the internal binary
-#   representation of the DNS the maximum length requires 255 octets of
-#   storage.[3] In practice, some domain registries may have shorter
-#   limits.[citation needed]
-# 
-#  * DNS names may technically consist of any character representable in
-#    an octet. However, the allowed formulation of domain names in the
-#    DNS root zone, and most other sub domains, uses a preferred format
-#    and character set. The characters allowed in a label are a subset
-#    of the ASCII character set, and includes the characters a through
-#    z, A through Z, digits 0 through 9, and the hyphen. This rule is
-#    known as the LDH rule (letters, digits, hyphen). Domain names are
-#    interpreted in case-independent manner. Labels may not start or end
-#    with a hyphen.[11]
-
-foreach my $fqdn (@ARGV) {
-    die "$fqdn: full domain length exceeds 253 characters\n"
-	if length($fqdn) > 253;
-
-    my @label = split /\./, $fqdn;
-    die "$fqdn: domain name greater than 127 levels\n"
-	if ($#label > 127);
-
-    foreach my $label (@label) {
-	die "$label: invalid character in domain name\n"
-	    unless $label =~ /^[-0-9a-zA-Z]+$/;
-
-	die "$label: label must not start or end with hyphen\n"
-	    if $label =~ /(^-)|(-$)/;
-
-	die "$label: domain name element greater than 63 characters\n"
-	    if (length($label) > 63);
-    }
-}
-    
diff --git a/scripts/system/vyatta_update_sysctl.pl b/scripts/system/vyatta_update_sysctl.pl
deleted file mode 100644
index adc84178..00000000
--- a/scripts/system/vyatta_update_sysctl.pl
+++ /dev/null
@@ -1,87 +0,0 @@
-#!/usr/bin/perl
-#
-# Module: vyatta_update_sysctl.pl
-# 
-# **** 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.
-#
-# A copy of the GNU General Public License is available as
-# `/usr/share/common-licenses/GPL' in the Debian GNU/Linux distribution
-# or on the World Wide Web at `http://www.gnu.org/copyleft/gpl.html'.
-# You can also obtain it by writing to the Free Software Foundation,
-# Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
-# MA 02110-1301, USA.
-# 
-# This code was originally developed by Vyatta, Inc.
-# Portions created by Vyatta are Copyright (C) 2007 Vyatta, Inc.
-# All Rights Reserved.
-# 
-# Author: Jason Hendry
-# Date: October 2014
-# Description: Script to manage sysctl values
-# 
-# **** End License ****
-#
-
-use lib "/opt/vyatta/share/perl5/";
-use Vyatta::Config;
-use Vyatta::File qw(touch);
-
-use Getopt::Long;
-
-use strict;
-use warnings;
-
-my $SYSCTL = '/sbin/sysctl';
-
-my (@opts);
-
-sub usage {
-    print <<EOF;
-Usage: $0 --option=<sysctl_option> <value>
-EOF
-    exit 1;
-}
-
-GetOptions(
-            "option=s{2,}"             => \@opts,
-            ) or usage();
-
-set_sysctl_value(@opts) if (@opts);
-exit 0;
-
-sub set_sysctl_value {
-    my ($sysctl_opt, @nvaluearr) = @_;
-    my $nvalue = join ' ',@nvaluearr;
-    my $ovalue = get_sysctl_value($sysctl_opt);
-
-    if ($nvalue ne $ovalue) {
-        my $cmd = "$SYSCTL -w $sysctl_opt=\"$nvalue\" 2>&1> /dev/null";
-        system($cmd);
-        if ($? >> 8) {
-            die "exec of $SYSCTL failed: '$cmd'";
-        } 
-    }
-}
-
-sub get_sysctl_value {
-    my $option = shift;
-    my $val;
-
-    open( my $sysctl, '-|', "$SYSCTL $option 2>&1" ) or die "sysctl failed: $!\n";
-    while (<$sysctl>) {
-        chomp;
-        $val = (split(/ = /, $_))[1];
-    }
-    close $sysctl;
-    return ($val);
-}
-
-# net.ipv4.ipfrag_time
diff --git a/scripts/vyatta-dhcp-helper.pl b/scripts/vyatta-dhcp-helper.pl
deleted file mode 100644
index 1001430e..00000000
--- a/scripts/vyatta-dhcp-helper.pl
+++ /dev/null
@@ -1,62 +0,0 @@
-#!/usr/bin/perl
-
-use Getopt::Long;
-use strict;
-use lib "/opt/vyatta/share/perl5";
-use Vyatta::Misc;
-
-my ($iface, $want);
-GetOptions("interface=s"    => \$iface,
-           "want=s"         => \$want);
-
-# Return the current router address from an interface that is
-# configured via dhcp. Return 127.0.0.1 for all errors.
-# This address will be used for the next hop address for static routes.
-
-sub get_dhcp_router {
-    my $dhcp_iface = pop(@_);
-    if (!Vyatta::Misc::is_dhcp_enabled($dhcp_iface,0)) {
-        return "127.0.0.1";
-    }
-    my $lease = "/var/lib/dhcp/dhclient_${dhcp_iface}.lease";
-    my $router = `grep new_routers= $lease | cut -d"'" -f2`;
-    my @r = split(/,/, $router);
-    $router = $r[0];
-    # Make sure the result looks like a IP
-    if ($router !~ /\d+\.\d+\.\d+\.\d+/) {
-        return "127.0.0.1";
-    }
-    # Remove trailing newlines
-    $router =~ s/\n$//;
-    return $router;
-}
-
-
-# Return the current ipv4 address from an interface that is
-# configured via dhcp. Return 127.0.0.1 for all errors.
-# This address will be used for the local-ip for tunnels,
-
-sub get_dhcp_addr {
-    my $dhcp_iface = pop(@_);
-    if (!Vyatta::Misc::is_dhcp_enabled($dhcp_iface,0)) {
-        return "127.0.0.1";
-    }
-    my @dhcp_addr = Vyatta::Misc::getIP($dhcp_iface,4);
-    my $addr = pop(@dhcp_addr);
-    if (!defined($addr)) {
-        return "127.0.0.1";
-    }
-    @dhcp_addr = split(/\//, $addr);
-    $addr = $dhcp_addr[0];
-    return $addr;
-}
-
-
-if ($want eq 'local') {
-    print get_dhcp_addr($iface);
-}
-else {
-    print get_dhcp_router($iface);
-}
-exit 0;
-
diff --git a/scripts/vyatta-raid-event b/scripts/vyatta-raid-event
deleted file mode 100755
index 2c193da5..00000000
--- a/scripts/vyatta-raid-event
+++ /dev/null
@@ -1,113 +0,0 @@
-#!/bin/bash
-#
-# **** 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 Vyatta, Inc.
-# All Rights Reserved.
-#
-# Author: Bob Gilligan <gilligan@vyatta.com>
-# Date: 2008
-# Description: A script to handle events from the Linux Software RAID 
-#              subsystem.
-#
-# **** End License ****
-#
-# This script is called by the "mdadm" daemon running in "monitor" mode
-# whenever an event occurs in in the RAID subsytem.  The script is called
-# with two or three arguments: The first argument is always the name of
-# the event, e.g. "RebuildFinished".  The second argument is the name of
-# the RAID set device that the event pertains to, e.g. "/dev/md0".  The
-# third argument is provided for some events, and gives the name of the
-# RAID set member that the event pertains to, e.g. "/dev/sda2".
-#
-# See the mdadm(8) man page for more details on the events that it provides.
-#
-
-# Script will be called with 2 or 3 arguments, depending on the event
-if [ $# -lt 2 ]; then
-	logger -t "RAID" -p local0.warning "vyatta-raid-event: Error: Not enough args: $*"
-	# We can't do anything if we don't know event and RAID device it
-	# pertains to.
-	exit 1
-fi
-if [ $# -gt 3 ]; then
-	logger -t "RAID" -p local0.warning "vyatta-raid-event: Warning: too many args: $*"
-	# Be Robust: Try to complete task with args we know about
-fi
-
-event=$1
-raid_set=$2
-
-case $event in
-
-    RebuildFinished)
-    logger -t "RAID" -p local0.warning "event ${event} ${raid_set}"
-
-    # We need to update grub at the time that a resync completes
-    # on the root filesystem so that the new member disk will be
-    # bootable.
-    root_dir=/
-    mounted_on_root=0
-    mounted_on=`mount | grep "^${raid_set}" | awk '{ print $3 }'`
-    for dir in $mounted_on ; do
-	if [ "$dir" = "/" -o "$dir" = "/live/image" ]; then
-	    mounted_on_root=1
-	    root_dir=$dir
-	fi
-    done
-
-    if [ $mounted_on_root -eq 1 ]; then
-	raid_set_dev=${raid_set##*/}
-	if [ -e /sys/block/${raid_set_dev}/md/degraded ]; then
-	    degraded=`cat /sys/block/${raid_set_dev}/md/degraded`
-	else
-	    degraded=0
-	fi
-	if [ $degraded -eq 0 ]; then
-            drive=${member_to_add%%[0-9]*}
-            logger -t "RAID" -p local0.warning \
-		"RAID set ${raid_set} holds root filesystem. Updating grub."
-	    touch /tmp/raid-grub-install-log
-            grub-install --no-floppy --recheck --root-directory=${root_dir} ${raid_set} \
-		>> /tmp/raid-grub-install-log 2>&1
-	    if [ $? -ne 0 ]; then
-		logger -t "RAID" -p local0.warning \
-		    "grub-installed failed for $raid_set"
-	    fi
-	else
-	    logger -t "RAID" -p local0.warning \
-		"RAID set ${raid_set} is still degraded.  No action taken."
-	fi
-    else
-	logger -t "RAID" -p local0.warning \
-	    "RAID set ${raid_set} does not hold root filesystem.  No action taken"
-    fi
-    ;;
-
-    DeviceDisappeared | RebuildStarted | Rebuild?? | NewArray | \
-	DegradedArray | MoveSpare | SparesMissing | TestMessage)
-    logger -t "RAID" -p local0.warning \
-	"event ${event} ${raid_set}: No action taken"
-    ;;
-
-    Fail | FailSpare | SpareActive)
-    member=$3
-    logger -t "RAID" -p local0.warning \
-	"event ${event} ${raid_set} ${member}: No action taken"
-    ;;
-
-    *)
-    logger -t "RAID" -p local0.warning \
-	"event ${event} unknown. No action taken"
-    ;;
-    
-    esac
diff --git a/scripts/vyatta-tunnel-cleanup b/scripts/vyatta-tunnel-cleanup
deleted file mode 100755
index b8a93244..00000000
--- a/scripts/vyatta-tunnel-cleanup
+++ /dev/null
@@ -1,30 +0,0 @@
-#! /usr/bin/perl
-
-# This script gets run after tunnels have been deleted, it removes
-# the underlying tunnel link, if all tunnels of that type are gone.
-
-use strict;
-use warnings;
-use lib "/opt/vyatta/share/perl5";
-use Vyatta::Config;
-
-# encapsulations and module names
-my %encapsulation = (
-    'gre'  => 'ip_gre',
-    'ipip' => 'ipip',
-    'sit'  => 'sit',
-);
-
-# interface being deleted
-my $interface = $ARGV[0];
-
-# Create map of encapsulations still in use
-my $config = new Vyatta::Config;
-$config->setLevel("interfaces tunnel");
-
-my %tunnel;
-foreach my $tun ( $config->listEffectiveNodes() ) {
-    my $mode = $config->returnEffectiveValue("$tun encapsulation");
-    next if ($interface eq $tun); # don't count the one being deleted
-    $tunnel{$mode} = 1;
-}