CyberCoveLLC/ConfigServerBackups
1
0
Fork 0
mirror of https://github.com/waytotheweb/scripts.git synced 2026-03-29 18:27:07 +00:00
Code Issues Packages Projects Releases Wiki Activity

GPL v3 Release

Browse Source
This commit is contained in:
chirpy
2025-08-28 15:15:56 +01:00
parent c15ade09f6
commit 2923c43f8f
494 changed files with 106870 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

95
csf/ConfigServer/GetIPs.pm Normal file
View File

@@ -0,0 +1,95 @@
###############################################################################
# Copyright (C) 2006-2025 Jonathan Michaelson
#
# https://github.com/waytotheweb/scripts
#
# This program is free software; you can redistribute it and/or modify it under
# the terms of the GNU General Public License as published by the Free Software
# Foundation; either version 3 of the License, or (at your option) any later
# version.
#
# This program is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
# details.
#
# You should have received a copy of the GNU General Public License along with
# this program; if not, see <https://www.gnu.org/licenses>.
###############################################################################
## 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;