Na}{

File Content: `GetIPs.pm`

###############################################################################
# Copyright 2006-2023, Way to the Web Limited
# URL: http://www.configserver.com
# Email: sales@waytotheweb.com
###############################################################################
## no critic (RequireUseWarnings, ProhibitExplicitReturnUndef, ProhibitMixedBooleanOperators, RequireBriefOpen)
# start main
package ConfigServer::GetIPs;

use strict;
use lib '/usr/local/csf/lib';
use Carp;
use Socket;
use IPC::Open3;
use ConfigServer::Config;

use Exporter qw(import);
our $VERSION     = 1.03;
our @ISA         = qw(Exporter);
our @EXPORT_OK   = qw(getips);

my $config = ConfigServer::Config->loadconfig();
my %config = $config->config();
my $ipv4reg = ConfigServer::Config->ipv4reg;
my $ipv6reg = ConfigServer::Config->ipv6reg;

# end main
###############################################################################
# start getips
sub getips {
	my $hostname = shift;
	my @ips;

	if (-e $config{HOST} and -x $config{HOST}) {
		my $cmdpid;
		eval {
			local $SIG{__DIE__} = undef;
			local $SIG{'ALRM'} = sub {die};
			alarm(10);
			my ($childin, $childout);
			$cmdpid = open3($childin, $childout, $childout, $config{HOST},"-W","5",$hostname);
			close $childin;
			my @results = <$childout>;
			waitpid ($cmdpid, 0);
			chomp @results;

			foreach my $line (@results) {
				if ($line =~ /($ipv4reg|$ipv6reg)/) {push @ips, $1}
			}
			alarm(0);
		};
		alarm(0);
		if ($cmdpid =~ /\d+/ and $cmdpid > 1 and kill(0,$cmdpid)) {kill(9,$cmdpid)}
	} else {
		local $SIG{__DIE__} = undef;
		eval ('use Socket6;');
		if ($@) {
			my @iplist;
			my (undef, undef, undef, undef, @addrs) = gethostbyname($hostname);
			foreach (@addrs) {push(@iplist,join(".",unpack("C4", $_)))}
			push @ips,$_ foreach(@iplist);
		} else {
			eval ('
				use Socket6;
				my @res = getaddrinfo($hostname, undef, AF_UNSPEC, SOCK_STREAM);
				while(scalar(@res)>=5){
					my $saddr;
					(undef, undef, undef, $saddr, undef, @res) = @res;
					my ($host, undef) = getnameinfo($saddr,NI_NUMERICHOST | NI_NUMERICSERV);
					push @ips,$host;

				}
			');
		}
	}

	return @ips;
}
# end getips
###############################################################################

1;

Name	Size	Permission
AbuseIP.pm	2915 bytes	0644
CheckIP.pm	3078 bytes	0644
CloudFlare.pm	15517 bytes	0644
Config.pm	17271 bytes	0644
DisplayResellerUI.pm	10405 bytes	0644
DisplayUI.pm	141389 bytes	0644
GetEthDev.pm	3705 bytes	0644
GetIPs.pm	2239 bytes	0644
KillSSH.pm	2489 bytes	0644
Logger.pm	1878 bytes	0644
LookUpIP.pm	11682 bytes	0644
Messenger.pm	42427 bytes	0644
Ports.pm	5823 bytes	0644
RBLCheck.pm	6937 bytes	0644
RBLLookup.pm	2987 bytes	0644
RegexMain.pm	45141 bytes	0644
Sanity.pm	1923 bytes	0644
Sendmail.pm	4337 bytes	0644
ServerCheck.pm	79482 bytes	0644
ServerStats.pm	137657 bytes	0644
Service.pm	2946 bytes	0644
Slurp.pm	1598 bytes	0644
URLGet.pm	7544 bytes	0644
cseUI.pm	36897 bytes	0644

File Content: GetIPs.pm

File Content: `GetIPs.pm`