1#!/usr/bin/perl 2 3# Copyright (C) Internet Systems Consortium, Inc. ("ISC") 4# 5# SPDX-License-Identifier: MPL-2.0 6# 7# This Source Code Form is subject to the terms of the Mozilla Public 8# License, v. 2.0. If a copy of the MPL was not distributed with this 9# file, you can obtain one at https://mozilla.org/MPL/2.0/. 10# 11# See the COPYRIGHT file distributed with this work for additional 12# information regarding copyright ownership. 13 14# fetch.pl: 15# Simple script to fetch HTTP content from the statistics channel 16# of a BIND server. Fetches the full XML stats from 10.53.0.2 port 17# 8853 by default; these can be overridden by command line arguments. 18 19use File::Fetch; 20use Getopt::Std; 21 22sub usage { 23 print ("Usage: fetch.pl [-s address] [-p port] [path]\n"); 24 exit 1; 25} 26 27my %options={}; 28getopts("s:p:", \%options); 29 30my $addr = "10.53.0.2"; 31$addr = $options{s} if defined $options{s}; 32 33my $path = 'xml/v3'; 34if (@ARGV >= 1) { 35 $path = shift @ARGV; 36} 37 38my $port = 8853; 39$port = $options{p} if defined $options{p}; 40 41my $ff = File::Fetch->new(uri => "http://$addr:$port/$path"); 42my $file = $ff->fetch() or die $ff->error; 43print ("$file\n"); 44