-- Redirect Unregistered 2.01
--
-- Redirect Unregistered Users by user IP
-- Specify Redirect address or use Hub's redirect address
-- by Mutor The Ugly
--
--User Settings-------------------------------------------------------------------------------------
DeniedIPs = {
	"62.65.180.1",	--Specify IP's to block
	"62.65.180.2",
	"62.65.180.3",
	"62.65.180.4",
	"62.65.180.5",
	"62.65.180.6",
	"62.65.180.7",
	"62.65.180.8",
	"62.65.180.9",
	"62.65.180.10",
	"62.65.180.11",
	"62.65.180.12",
	"62.65.180.13",
	"62.65.180.14",
	"62.65.180.15",
	"62.65.180.16",
	"62.65.180.18",
	"62.65.180.19",
	"62.65.180.20",
--	"192.168.0.102",	--Test IP
}


UseHubRedirAddy = "1"		--Use the redirect address from Px "1"= yes 0="no"
RedirAddy = "reghub.no-ip.com"	--Specify the Redirect Address
Bot = "[Sentry]"		--Rename to your main Px bot
RedirMsg = "This hub requires you to register. You are being redirected to a registration hub."
--End User Settings----------------------------------------------------------------------------------
--

function Main()
	frmHub:EnableFullData(1)
end

function NewUserConnected(user, data)
	if user.iProfile == -1 then
	CheckIP(user)
	end
end

function CheckIP(user)
	local IP = user.sIP
user:SendData(Bot,IP)
	for key, value in DeniedIPs do
		if strsub(IP, 1, strlen(value)) == value then
		--if strsub(IP, 1, strlen(user.sIP)) == value then --Use this to block matching ranges
			user:SendData(Bot,IP.." "..value)
			RedirUser(user)
			return
		end
	end
end

function RedirUser(user)
	user:SendData(Bot, RedirMsg)
		if UseHubRedirAddy == "1" then
			RedirAddy = frmHub:GetRedirectAddress()
		end
			user:SendData(RedirCmd)
end

RedirCmd = "$ForceMove "..RedirAddy