mirror of
https://github.com/isc-projects/bind9.git
synced 2026-03-10 10:11:39 -04:00
339fa5690a
The ditch.pl script is used to generate burst traffic without waiting for the responses. When running other tests in parallel, this can result in a ephemeral port clash, since the ditch.pl process closes the socket immediately. In rare occasions when the message ID also clashes with other tests' queries, it might result in an UnexpectedSource error from dnspython. Use a dedicated port EXTRAPORT8 which is reserved for each test as a source port for the burst traffic.
94 lines
2.3 KiB
Perl
94 lines
2.3 KiB
Perl
#!/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.
|
|
|
|
# This is a tool for sending queries via UDP to specified address and
|
|
# port, then exiting without waiting for a response.
|
|
#
|
|
# Usage: ditch.pl [-s <address>] [-p <port>] [filename]
|
|
#
|
|
# Input (in filename, if specified, otherwise stdin) is a series of one
|
|
# or more DNS names and types to send as queries, e.g.:
|
|
#
|
|
# www.example.com A
|
|
# www.example.org MX
|
|
#
|
|
# If not specified, address defaults to 127.0.0.1, port to 53.
|
|
|
|
require 5.006.001;
|
|
|
|
use strict;
|
|
use Getopt::Std;
|
|
use Net::DNS;
|
|
use Net::DNS::Packet;
|
|
use IO::File;
|
|
use IO::Socket;
|
|
|
|
sub usage {
|
|
print ("Usage: ditch.pl [-s address] [-p port] [-b source_port] [file]\n");
|
|
exit 1;
|
|
}
|
|
|
|
my %options={};
|
|
getopts("s:p:b:", \%options);
|
|
|
|
my $addr = "127.0.0.1";
|
|
$addr = $options{s} if defined $options{s};
|
|
|
|
my $port = 53;
|
|
$port = $options{p} if defined $options{p};
|
|
|
|
my $source_port = 0;
|
|
$source_port = $options{b} if defined $options{b};
|
|
|
|
my $file = "STDIN";
|
|
if (@ARGV >= 1) {
|
|
my $filename = shift @ARGV;
|
|
open FH, "<$filename" or die "$filename: $!";
|
|
$file = "FH";
|
|
}
|
|
|
|
my $input = "";
|
|
while (defined(my $line = <$file>) ) {
|
|
chomp $line;
|
|
next if ($line =~ m/^ *#/);
|
|
my @tokens = split (' ', $line);
|
|
|
|
my $packet;
|
|
if ($Net::DNS::VERSION > 0.68) {
|
|
$packet = new Net::DNS::Packet();
|
|
$@ and die $@;
|
|
} else {
|
|
my $err;
|
|
($packet, $err) = new Net::DNS::Packet();
|
|
$err and die $err;
|
|
}
|
|
|
|
my $q = new Net::DNS::Question($tokens[0], $tokens[1], "IN");
|
|
$packet->header->rd(1);
|
|
$packet->push(question => $q);
|
|
|
|
my $sock = IO::Socket::INET->new(
|
|
PeerAddr => $addr,
|
|
PeerPort => $port,
|
|
Proto => "udp",
|
|
LocalPort => $source_port,
|
|
) or die "$!";
|
|
|
|
my $bytes = $sock->send($packet->data);
|
|
#print ("sent $bytes bytes to $addr:$port:\n");
|
|
#print (" ", unpack("H* ", $packet->data), "\n");
|
|
|
|
$sock->close;
|
|
}
|
|
|
|
close $file;
|