Can someone convert Cmd Report 1.0 for API II

[ThugLife]

--[[
   CmdReport 1.0 LUA 5.1
   
   By Mutor                03/18/06
   Requested by Mikey
   
   Reports command usage to specified nicks
   Option to exclude certain nicks from check.

]]--

--Script Configuration
CsCfg = {
   Bot = "PtokaX",      -- Bot name
   Desc = "Command report",    -- Bot description
   Mail = "help@domain.com",   -- Bot email address
   ReportTo = {         -- Report to these
      ["Still_Ballin`"] = "main",      -- Nicks = Message type
      Sh0rTy = "main",
   },
   Exclude = {         -- Exclude these Nicks from check
      Mutor = 1,      -- Nick = 1,
      YourNick = 1,
   },
}

Main = function()
   frmHub:RegBot(CsCfg.Bot, 1, CsCfg.Desc, CsCfg.Mail)
   SendToAll(frmHub:GetPrefixes())
end

ChatArrival = function(user,data)
   if not CsCfg.Exclude[user.sName] then
      local msgtype = "Main chat"
      local s,e,to = string.find(data,"^$To:%s(%S+)%s+From:")
      local s,e, pre = string.find(data,"%b<>%s(%p)")
      local s,e,cmd = string.find(data,"%b<>%s%p(%S+)")
      local s,e,msg = string.find(data,"%b<>%s%p%w+%s(.+)|$")
      if not msg then msg = "" end
      if to then msgtype = "Private Message" end
      if pre and cmd then
         for i,v in pairs(frmHub:GetPrefixes()) do
                 if pre == v then
                         cmd = pre..cmd
               local reply = "The user "..user.sName.." sent the command "..
               "in "..msgtype.." -> "..cmd.." "..msg
               for i,v in pairs(CsCfg.ReportTo) do
                  local usr = GetItemByName(i)
                  if usr then
                     if v == "pm" then
                        usr:SendPM(CsCfg.Bot,reply)
                     else
                        usr:SendData(CsCfg.Bot,reply)
                     end
                  end
               end
               break
            end
         end
      end
   end
end
ToArrival = ChatArrival

[Madman]

http://board.ptokax.ath.cx/index.php?topic=7577.0