Print Page - PM Protect

Title: PM Protect
Post by: majinsoftware on 18 February, 2004, 09:58:15

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

Title:
Post by: kepp on 18 February, 2004, 10:52:32

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

Title:
Post by: majinsoftware on 18 February, 2004, 20:13:04

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

Thanks for respond anyway

Title:
Post by: kepp on 18 February, 2004, 20:37:59

well, change it for your needs and it does

Title:
Post by: NotRabidWombat on 19 February, 2004, 22:40:25

RegEx

Code Select

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

Title:
Post by: majinsoftware on 20 February, 2004, 05:24:52

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

PtokaX forum

Archive => Archived 4.0 boards => Request for Lua 4 scripts => Topic started by: majinsoftware on 18 February, 2004, 09:58:15