sBot = "[PM]Protect"

PMPro = {
   ["http://biz.org"]="[USER] sent http://biz.org in a PM to another user",
   ["http://www.msn.com"]="[USER] sent http://www.msn.com in a PM to another user",
   ["http://kepp1.com"]="[USER] sent http://kepp1.com in a PM to another user",
   ["http;//kepp2.org"]="[USER] sent http://kepp2.org in a PM to another user",
   ["http://kepp3.se"]="[USER] sent http://kepp3.se in a PM to another user"
}

function Main()
   frmHub:RegBot(sBot)
end

function DataArrival(user, data)
   if (strsub(data,1,4) == "$To:") then
      for i,v in PMPro do
         if strfind(data,i,1,1) then
            v = gsub(v,"%b[]",user.sName)
            SendToOps(sBot, v)
         end
      end
   end
end