PM Protect

[majinsoftware]

Can some one write a script that sends any pms that contain a web site to the admin thanks.

[kepp]

Hope this helps! :)

sBot = "[PM]Protect"

PMPro = {
   ["http://biz.org"]="[USER] sent [URL]http://biz.org[/URL] in a PM to another user",
   ["http://www.msn.com"]="[USER] sent [URL]http://www.msn.com[/URL] in a PM to another user",
   ["http://kepp1.com"]="[USER] sent [URL]http://kepp1.com[/URL] in a PM to another user",
   ["http;//kepp2.org"]="[USER] sent [URL]http://kepp2.org[/URL] in a PM to another user",
   ["http://kepp3.se"]="[USER] sent [URL]http://kepp3.se[/URL] 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

[majinsoftware]

yea sort of like that but it has to send the web link that they sent like http://whateva.com.

Thanks for respond anyway

[kepp]

well, change it for your needs and it does

[NotRabidWombat]

RegEx

sBot = "[PM]Protect"

function Main()
   frmHub:RegBot(sBot)
end

function DataArrival(user, data)
   local s, e, toUser = strfind(data, "^%$To: (%S+)");

   if (toUser) then
      local link;
      s, e, link = strfind(data, "([URL]http://%S+[/URL])");

      if (link) then
         SendToOps(sBot, user.sName.." sent ["..link.."] in a PM to "..toUser);
      end
   end
end

It's not designed for multiple links in the same message. You could just add a for loop testing link. Yadi yada.

-NotRabidWombat

[majinsoftware]

thank you excaly what i wanted keep up the good work :D:D:D:D:D:D:D