--Tracer 1.01
--by Mutor The Ugly
--
--
--Trace a connection route from hub to user with Windoze 'tracert.exe'
--
--Usage = +trace
--
TraceComm = "+trace" -- Command name
--
function DataArrival(curUser, sData)
sData=strsub(sData,1,-2)
s,e,cmd,who = strfind( sData, "%b<>%s+(%S+)%s*(%S*)" )
if (cmd==TraceComm) and curUser.bOperator then
local nick = GetItemByName(who)
if nick == nil then
SendToNick(curUser.sName,"**** User ->> "..who.." is not online. Try again.") return 1 end
local addy = nick.sIP
SendToNick(curUser.sName,"\r\n\t---<>-----------------------------------------------------------------------------<>---\r\n\t\tTracing Route to [ "..who.." ] Please wait...\r\n\t---<>-----------------------------------------------------------------------------<>---")
execute("tracert -d "..addy.." > tracer.lst")
local traceroute = ""
if readfrom("tracer.lst") then
readfrom("tracer.lst")
traceroute = read("*a")
traceroute = gsub(traceroute,"|",strchar(166))
traceroute = gsub(traceroute,"\n","\r\n\t")
writeto()
remove("tracer.lst")
end
SendToNick(curUser.sName,"\t\t\t.:: Results ::.\r\n\t---<>-----------------------------------------------------------------------------<>---\r\n\t"..traceroute.."\r\n\t---<>-----------------------------------------------------------------------------<>---")
return 1
end
end