From: Michał Kępień <michal@isc.org>
Date: Sat, 25 Oct 2025 05:37:48 +0000 (+0200)
Subject: Remove unused Perl scripts
X-Git-Tag: v9.21.15~36^2
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5110dbacb998d58547a6721f7e069fcbee7327d6;p=thirdparty%2Fbind9.git

Remove unused Perl scripts

The traffic-json.pl and traffic-xml.pl scripts that were used in the
"statschannel" system test in the past became dead code when commit
1202fd912a1baa9c299f17caf4494bc21234da85 rewrote parts of that test to
Python.  Remove those scripts.
---

diff --git a/bin/tests/system/statschannel/traffic-json.pl b/bin/tests/system/statschannel/traffic-json.pl
deleted file mode 100644
index 353d6c761f0..00000000000
--- a/bin/tests/system/statschannel/traffic-json.pl
+++ /dev/null
@@ -1,49 +0,0 @@
-#!/usr/bin/perl
-
-# Copyright (C) Internet Systems Consortium, Inc. ("ISC")
-#
-# SPDX-License-Identifier: MPL-2.0
-#
-# This Source Code Form is subject to the terms of the Mozilla Public
-# License, v. 2.0.  If a copy of the MPL was not distributed with this
-# file, you can obtain one at https://mozilla.org/MPL/2.0/.
-#
-# See the COPYRIGHT file distributed with this work for additional
-# information regarding copyright ownership.
-
-# traffic-json.pl:
-# Parses the JSON version of the RSSAC002 traffic stats into a
-# normalized format.
-
-use JSON;
-
-my $file = $ARGV[0];
-open(INPUT, "<$file");
-my $text = do{local$/;<INPUT>};
-close(INPUT);
-
-my $ref = decode_json($text);
-
-my $tcprcvd = $ref->{traffic}->{"dns-tcp-requests-sizes-received-ipv4"};
-my $type = "tcp request-size ";
-foreach $key (keys %{$tcprcvd}) {
-    print $type . $key . ": ". $tcprcvd->{$key} ."\n";
-}
-
-my $tcpsent = $ref->{traffic}->{"dns-tcp-responses-sizes-sent-ipv4"};
-my $type = "tcp response-size ";
-foreach $key (keys %{$tcpsent}) {
-    print $type . $key . ": ". $tcpsent->{$key} ."\n";
-}
-
-my $udprcvd = $ref->{traffic}->{"dns-udp-requests-sizes-received-ipv4"};
-my $type = "udp request-size ";
-foreach $key (keys %{$udprcvd}) {
-    print $type . $key . ": ". $udprcvd->{$key} ."\n";
-}
-
-my $udpsent = $ref->{traffic}->{"dns-udp-responses-sizes-sent-ipv4"};
-my $type = "udp response-size ";
-foreach $key (keys %{$udpsent}) {
-    print $type . $key . ": ". $udpsent->{$key} ."\n";
-}
diff --git a/bin/tests/system/statschannel/traffic-xml.pl b/bin/tests/system/statschannel/traffic-xml.pl
deleted file mode 100644
index 5552cc5be93..00000000000
--- a/bin/tests/system/statschannel/traffic-xml.pl
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/usr/bin/perl
-
-# Copyright (C) Internet Systems Consortium, Inc. ("ISC")
-#
-# SPDX-License-Identifier: MPL-2.0
-#
-# This Source Code Form is subject to the terms of the Mozilla Public
-# License, v. 2.0.  If a copy of the MPL was not distributed with this
-# file, you can obtain one at https://mozilla.org/MPL/2.0/.
-#
-# See the COPYRIGHT file distributed with this work for additional
-# information regarding copyright ownership.
-
-# traffic-xml.pl:
-# Parses the XML version of the RSSAC002 traffic stats into a
-# normalized format.
-
-use XML::Simple;
-
-my $file = $ARGV[0];
-
-my $ref = XMLin($file);
-
-my $udp = $ref->{traffic}->{ipv4}->{udp}->{counters};
-foreach $group (@$udp) {
-    my $type = "udp " . $group->{type} . " ";
-    if (exists $group->{counter}->{name}) {
-        print $type . $group->{counter}->{name} . ": " . $group->{counter}->{content} . "\n";
-    } else {
-        foreach $key (keys %{$group->{counter}}) {
-            print $type . $key . ": ". $group->{counter}->{$key}->{content} ."\n";
-        }
-    }
-}
-
-my $tcp = $ref->{traffic}->{ipv4}->{tcp}->{counters};
-foreach $group (@$tcp) {
-    my $type = "tcp " . $group->{type} . " ";
-    if (exists $group->{counter}->{name}) {
-        print $type . $group->{counter}->{name} . ": " . $group->{counter}->{content} . "\n";
-    } else {
-        foreach $key (keys %{$group->{counter}}) {
-            print $type . $key . ": ". $group->{counter}->{$key}->{content} ."\n";
-        }
-    }
-}