-- redirect hub.
-- every user level is redirected 2 a random url from the tables.
-- op's can enter and add/remove urls 2/from the tables.
-- plop


File = "huburl.txt"

function Load()
   HUBS={}
   readfrom(File)
   while 1 do
      local line = read()
      if line ==  nil then
         break
      end
      tinsert(HUBS, line)
   end
   writeto()
end

function Save()
   writeto(File)
   for i=1, getn(HUBS) do
      write(HUBS[i].."\n")
   end
   writeto()
end

function Main()
   Load()
end

function MessageHelp(User) 
   local handle = openfile("butler/help.txt", "r") 
	if (handle ~= nil) then 
		local line = read(handle) 
		Temptimerfile = "\r\n"
		while line do 
			Temptimerfile = Temptimerfile.."\r\n"..line
			line = read(handle) 
		end 
			User:SendData(Bot, Temptimerfile) 
		closefile(handle) 
	end 
   return Temptimerfile
end

function DataArrival(curUser, data) 
   if( strsub(data, 1, 1) == "<" ) then
      data=strsub(data,1,strlen(data)-1) 
      local s,e,cmd = strfind(data,"%b<>%s+(%S+)") 
      if cmd == "!addhub" then
         local s,e,newurl = strfind(data, "%b<>%s+%S+%s*(%S*)")
         if newurl ~= "" then
            tinsert(HUBS, newurl)
            user:SendData("redirect", newurl.." is added!|")
            Save()
            return 1
         else
            user:SendData("redirect", "I need a url|")
            return 1
         end
      elseif cmd == "!delhubt" then
         local s,e,oldurl = strfind(data, "%b<>%s+%S+%s*(%S*)")
         if oldurl ~= "" then
            for i=1, getn(HUBS) do
               if HUBS[i] == oldurl then
                  tremove(HUBS, i)
                  user:SendData("redirect", oldurl.." is added!|")
                  Save()
                  break
               end
            end
            user:SendData("redirect", oldurl.." is not in the table!|")
            return 1
         else
            user:SendData("redirect", "I need a url|")
            return 1
         end
      elseif cmd =="!showhubs" then
         for i=1,getn(HUBS) do
            user:SendData("redirect", HUBS[i].."|")
         end
         return 1
      elseif cmd == "!help" then
         user:SendData("Bot", MessageHelp(user).."|")
      end
   end
end

function NewUserConnected(user) 
   user:SendData("<Redirect> "..MessageHelp(User).." |$ForceMove "..HUBS[random(1,getn(HUBS))].."|")
end


--