Scripting help needed

[BSOD2600]

I'm trying to convert a Ptokax script over to DCH (so I dont have to use all those other scripts to make it work). I've never programmed in Lua (or vbscript really either) so I'm kinda lost. Unlike the original script that logs it to a text file, I want it to simply PM me/OPs with the messages. Will this even intercept the hub redirecting people with the reason it gave?
I got the easy parts of the conversion, but its the logic portion I have no idea what to do...

DCH script

Code: Select all

BotName = "RedirectLogger"

function DataArrival(curUser, data)
   if( strsub(data, 1, 12) == "$ForceMove" ) then


   local function send( client )
      client:privateMessage( totalmsg, BotName )
   end
   local name = client:getNick()
   local ip = client:getIp()
   if not name then name = "(unknown)" end
   if not ip then ip = "(unknown)" end
   totalmsg =    ""..name.." from "..ip.." was Redirected because "..reason..""
   dchpp.foreach( send )
   end
end

Ptokax Script

Code: Select all

--    Redirect Logger              
-- A little script for logging the redirect-action in hub. 
-- Who (with IP-number) is redirecting who, and where to. 
-- Can be used to reveal unhonest OP's. 
-- Redirect Logger-Script by VidFamne ( 11.04.2003 )
  

botname="RedirectLog" 
file = "RedirectLog.txt" 

function Main() 
--frmHub:RegBot(botname) 
end 

function DataArrival(curUser, sData) 

if ( strsub(sData, 1, 12) == "$OpForceMove" ) then

s,e,name = strfind(sData,"$Who:([^$]+)")
s,e,where = strfind(sData,"$Where:([^$]+)")

Time = date() 

appendto(file) 
write(Time, "\t" ..curUser.sName.." with IP; "..curUser.sIP.." has redirect "..name.." to: "..where.." \r\n")
writeto()

end 
end 

[qqzm]

Try something like this (Note: completely untested...)

Code: Select all

local bot_name = "LoggerBot"


function dchpp.startup()
   dchpp.addNick(bot_name)
end


function dchpp.clientLine(client, data)
   if string.sub(data, 1, 13) == "$OpForceMove " then
      s,e,name = string.find(data,"$Who:([^$]+)") 
      s,e,where = string.find(data,"$Where:([^$]+)") 
      local function send(client)
         client:hubMessage("<"..bot_name.."> "..client:getNick().." has redirected "..name.." to "..where, bot_name)
      end
      dchpp.foreach(send, -1)
   end
end

[Sedulus]

A couple of notes

Code: Select all

local bot_name = "LoggerBot"


function dchpp.startup()
   dchpp.addNick(bot_name)
end

-- if you use addNick, you should also use removenick, like:
function dchpp.shutdown()
   dchpp.removeNick(bot_name)
end

function dchpp.clientLine(client, data)
   if string.sub(data, 1, 13) == "$OpForceMove " then
      -- use local whenever possible.. it keeps your code a lot cleaner
      local s,e,name,where
      s,e,name = string.find(data,"$Who:([^$]+)") 
      s,e,where = string.find(data,"$Where:([^$]+)") 
      -- 
      -- I think client:getNick takes a call to dch++ #OP times during the loop..
      -- it would be wiser to get the name first... and..
      -- this goes for the string concatenation as well
      -- never do stuff inside a loop if not necessary
      -- local function send(client)
      --   client:hubMessage("<"..bot_name.."> "..client:getNick().." has redirected "..name.." to "..where, bot_name)
      -- end
      -- like this:
      local str = "<"..bot_name.."> "..client:getNick().." has redirected "..name.." to "..where
      local function send(client)
         client:hubMessage(str, bot_name)
      end
      dchpp.foreach(send, -1)
   end
end

[qqzm]

Note to self: this is what happens when you try to write a script in 5 minutes without even testing it. Naughty qqzm.

[BSOD2600]

thanks to the both of you for helping out. It sucessfully logs when an OP redirects someone, but I'm also interested in when the hub itself redirects someone and the reason why. Can Lua scripts do that?