-- offlinemsg.lua, created by amutex 10.01.2003 in cooperation with [CABLE]Wulfy
botname = "OfflineBot"

function tokenize (inString,token)  
     _WORDS = {}  
     local matcher = "([^§"..token.."]+)"  
     gsub(inString, matcher, function (w) tinsert(_WORDS,w) end)  
     return _WORDS  
end   

function Main()
	frmHub:RegBot(botname)
end
function DataArrival(user, data)
if( strsub(data, 1, 1) == "<" ) then 
data=strsub(data,1,strlen(data)-1) 
s,e,cmd,arg1,arg2 = strfind( data, "%b<>%s+(%S+)%s+(%S+)%s+([%w%s]+)" ) 
if (cmd=="#savemessage") then 
local handle=openfile("messages/"..arg1..".msg","a")
write(handle,"("..user.sName..") :"..arg2.."§")
closefile(handle)
end
end
end

function NewUserConnected(curUser)
handle2=openfile("messages/"..curUser.sName..".msg","r")
if (handle2==nil) then
else
line = read(handle2,"*a") 
line=strsub(line,1,strlen(line)-1) 

linearray=tokenize(line,"§")
for i=1,linearray.n do
curUser:SendPM("Offline-Bot",linearray[i]) 
end

closefile(handle2)
end
a,b=remove("messages/"..curUser.sName..".msg")
end


function OpConnected(curUser)
handle2=openfile("messages/"..curUser.sName..".msg","r")
if (handle2==nil) then
else
line = read(handle2,"*a") 
line=strsub(line,1,strlen(line)-1) 

linearray=tokenize(line,"§")
for i=1,linearray.n do
curUser:SendPM("Offline-Bot",linearray[i]) 
end

closefile(handle2)
end
a,b=remove("messages/"..curUser.sName..".msg")
end