|
Linux server.jmdstrack.com 3.10.0-1160.119.1.el7.tuxcare.els10.x86_64 #1 SMP Fri Oct 11 21:40:41 UTC 2024 x86_64
/ scripts/ |
|
|
#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/cpdig Copyright 2022 cPanel, L.L.C.
# All rights reserved.
# copyright@cpanel.net http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited
package scripts::cpdig;
use strict;
use warnings;
=encoding utf-8
=head1 NAME
cpdig
=head1 USAGE
cpdig <name> <type> [--verbose]
=head1 DESCRIPTION
This script performs a DNS query using cPanel’s DNS resolver.
Its output should yield the same end results as C<dig +trace $name $type>.
cPanel provides this script solely for diagnostic purposes; no cPanel
& WHM feature requires its use.
=cut
use parent qw( Cpanel::HelpfulScript );
use Cpanel::DNS::Unbound;
use constant _OPTIONS => ('verbose');
use constant _ACCEPT_UNNAMED => 1;
__PACKAGE__->new(@ARGV)->run() if !caller;
sub run {
my ($self) = @_;
my ( $name, $type ) = $self->getopt_unnamed();
die $self->help() if grep { !$_ } $name, $type;
$type = uc($type);
my $dns = Cpanel::DNS::Unbound->new();
my $ret = $dns->recursive_queries( [ [ $name, $type ] ] )->[0];
if ( $self->getopt('verbose') ) {
print STDERR $ret->{debug};
}
my $data_ar = $ret->{'decoded_data'} || $ret->{result}{data};
my %FORMATTERS = (
'ARRAY' => sub { "@{$_[0]}" },
'HASH' => sub {
join ' ', map { "$_=$_[0]->{$_}" } sort keys %{ $_[0] };
}
);
foreach my $item ( @{$data_ar} ) {
my $type = ref $item;
if ( $type ne '' && defined $FORMATTERS{$type} ) {
$self->_print( $FORMATTERS{$type}->($item) . "\n" );
}
else {
$self->_print("$item\n");
}
}
return;
}
1;