--// HubINFO-BotINFO support script for PtokaX by Gadget
--// Optional hubowner's email address for editing hub info in www.hublist.org
OwnerEmail=""
--// No need to edit other settings
MinSlots=0
MaxHubs=0
function Main()
HubAddress=GetFromIni("HubAddress")..":"..GetFromIni("HubPort")
if GetFromIni("MinSlotsChecker")=="1" then MinSlots=GetFromIni("MinSlots")
end
if GetFromIni("HubChecker")=="1" then MaxHubs=GetFromIni("MaxHubs")
end
end
function DataArrival(curUser,data)
if strsub(data,1,9)=="$BotINFO " then
curUser:SendData("$HubINFO "..frmHub:GetHubName().."$"..HubAddress.."$"..frmHub:GetHubDescr().."$"..frmHub:GetMaxUsers().."$"..floor(frmHub:GetMinShare()*1048576).."$"..MinSlots.."$"..MaxHubs.."$PtokaX 0.3 ".._VERSION.." script$"..OwnerEmail)
end
end
function GetFromIni(var)
local result=""
readfrom("../PtokaX.ini")
while 1 do
local line=read()
if line==nil then
break
else
if strsub(line,1,strlen(var)+1)==var.."=" then
result=strsub(line,strlen(var)+2,strlen(line))
break
end
end
end
readfrom()
return result
end