From 25b0a95af7f30e95fa62bfe91c142b51ceef2d84 Mon Sep 17 00:00:00 2001 From: Daniil Baturin Date: Sat, 15 Apr 2023 03:35:32 +0100 Subject: T671: remove unused scripts --- scripts/system/vyatta_check_domainname.pl | 72 ------------------- scripts/system/vyatta_update_sysctl.pl | 87 ----------------------- scripts/vyatta-dhcp-helper.pl | 62 ---------------- scripts/vyatta-raid-event | 113 ------------------------------ scripts/vyatta-tunnel-cleanup | 30 -------- 5 files changed, 364 deletions(-) delete mode 100644 scripts/system/vyatta_check_domainname.pl delete mode 100644 scripts/system/vyatta_update_sysctl.pl delete mode 100644 scripts/vyatta-dhcp-helper.pl delete mode 100755 scripts/vyatta-raid-event delete mode 100755 scripts/vyatta-tunnel-cleanup (limited to 'scripts') 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 - 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 -# 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; -} -- cgit v1.2.3