Версия для печати темы

sFile = "HubTopic.dat"
sPath = "HubTopic"
sTrueCommand = "HubTopic"
tOpenProfile = {
[0] = true,
[1] = true,
[2] = true,
[3] = true,
[4] = true,
[5] = true,
[6] = false,
[7] = false,
}
sMenu = "Меню админа"

function OnStartup()
sFileName = Core.GetPtokaXPath().."scripts/"..sPath.."/"..sFile
sHubTopic = Read()
end

function UserConnected(tUser)
Core.SendToUser(tUser,"$HubTopic "..sHubTopic)
if tOpenProfile[tUser.iProfile] ~= nil then
Core.SendToUser(tUser, "$UserCommand 1 3 "..sMenu.."\\Сменить ХабТопик$<%[mynick]> !"..sTrueCommand.." %[line: Введите ХабТопик]||")
end
end
RegConnected = UserConnected
OpConnected = UserConnected

function ChatArrival(tUser, s)
if tOpenProfile[tUser.iProfile] ~= nil then
local _,_,sCmd,sRes = s:find("%b<>%s+[!,+](%S+)%s+(.*)|")
if sCmd == sTrueCommand then
Save(sRes)
sHubTopic = sRes
Core.SendToAll("$HubTopic "..sHubTopic)
return true
end
end
end

function Save(s)
local hFile = io.open(sFileName, "w")
hFile:write(tostring(s))
hFile:flush ()
hFile:close ()
return true
end

function Read()
local hFile = io.open (sFileName, "r")
if not hFile then
Save("Установите HubTopic")
end
return tostring(hFile:read("*a")), hFile:close()
end

06.08.2009 00:20:43 - /etc/ptokax/scripts/HubTopic.lua:43: attempt to index local 'hFile' (a nil value)
06.08.2009 00:20:57 - /etc/ptokax/scripts/HubTopic.lua:43: attempt to index local 'hFile' (a nil value)

function Save(s)
local hFile = assert(io.open(sFileName, "w"))
hFile:write(tostring(s))
hFile:flush ()
hFile:close ()
return true
end