IpLog

[zero-cool]

Hi,

I'm trying to do a simple script, that log user and his IP in a table...

Now, he's repeating every IP Address'..
Here's the script:

function Main()   
	LoadFromFile("logs/log.txt")   
end   

local UserIP = {}
local tmp = {}
local tmp1 = {}
	
function NewUserConnected(user, data)
	s = os.date("%S")
	h = os.date("%H")
	m = os.date("%M")
	d = os.date("%d")
	mm = os.date("%m")
	y = os.date("%y")
	tmp1[h..":"..m..":"..s] = user.sIP
	tmp[y.."/"..d.."/"..mm] = tmp1
   	UserIP[user.sName] = tmp
	SaveToFile("logs/log.txt", UserIP, "UserIP")
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 string.format("[%q]",key) or string.format("[%d]",key);  
                if(type(value) == "table") then  
                        sTmp = sTmp..Serialize(value, sKey, sTab.."\t");  
                else  
                        local sValue = (type(value) == "string") and string.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)  
	local handle = io.open(file,"w+")  
        handle:write(Serialize(table, tablename))  
		handle:flush()  
        handle:close()  
end  
  
function LoadFromFile(file)  
	local handle = io.open(file,"r")  
	if (handle ~= nil) then  
        dofile(file)  
		handle:flush()  
		handle:close()  
        end  
end  

And the .txt where's the table:

UserIP = {
	["Atena"] = {
		["05/02/09"] = {
			["17:59:58"] = "127.0.0.1",
			["18:00:01"] = "192.168.1.2",
		},
	},
	["zero-cool"] = {
		["05/02/09"] = {
			["17:59:58"] = "127.0.0.1",
			["18:00:01"] = "192.168.1.2",
		},
	},
}

I've entered on Hub only 2 times (one with nick zero-cool and IP 127.0.0.1, and other with nick Atena and IP 192.168.1.2).

Sorry my english  :rolleyes: I hope you understand...
Regards,

[zero-cool]

Some help...?    

[-PT-B2S]

Hello zero :) (the best portuguese LUA scripter of all times :P)

Try this :

--Connection Log 1.0 LUA 5
--
--by Mutor The Ugly
--
-- Log connections to hub in an external file
-- Hublist pingers are excluded by nick, add IP's if needed

--User Settings------------------------------------------------
LogFile = "Log.txt"             --Log file
LogCmd = "+log"                 --View log Command
Maxlog = 200                    --Number of entries to cache
Bot = frmHub:GetHubBotName()	-- Bot name pulled from hub
--End User Settings--------------------------------------------

function Main()
local f,e = io.open( LogFile, "r" )
	if f then
        dofile(LogFile)
    else
        Log = {}
        SaveLog()
    end
end

function OnExit()
SaveLog()
end

function ChatArrival(user, data)
	if string.sub(data, 1, 1) ~= "<" then end
	data = string.sub(data,1,string.len(data)-1)
	local s,e,cmd = string.find(data, "^%b<>%s+(%S+)")
	local s,e,lines = string.find(data, "^%b<>%s+%S+%s+(%d+)")
	if cmd and cmd == LogCmd then
        if lines ~= nil then
            GetLog(user, lines)
            return 1
        else
            user:SendData("Please specify how may log entries to show, you can display available entries up to "..Maxlog.." lines.")
            return 1
        end
    return 1
	end
end

function GetLog(user, linecount)
    local n1 = table.getn(Log)
	local n2 = linecount
    local n3 = n1 - n2
    local n4
    local str
        if tonumber(n2) > n1 then
            n3 = 1
            n4 = n1 - n3
            str = "<"..string.rep("-",45).."-[ There are only ( "..n4.." ) Connection Log Entries ]----------->\r\n"
        else
            n4 = n2
            str = "<"..string.rep("-",50).."-[ Last ( "..n4.." ) Connection Log Entries ]----------->\r\n"
        end
	for i=n3+1,n1 do str = str.."\r\n"..Log[i] end
	user:SendPM(Bot,str.."\r\n")
	user:SendPM(Bot,"<"..string.rep("-",60).."-[ End of Connection Log ]--------------->")
end

function NewUserConnected(user,data)
if string.find(string.lower(user.sName), "ping") then return end
local prof = ""
    if GetProfileName(user.iProfile) == nil then
        prof = "Unregistered"
    else
        prof = GetProfileName(user.iProfile)
    end
    local when = os.date("[ %B %d %X ] ")
local userinfo = "- Log In > "..user.sName..", profile "..prof..", from: "..user.sIP..
", using: "..user.sClient..user.sClientVersion..", in: "..GetMode(user.sMode).." mode, shares: "..string.format("%.2f Gb.",user.iShareSize/(1024 * 1024 * 1024))..
", on: "..user.iSlots.." slots, is in: "..GetStatus(user.iNormalHubs).." hubs as a user, regged in: "..GetStatus(user.iRegHubs)..
", Ops in "..GetStatus(user.iOpHubs)..", total: "..GetStatus(user.iHubs)
table.insert(Log, when..userinfo)
    if table.getn(Log) > Maxlog then
        table.remove(Log, 1)
    end
