-- code board by plop
-- made for my own hub to seperate chat from code

Bot = "Code_Board"

function Main() 
   frmHub:RegBot(Bot)
end

function DataArrival(user, data)
   if(strsub(data, 1, 4) == "$To:") then
      local s,e,whoTo = strfind(data,"$To:%s+(%S+)")
      if whoTo == Bot then 
         data=strsub(data,1,strlen(data)-1) 
         local s,e,text = strfind(data, "%$%b<>(.*)")
         if text ~= "" then
            local line = "\r\nCode by: "..user.sName.."\r\n"..date().."\r\n--------------------------------------------------------------------------------------------------------------------------------\r\n"
            line = line..text.."\r\n--------------------------------------------------------------------------------------------------------------------------------\r\n"
            SendPmToAll(Bot, line.."|")
         end
      end
   end
end