Server IP : 162.241.126.129 / Your IP : 18.219.127.59 Web Server : Apache System : Linux 162-241-126-129.cprapid.com 4.18.0-477.27.2.el8_8.x86_64 #1 SMP Fri Sep 29 08:21:01 EDT 2023 x86_64 User : rvway5nu4 ( 1018) PHP Version : 7.4.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /proc/thread-self/root/scripts/ |
Upload File : |
#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/quickwhoisips 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 use strict; use Cpanel::Ips::Fetch (); use Socket; use Cpanel::Logger (); Cpanel::Logger->new()->deprecated("'$0' is deprecated, and will be removed in a later version of cPanel."); my %IPS; if ( !@ARGV ) { %IPS = Cpanel::Ips::Fetch::fetchipslist(); } else { %IPS = map { $_ => 1 } @ARGV; } my $proto = getprotobyname('tcp'); my $iaddr = gethostbyname('rs.internic.net'); my $port = getservbyname( 'whois', 'tcp' ); if ( !$port ) { $port = 43; } my $whoistimeout = 15; my $child = 0; foreach my $ip ( keys %IPS ) { if ( my $child <= 5 ) { if ( fork() ) { $child++; #master } else { my $name = whoisns($ip); print "$ip=$name\n"; exit; } } else { sleep 1; } while ( waitpid( -1, 1 ) > 0 ) { $child--; } } while ( waitpid( -1, 0 ) > 0 ) { $child--; } sub whoisns { my ( $ip, $req ) = @_; my ($gotanswer) = 0; my ($attempts) = 0; my ($ns) = ''; while ( !$gotanswer ) { $attempts++; eval { local $SIG{'__DIE__'} = 'DEFAULT'; local $SIG{'ALRM'} = sub { die; }; alarm($whoistimeout); my $internics; socket( $internics, &AF_INET, &SOCK_STREAM, $proto ); my $sin = sockaddr_in( $port, $iaddr ); connect( $internics, $sin ); send $internics, "$ip\r\n", 0; while (<$internics>) { if ( /ip address: (\S+)/i && $req == 1 ) { $attempts = 999; $ns = $1; last; } if ( /server name: (\S+)/i && $req != 1 ) { $attempts = 999; $ns = $1; last; } } alarm(0); }; alarm(0); if ( $attempts >= 3 ) { last; } } alarm(0); return ($ns); }