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.

(cherry picked from commit 5110dbacb998d58547a6721f7e069fcbee7327d6)

diff --git a/bin/tests/system/statschannel/traffic-json.pl b/bin/tests/system/statschannel/traffic-json.pl
deleted file mode 100644 (file)
index 353d6c7..0000000
--- 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 (file)
index 5552cc5..0000000
--- 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";
-        }
-    }
-}