mirror of
https://github.com/isc-projects/bind9.git
synced 2026-03-16 15:44:00 -04:00
67f4b9d2a6
Because of a typo, the fetch.pl script tries to extract the server
address from the input parameter 'a' instead of 's'. Fix the typo.
(cherry picked from commit aa7538fd38)
43 lines
1.1 KiB
Perl
43 lines
1.1 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.
|
|
|
|
# fetch.pl:
|
|
# Simple script to fetch HTTP content from the statistics channel
|
|
# of a BIND server. Fetches the full XML stats from 10.53.0.2 port
|
|
# 8853 by default; these can be overridden by command line arguments.
|
|
|
|
use File::Fetch;
|
|
use Getopt::Std;
|
|
|
|
sub usage {
|
|
print ("Usage: fetch.pl [-s address] [-p port] [path]\n");
|
|
exit 1;
|
|
}
|
|
|
|
my %options={};
|
|
getopts("s:p:", \%options);
|
|
|
|
my $addr = "10.53.0.2";
|
|
$addr = $options{s} if defined $options{s};
|
|
|
|
my $path = 'xml/v3';
|
|
if (@ARGV >= 1) {
|
|
$path = shift @ARGV;
|
|
}
|
|
|
|
my $port = 8853;
|
|
$port = $options{p} if defined $options{p};
|
|
|
|
my $ff = File::Fetch->new(uri => "http://$addr:$port/$path");
|
|
my $file = $ff->fetch() or die $ff->error;
|
|
print ("$file\n");
|