-------------------------------------------------
-- Client Specs .03 --
-------------------------------------------------
-- By Mutor the Ugly
-- *Displays users client information at login
-- *Clone killer (disallow multiple connections
-- from single IP. Can allow clones certain profiles 
-- *Alerts user of incorrect IP setting for active 
-- mode when a user conducts a search. User is
-- disconnected as they need to restart client
-- after updating IP settings anyway. 8-)
--
-- Based on Client-Shield by NightLitch 2004-03-11
-- and Correct-IP-V.1 for Active users by chiller
-- Great work guys.... thx 
-------------------------------------------------


sBot = "[LoginBot]" -- Set this to your liking.

--
sClients = {
{ "<oDC","oDC" },
{ "<++","DC++" },
{ "<DC:PRO","DC:PRO" },
{ "<DCGUI","DCGUI" },
{ "<DCTC","DCTC" },
{ "http://dc.ketelhot.de","DCGUI" },
{ "<DC%s","NeoModus 2" },
{ "<iDC","iDC" },
{ "zDC++","zDC++" },
{ "<MS++V>","MS++" },
{ "<CDM","DC++k CDM" },
{ "<.P>","Phantom DC++" },
{ "<StrgDC++","Strong DC++"},
}

function Main()
	frmHub:EnableFullData(1)
	frmHub:EnableSearchData(1)
	frmHub:RegBot(sBot)
end


function DataArrival(curUser, data)
	local _,_, test = strfind(data,"$GetINFO%s+(%S+)%s+")
		if curUser.bOperator or curUser.iProfile == 0 then return end -- Allow certain profiles to be exempt
			if test ~= curUser.sName then
				Test = GetItemByName(test)
				if Test ~= nil then 
				if Test.sIP == curUser.sIP    then
				curUser:SendPM(sBot,"This hub does not allow the use of clones. Hit the bricks, ya leecher!")
				curUser:Disconnect()
				SendPmToNick(Test.sName,sBot,"This hub does not allow the use of clones. Hit the bricks, ya leecher!")
				Test:Disconnect()
			end 
		end
	end
		if (strsub(data, 1, 7) == "$Search") then
			local _,_,ip = strfind( data, "$Search%s+(%S+):" )
			if curUser.bOperator or curUser.iProfile == 0 then return end -- Allow certain profiles to be exempt
			if ip and (ip~="Hub") and (ip~=curUser.sIP) then
				curUser:SendData(sBot,"Your active mode IP setting is incorrect! Please update your Active IP address to: "..curUser.sIP)
				curUser:Disconnect()
				return 1
			end
		end
end

function NewUserConnected(sUser)
	local Client,Speed,Share,Tag = sParseMyInfo(sUser.sMyInfoString)
		if sUser.iProfile == 0 then
	SendToAll(" ")
	SendToAll(sBot,"Login: [ADMIN] "..sUser.sName.." = [ "..Client.." v."..Tag["V"].."  Mode: "..Tag["M"].."  Share: "..Share.."  Speed: "..Speed.." ]")

		elseif sUser.iProfile == 1 then
	SendToAll(" ")
	SendToAll(sBot,"Login: [OP] "..sUser.sName.." = [ "..Client.." v."..Tag["V"].."  Mode: "..Tag["M"].."  Share: "..Share.."  Speed: "..Speed.." ]")
	
		elseif sUser.iProfile == 2 then
	SendToAll(" ")
	SendToAll(sBot,"Login: [VIP] "..sUser.sName.." = [ "..Client.." v."..Tag["V"].."  Mode: "..Tag["M"].."  Share: "..Share.."  Speed: "..Speed.." ]")
	
		elseif sUser.iProfile == 3 then	
	SendToAll(" ")
	SendToAll(sBot,"Login: [REG] "..sUser.sName.." = [ "..Client.." v."..Tag["V"].."  Mode: "..Tag["M"].."  Share: "..Share.."  Speed: "..Speed.." ]")

		elseif sUser.iProfile == -1 then
	SendToAll(" ")
	SendToAll(sBot,"Login: [UNREG] "..sUser.sName.." = [ "..Client.." v."..Tag["V"].."  Mode: "..Tag["M"].."  Share: "..Share.."  Speed: "..Speed.." ]")
end
end

OpConnected = NewUserConnected

function sParseMyInfo(sMyInfo)
	local sClient = "NoTag/Unknown"
	for i = 1,getn(sClients) do if strfind(sMyInfo,sClients[i][1]) then sClient = sClients[i][2] end end
	local sBwidh = "Unlimited"
	local _,_,sSpeed,sShare = strfind(sMyInfo,"^%$MyINFO %$ALL [^ ]+ [^$]*%$ $([^$]+)[^$]%$[^$]*%$%s*(%d+)%$")
	sShare = tonumber(sShare)
	local _,_,sVer,sMode = strfind(sMyInfo,"V:(.*),M:([SAP])")
	local _,_,sHub = strfind(sMyInfo,"H:(%d+)")
	local _,_,sSlot = strfind(sMyInfo,"S:(%d+)")
	local _,_,sBwidh = strfind(sMyInfo, "[LBF]:%d*%/?(%d+)")
	if strfind(sMyInfo,"<o+%S+><%+%+") then _,_,sVer = strfind(sMyInfo,"<o(%d+.%d+)>") sClient = "oDC"
	elseif strfind(sMyInfo,"Ruri_Ruri") then sClient = "Ruri_Ruri"
	elseif sClient=="iDC" then _,_,sVer = strfind(sMyInfo,"<iDC(%d+.%d+)>") end
	if strfind(sMyInfo,"H:\"%d+/%d+/%d+\"") then sClient = "Fake" end
	if strfind(sMyInfo, "L:") then sClient = "CZDC++"
	elseif strfind(sMyInfo, "B:") then if not sClient=="Phantom DC++" then sClient = "Bear Claw DC++"  end end
	sTag = {["S"]=sSlot,["B"]=sBwidh,["H"]=sHub,["V"]=sVer,["M"]=sMode}
	return sClient,sSpeed,sShare,sTag
end