PNG  IHDR* pHYs+ IDATx]n#; cdLb Ǚ[at¤_:uP}>!Usă cag޿ ֵNu`ݼTâabO7uL&y^wFٝA"l[|ŲHLN밪4*sG3|Dv}?+y߉{OuOAt4Jj.u]Gz*҉sP'VQKbA1u\`& Af;HWj hsO;ogTu uj7S3/QzUr&wS`M$X_L7r2;aE+ώ%vikDA:dR+%KzƉo>eOth$z%: :{WwaQ:wz%4foɹE[9<]#ERINƻv溂E%P1i01 |Jvҗ&{b?9g=^wζXn/lK::90KwrюO\!ջ3uzuGv^;騢wq<Iatv09:tt~hEG`v;3@MNZD.1]L:{ծI3`L(÷ba")Y.iljCɄae#I"1 `3*Bdz>j<fU40⨬%O$3cGt]j%Fߠ_twJ;ABU8vP3uEԑwQ V:h%))LfraqX-ۿX]v-\9I gl8tzX ]ecm)-cgʒ#Uw=Wlێn(0hPP/ӨtQ“&J35 $=]r1{tLuǮ*i0_;NƝ8;-vݏr8+U-kruȕYr0RnC]*ެ(M:]gE;{]tg(#ZJ9y>utRDRMdr9㪩̞zֹb<ģ&wzJM"iI( .ꮅX)Qw:9,i좜\Ԛi7&N0:asϓc];=ΗOӣ APqz93 y $)A*kVHZwBƺnWNaby>XMN*45~ղM6Nvm;A=jֲ.~1}(9`KJ/V F9[=`~[;sRuk]rєT!)iQO)Y$V ی ۤmzWz5IM Zb )ˆC`6 rRa}qNmUfDsWuˤV{ Pݝ'=Kֳbg,UҘVz2ﴻnjNgBb{? ߮tcsͻQuxVCIY۠:(V뺕 ٥2;t`@Fo{Z9`;]wMzU~%UA蛚dI vGq\r82iu +St`cR.6U/M9IENDB` REDROOM
REDROOM
PHP 5.6.40
Preview: CheckIP.pm Size: 3.01 KB
//usr/src/csf/ConfigServer/CheckIP.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::CheckIP;

use strict;
use lib '/usr/local/csf/lib';
use Carp;
use Net::IP;
use ConfigServer::Config;

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

my $ipv4reg = ConfigServer::Config->ipv4reg;
my $ipv6reg = ConfigServer::Config->ipv6reg;

