CooL Idea!

[D-J Valhala]

i have an idea...
script that shows how many users connected  to the hub
every IP = 1 in the entery list
+entery
last 24 hoers: 2500 enterys
sins script start enterys: 5000
 
can it be made???

[nErBoS]

Hi,

Here you go...

--## IP ENTRY BOT
--## Requested by D-J Valhala
--## Made by nErBoS
--## Commands: 
--##	+entry	- Shows all the entry status of IP

sBot = "IE-Bot"

arrIPEntry = {
	["TOTAL"] = 0,
}
fIPEntry = "ipentry.dat"

--## Configuration ##--

uLaterPtokax = 0	-- Choose 0 if you are using a Ptokax version 0.3.3.0 or higher
			-- Choose 1 if you are using a Ptokax version lower then 0.3.3.0

--## END ##--

function Main()
	frmHub:RegBot(sBot)
	LoadFromFile(fIPEntry)
end

function OnExit()
	SaveToFile(fIPEntry , arrIPEntry , "arrIPEntry")
end

function NewUserConnected(user)
	if (arrIPEntry[GetTime()] == nil) then
		CleanAndRefresh()
		arrIPEntry[GetTime()] = {}
		if (uLaterPtokax == 1) then
			OnExit()
		end
	end
	if (arrIPEntry[GetTime()][user.sIP] == nil) then
		arrIPEntry[GetTime()][user.sIP] = 1
		arrIPEntry["TOTAL"] = arrIPEntry["TOTAL"] + 1
		if (uLaterPtokax == 1) then
			OnExit()
		end
	end
end

OpConnected = NewUserConnected

function DataArrival(user, data)
	if (strsub(data,1,1) == "<" or strsub(data,1,5+strlen(sBot)) == "$To: "..sBot) then
		data = strsub(data,1,strlen(data)-1)
		s,e,cmd = strfind(data, "%b<>%s+(%S+)")
		if (cmd == "+entry") then
			local sTmp = "\r\n\r\n\t\t--## IP Entries of the HUB ##--\r\n\r\n"
			if (arrIPEntry[GetTime()] == nil) then
				CleanAndRefresh()
				arrIPEntry[GetTime()] = {}
			end
			sTmp = sTmp.."\t--## Today IP entries: "..GetCount(arrIPEntry[GetTime()]).."\r\n"
			sTmp = sTmp.."\t--## IP entries from all time: "..arrIPEntry["TOTAL"].."\r\n"
			user:SendPM(sBot, sTmp)
			return 1
		end
	end
end

function GetTime()
	local day,month,year = date("%d"),date("%m"),date("%y")
	return day.."/"..month.."/20"..year
end

function CleanAndRefresh()
	local aux,date
	for date, aux in arrIPEntry do
		if (date ~= "TOTAL") then
			arrIPEntry[date] = nil
		end
	end
end

function GetCount(table)
	local count,aux,index = 0 
	for index, aux in table do
		count = count + 1
	end
	return count
end

function Serialize(tTable, sTableName, sTab)
	assert(tTable, "tTable equals nil");
	assert(sTableName, "sTableName equals nil");

	assert(type(tTable) == "table", "tTable must be a table!");
	assert(type(sTableName) == "string", "sTableName must be a string!");

	sTab = sTab or "";
	sTmp = ""

	sTmp = sTmp..sTab..sTableName.." = {\n"

	for key, value in tTable do
		local sKey = (type(key) == "string") and format("[%q]",key) or format("[%d]",key);

		if(type(value) == "table") then
			sTmp = sTmp..Serialize(value, sKey, sTab.."\t");
		else
			local sValue = (type(value) == "string") and format("%q",value) or tostring(value);
			sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue
		end

		sTmp = sTmp..",\n"
	end

	sTmp = sTmp..sTab.."}"
	return sTmp
end

function SaveToFile(file , table , tablename)
	writeto(file)
	write(Serialize(table, tablename))
	writeto()
end

function LoadFromFile(file)
	if (readfrom(file) ~= nil) then
		readfrom(file)
		dostring(read("*all"))
		readfrom()
	end
end

I still have one script to do to you, will do it as soon as i can :D

Best regards, nErBoS

[D-J Valhala]

work good but whan i restart the scripts it wont save...
and about the other script... take your time m8

[nErBoS]

Hi,

Yes i have forgot to put the configuration part to TD and older version of ptokax. Fixed in the script above.

Best regards, nErBoS

[D-J Valhala]

steel no save...

[11:51] +entry
[11:52] <-PsYiBot->
   ===============================
   U s e r s   E n t r i e s   o f   t h e   H u b:
   ===============================
    Total entries In Lest 24 Hours: 598
    Total entries: 991

[11:59] <-PsYiBot->
   ===============================
   U s e r s   E n t r i e s   o f   t h e   H u b:
   ===============================
    Total entries In Lest 24 Hours: 2
    Total entries: 2

[12:00] <-PsYiBot->
   ===============================
   U s e r s   E n t r i e s   o f   t h e   H u b:
   ===============================
    Total entries In Lest 24 Hours: 0
    Total entries: 0