From 25b0a95af7f30e95fa62bfe91c142b51ceef2d84 Mon Sep 17 00:00:00 2001
From: Daniil Baturin <daniil@baturin.org>
Date: Sat, 15 Apr 2023 03:35:32 +0100
Subject: T671: remove unused scripts

---
 scripts/vyatta-tunnel-cleanup | 30 ------------------------------
 1 file changed, 30 deletions(-)
 delete mode 100755 scripts/vyatta-tunnel-cleanup

(limited to 'scripts/vyatta-tunnel-cleanup')

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