SaveLog()
end

OpConnected = NewUserConnected

function UserDisconnected(user,data)
if string.find(string.lower(user.sName), "ping") then return end
local prof = ""
    if GetProfileName(user.iProfile) == nil then
        prof = "Unregistered"
    else
        prof = GetProfileName(user.iProfile)
    end
    local when = os.date("[ %B %d %X ] ")
local userinfo = "- Log Out > "..user.sName..", profile "..prof..", from: "..user.sIP..
", using: "..user.sClient..user.sClientVersion..", in: "..GetMode(user.sMode).." mode, shares: "..string.format("%.2f Gb.",user.iShareSize/(1024 * 1024 * 1024))..
", on: "..user.iSlots.." slots, is in: "..GetStatus(user.iNormalHubs).." hubs as a user, regged in: "..GetStatus(user.iRegHubs)..
", Ops in "..GetStatus(user.iOpHubs)..", total: "..GetStatus(user.iHubs)
table.insert(Log, when..userinfo)
    if table.getn(Log) > Maxlog then
        table.remove(Log, 1)
    end
SaveLog()
end

OpDisconnected = UserDisconnected

function SaveLog()
	local f,e = io.open( LogFile, "w+" )
	if f then
		f:write( "Log={\n" )
		  for i = 1, table.getn(Log) do
		      f:write( "  "..string.format("%q", Log[i])..",\r\n" )
		  end
		f:write( "}" )
		f:close()
		return 1
	else
		return nil, user:SendData("Save Log failed: "..e)
	end
end

function GetMode(mode)
	if mode == "A" then
		mode = "Active"
	elseif mode == "P" then
		mode = "Passive"
	else
        mode = Socks5
	end
	return mode
end

function GetStatus(status)
	if not status or status == nil or status == "" then
		status = 0
	end
	return status
end

Props

[zero-cool]

Hi,

Thanks -PT-B2S, but i want something different...

With that script I've made, i get this:

UserIP = {
	["Atena"] = {
		["05/02/09"] = {
			["17:59:58"] = "127.0.0.1",
			["18:00:01"] = "192.168.1.2",
		},
	},
	["zero-cool"] = {
		["05/02/09"] = {
			["17:59:58"] = "127.0.0.1",
			["18:00:01"] = "192.168.1.2",
		},
	},
}

But it would be:

UserIP = {
	["Atena"] = {
		["05/02/09"] = {
			["18:00:01"] = "192.168.1.2",
		},
	},
	["zero-cool"] = {
		["05/02/09"] = {
			["17:59:58"] = "127.0.0.1",
		},
	},
}

Script is creating the same thing, and put it in every tables  

Regards,

[Optimus]

try it this way

UserIP = {
	["Atena"] = {
		["05/02/09"] = {
			["192.168.1.2"] = "18:00:01",
		},
	},
	["zero-cool"] = {
		["05/02/09"] = {
			["127.0.0.1"] = "17:59:58",
		},
	},
}
 

[zero-cool]

Same problem...  

UserIP = {
	["Atena"] = {
		["05/09/09"] = {
			["127.0.0.1"] = "16:29:06",
			["192.168.1.2"] = "16:29:21",
		},
	},
	["zero-cool"] = {
		["05/09/09"] = {
			["127.0.0.1"] = "16:29:06",
			["192.168.1.2"] = "16:29:21",
		},
	},
}

And I don't know why...

[Optimus]

Try this 1

UserIP = {}

function Main()   
	LoadFromFile("logs/log.txt")   
end   

function NewUserConnected(user, data)
   	UserIP[user.sName] = {}
	UserIP[user.sName][os.date("%x")] = {}
	UserIP[user.sName][os.date("%x")][user.sIP] = os.date("%X")
	SaveToFile("logs/log.txt", UserIP, "UserIP")
end

OpConnected = NewUserConnected

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 string.format("[%q]",key) or string.format("[%d]",key);  
                if(type(value) == "table") then  
                        sTmp = sTmp..Serialize(value, sKey, sTab.."\t");  
                else  
                        local sValue = (type(value) == "string") and string.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)  
	local handle = io.open(file,"w+")  
        handle:write(Serialize(table, tablename))  
		handle:flush()  
        handle:close()  
end  
  
function LoadFromFile(file)  
	local handle = io.open(file,"r")  
	if (handle ~= nil) then  
        dofile(file)  
		handle:flush()  
		handle:close()  
        end  
end  

[mateci]

Dont save in the userconnected function. Because it consumes lots of memory. save in the exit function  or on timer function.


There is a script for IP logging, if you want you can use that script:IPdbBOT

[zero-cool]

Thanks Optimus    )
I've tried that, but I haven't create tables before... so, it gave error  

Dont save in the userconnected function. Because it consumes lots of memory. save in the exit function or on timer function.

Yes, I know... this is only the begin. It will be different.

Regards