SM0 She11

Full Path (server): /tmp/csf/ConfigServer

📄 AbuseIP.pm [E] [D]
📄 CheckIP.pm [E] [D]
📄 CloudFlare.pm [E] [D]
📄 Config.pm [E] [D]
📄 DisplayResellerUI.pm [E] [D]
📄 DisplayUI.pm [E] [D]
📄 GetEthDev.pm [E] [D]
📄 GetIPs.pm [E] [D]
📄 KillSSH.pm [E] [D]
📄 Logger.pm [E] [D]
📄 LookUpIP.pm [E] [D]
📄 Messenger.pm [E] [D]
📄 Ports.pm [E] [D]
📄 RBLCheck.pm [E] [D]
📄 RBLLookup.pm [E] [D]
📄 RegexMain.pm [E] [D]
📄 Sanity.pm [E] [D]
📄 Sendmail.pm [E] [D]
📄 ServerCheck.pm [E] [D]
📄 ServerStats.pm [E] [D]
📄 Service.pm [E] [D]
📄 Slurp.pm [E] [D]
📄 URLGet.pm [E] [D]
📄 cseUI.pm [E] [D]

Editing: CheckIP.pm

###############################################################################
# Copyright 2006-2018, 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::CIDR::Lite;
use Net::IP;
use ConfigServer::Config;

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

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;
				if ($cidr eq "") {
					my $netip = Net::IP->new($testip);
					my $myip = $netip->short();
					if ($myip ne "") {
						${$ipin} = $myip;
					}
				} else {
					my $cip = Net::CIDR::Lite->new;
					$cip->add("$testip/$cidr");
					my @cip_list = $cip->list;
					if (scalar(@cip_list) == 1) {
						${$ipin} = $cip_list[0];
					}
				}
			};
		}
	}

return $ret;
}
# end checkip
###############################################################################