PtokaX forum

Archive => Archived 5.0 boards => Request for scripts => Topic started by: Light on 18 August, 2005, 13:42:49

Title: web registration.. help
Post by: Light on 18 August, 2005, 13:42:49
I have found script for registration, but it on lua4, can someone translate it?
hubUsers = {}

function readfile(fName)
local fHandle = openfile(fName, "r")
if fHandle then local tmp = read(fHandle, "*a") closefile(fHandle) return tmp end
end

function parseUsers()
local table = {n=0}
local users = readfile("../temp.dat") assert(users, "parseUsers()")
gsub(users, "(%S-)|(%C+)|(%d+)%c", function(name, pass, level) tinsert(%table, { sName = name, sPass = pass, iLevel = tonumber(level) }) end)
return table
end

function updateUsers()
local tmp = parseUsers()
foreachi(tmp, function(id, user) %hubUsers[user.sName] = user.iLevel end)
end

function OnTimer()
local tmp = parseUsers()
if tmp then foreachi(tmp, function(id, user)
if not hubUsers[user.sName] then AddRegUser(user.sName, user.sPass, user.iLevel) end end)
end updateUsers()
end

function Main()
updateUsers()
SetTimer(60*100) StartTimer()
end