IPrange-minshare bot

[enema]

this littleone gives certain IP ranges lower min share! read the instructions in script ;)

--- IPrange-minshare by enema (date 29.12.2004)
--- Lots and lots of thanks to Herodes!!!
--- Script Base is taken from Ipbot lua script by aMutex
--- --------------------------------------------------------
--- Script gives lower min share for certain IP ranges or IP's
--- --------------------------------------------------------
--- Here's how it works: you must rise min share in PtokaX to certain number...
--- That number will be min share for IP ranges you will fill in this script!
--- You must fill in this script (see below) the min Share for every other IP range!!!
--- --------------------------------------------------------
Bot = "share-man"

oAllow={} 

function splittip(IP) 
	r,g,a,b,c,d = strfind(IP, "(%d*).(%d*).(%d*).(%d*)")
		d=a.."."..b.."."..c.."."..d 
		c=a.."."..b.."."..c..".*" 
		b=a.."."..b..".*" 
		a=a..".*" 
	return a,b,c,d 
end 

function Main() 
--- frmHub:RegBot(Bot) 
	oAllow["127.*"]=1
	oAllow["130.239.103.*"]=1
	oAllow["62.84.16.*"]=1
end 

function NewUserConnected(curUser) 
	local s,e,share = strfind(curUser.sMyInfoString, "%$%s*(%d+)%$") 
	share = format("%0.2f", tonumber(share)/(1024*1024*1024))
	local a,b,c,d=splittip(curUser.sIP) 
		if ((oAllow[a]==1)or(oAllow[b]==1)or(oAllow[c]==1)or(oAllow[d]==1)) then 
			else	
			if (tonumber(share) < 10) then --- PLACE YOUR NUMBER OF GB's FOR OTHER RANGES HERE
			curUser:SendData(Bot, "You do not meet the minimum share for your IP range.")
			curUser:Disconnect()
			return 1
		end
	end
end