Current Path : /scripts/ |
|
Current File : //scripts/cpdig |
#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/cpdig Copyright 2019 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;
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};
$self->_print( ( ref() ? "@$_" : $_ ) . "\n" ) for @$data_ar;
return;
}
1;
Copyright 2K16 - 2K18 Indonesian Hacker Rulez