--Tracer 1.01 
--by Mutor The Ugly 
--
-- 
--Trace a connection route from hub to user with Windoze 'tracert.exe'
--
--Usage = +trace <nick>
--

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