# end main
###############################################################################
# start checkip
sub checkip {
	my $ipin = shift;
	my $ret = 0;
	my $ipref = 0;
	my $ip;
	my $cidr;
	if (ref $ipin) {
		($ip,$cidr) = split(/\//,${$ipin});
		$ipref = 1;
	} else {
		($ip,$cidr) = split(/\//,$ipin);
	}
	my $testip = $ip;

	if ($cidr ne "") {
		unless ($cidr =~ /^\d+$/) {return 0}
	}

	if ($ip =~ /^$ipv4reg$/) {
		$ret = 4;
		if ($cidr) {
			unless ($cidr >= 1 && $cidr <= 32) {return 0}
		}
		if ($ip eq "127.0.0.1") {return 0}
	}

	if ($ip =~ /^$ipv6reg$/) {
		$ret = 6;
		if ($cidr) {
			unless ($cidr >= 1 && $cidr <= 128) {return 0}
		}
		$ip =~ s/://g;
		$ip =~ s/^0*//g;
		if ($ip == 1) {return 0}
		if ($ipref) {
			eval {
				local $SIG{__DIE__} = undef;
				my $netip = Net::IP->new($testip);
				my $myip = $netip->short();
				if ($myip ne "") {
					if ($cidr eq "") {
						${$ipin} = $myip;
					} else {
						${$ipin} = $myip."/".$cidr;
					}
				}
			};
			if ($@) {return 0}
		}
	}

	return $ret;
}
# end checkip
###############################################################################
# start cccheckip
sub cccheckip {
	my $ipin = shift;
	my $ret = 0;
	my $ipref = 0;
	my $ip;
	my $cidr;
	if (ref $ipin) {
		($ip,$cidr) = split(/\//,${$ipin});
		$ipref = 1;
	} else {
		($ip,$cidr) = split(/\//,$ipin);
	}
	my $testip = $ip;

	if ($cidr ne "") {
		unless ($cidr =~ /^\d+$/) {return 0}
	}

	if ($ip =~ /^$ipv4reg$/) {
		$ret = 4;
		if ($cidr) {
			unless ($cidr >= 1 && $cidr <= 32) {return 0}
		}
		if ($ip eq "127.0.0.1") {return 0}
		my $type;
		eval {
			local $SIG{__DIE__} = undef;
			my $netip = Net::IP->new($testip);
			$type = $netip->iptype();
		};
		if ($@) {return 0}
		if ($type ne "PUBLIC") {return 0}
	}

	if ($ip =~ /^$ipv6reg$/) {
		$ret = 6;
		if ($cidr) {
			unless ($cidr >= 1 && $cidr <= 128) {return 0}
		}
		$ip =~ s/://g;
		$ip =~ s/^0*//g;
		if ($ip == 1) {return 0}
		if ($ipref) {
			eval {
				local $SIG{__DIE__} = undef;
				my $netip = Net::IP->new($testip);
				my $myip = $netip->short();
				if ($myip ne "") {
					if ($cidr eq "") {
						${$ipin} = $myip;
					} else {
						${$ipin} = $myip."/".$cidr;
					}
				}
			};
			if ($@) {return 0}
		}
	}

	return $ret;
}
# end cccheckip
###############################################################################

1;

Directory Contents

Dirs: 0 × Files: 24
Name Size Perms Modified Actions
AbuseIP.pm
2.85 KB lrw-r--r-- 2023-07-26 15:40:34
Edit Download
CheckIP.pm
3.01 KB lrw-r--r-- 2024-09-20 10:36:03
Edit Download
CloudFlare.pm
15.15 KB lrw-r--r-- 2023-07-26 15:40:34
Edit Download
Config.pm
17.41 KB lrw-r--r-- 2025-02-25 16:16:09
Edit Download
cseUI.pm
36.03 KB lrw-r--r-- 2023-07-26 15:40:34
Edit Download
DisplayResellerUI.pm
10.16 KB lrw-r--r-- 2023-07-26 15:40:34
Edit Download
DisplayUI.pm
138.08 KB lrw-r--r-- 2023-07-26 15:40:34
Edit Download
GetEthDev.pm
3.62 KB lrw-r--r-- 2023-07-26 15:40:34
Edit Download
GetIPs.pm
2.19 KB lrw-r--r-- 2023-07-26 15:40:34
Edit Download
KillSSH.pm
2.43 KB lrw-r--r-- 2023-07-26 15:40:34
Edit Download
Logger.pm
1.83 KB lrw-r--r-- 2023-07-26 15:40:34
Edit Download
LookUpIP.pm
11.41 KB lrw-r--r-- 2024-02-15 11:55:30
Edit Download
Messenger.pm
41.43 KB lrw-r--r-- 2023-10-02 11:23:25
Edit Download
Ports.pm
5.69 KB lrw-r--r-- 2023-07-26 15:40:34
Edit Download
RBLCheck.pm
6.77 KB lrw-r--r-- 2023-07-26 15:40:34
Edit Download
RBLLookup.pm
2.92 KB lrw-r--r-- 2023-07-26 15:40:34
Edit Download
RegexMain.pm
44.17 KB lrw-r--r-- 2025-02-10 11:48:56
Edit Download
Sanity.pm
1.88 KB lrw-r--r-- 2023-07-26 15:40:34
Edit Download
Sendmail.pm
4.24 KB lrw-r--r-- 2023-07-26 15:40:34
Edit Download
ServerCheck.pm
77.62 KB lrw-r--r-- 2024-09-20 10:36:03
Edit Download
ServerStats.pm
134.43 KB lrw-r--r-- 2023-07-26 15:40:34
Edit Download
Service.pm
2.88 KB lrw-r--r-- 2023-07-26 15:40:34
Edit Download
Slurp.pm
1.56 KB lrw-r--r-- 2023-07-26 15:40:34
Edit Download
URLGet.pm
7.37 KB lrw-r--r-- 2025-02-10 12:06:08
Edit Download
If ZipArchive is unavailable, a .tar will be created (no compression).
© 2026 REDROOM — Secure File Manager. All rights reserved. Built with ❤️ & Red Dark UI