upstream/bind9
1
0
Fork 0
mirror of https://github.com/isc-projects/bind9.git synced 2026-06-11 05:19:59 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

Remove unused Perl scripts

Browse source 
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
1202fd912a rewrote parts of that test to
Python.  Remove those scripts.
This commit is contained in:
Michał Kępień 2025-10-25 07:37:48 +02:00
parent d08addc2be
commit 5110dbacb9
No known key found for this signature in database
2 changed files with 0 additions and 95 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

49
bin/tests/system/statschannel/traffic-json.pl
View file

@ -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";
}

46
bin/tests/system/statschannel/traffic-xml.pl
View file

@ -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";
}
}
}