Need a Nick/ip

[Themaster]

Need a script that do some log of connected user like

+getnick -- The nick name and ip and the connected on / off time
+showall -- Show's all name and ip..
and last i do have a clear function...and i want it to clear on a week example !

i Do Realy need it  ;(

[Themaster]

Help...i can't get it to save to fil
There are no Error on it

UserInfo = {}
Log = "UserLog.dat"

function Main()
   LoadFromFile(Log)
end

function OnExit()
   SaveToFile(MyInfoFile , UserInfo , "UserLog")
end

function SaveUserInfo()
   SaveToFile(MyInfoFile , UserInfo , "UserLog")
end

function NewUserConnected(user,data)
   local tLogins = 1
   local tmp = UserInfo[user.sName]
   if tmp then
      tLogins = tmp["LOGINS"]+1
   end
   UserInfo[user.sName] = {["IP"]=user.sIP,["PROFILE"]=user.iProfile,["TIME"]=GetTime,["MYINFO"]=user.sMyInfoString,["ONLINE"]="YES",["LOGINS"]=tLogins}
end

function UserDisconnected(user,data)
   local tmp = UserInfo[user.sName]
	if tmp then
		UserInfo[user.sName] = {["IP"]=user.sIP,["PROFILE"]=user.iProfile,["TIME"]=GetTime,["MYINFO"]=user.sMyInfoString,["ONLINE"]="NO",["LOGINS"]=tmp["LOGINS"]}
	end
end

OpConnected = NewUserConnected
OpDisConnected = UserDisconnected

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

[bastya_elvtars]

convert table to string as you would define it, otherwise won't work.

[Themaster]

i can't get it to work wright :s please help me on it

[blackwings]

well, here is a IP/Nick logger that saves the Nick + IP of users. Themaster, you can now just add the comands(+ what they should do) and a function that loads from file.

--//IP/Nick Logger - Made by blackwings


Bot = "ipNick-Logger" 

--------------------------------------------------------------------------------------------------
function DataArrival(user,data)
	if (strsub(data, 1, 8) == "$Version") then
		msg = "["..date("%T").."] - <"..user.sName.."><"..user.sIP..">"		
		StoreLog(user.sName, msg)	
	end
end
--------------------------------------------------------------------------------------------------
function StoreLog(nick, msg)
   local sDate = gsub(date("%x"), "%D", "-")
   appendto("IPNickLogger/"..sDate.."-ipNick.log")
   write(msg.."\n")
   writeto()
   msg = nil
end
--------------------------------------------------------------------------------------------------

[Themaster]

hmmm i can't get any thing work's ;(

[Themaster]

i can't get it wright have try to do it....: ?(  Don't no have to do it any more....plz..help me on it

[Themaster]

i try to make this now...But it want do anything please help on it

UserInfo = {}

sOffline = "UserLog.lst"

function NewUserConnected(user,data)
   LogInfo(user)
end

LogInfo = function(user)
	dofile(sOffline)
   UserInfo[""..strlower(user.sName)..""] = {["IP"]=user.sIP,["PROFILE"]=user.iProfile,["MYINFO"]=user.sMyInfoString,["Seen"]=date("%m/%d/%y"),}
   Save_File(sOffline, UserInfo , "UserInfo")
	return 1
end

function UserInfo()
   writeto("Blade/lst/sOffline.lst")
   for a,b in sOffline do
      write(a.."\n")
   end
   writeto()
end

function LoadUserLog()
   readfrom("Blade/lst/sOffline.lst")
   while 1 do
      local line = read()
      if line == nil then 
         readfrom()
         break 
      end
      UserLog[line] = 1
   end 
end

i'm stuck on it i can't get it right :s I'm Realy lost...please help

[Themaster]

i realy need some help on that script Nothin work on it HELP ME!!!!!!

[Themaster]

Can't Get it functionel PLEASE help me out

[Themaster]

K...No have some thing's 2 say :s

[Themaster]

k...Never mind :s