--PathPing 1.01 
--by Mutor The Ugly 
--
--Provides information about network latency and network loss at intermediate hops between a source 
--and destination. Pathping sends multiple Echo Request messages to each router between a source and 
--destination over a period of time and then computes results based on the packets returned from each 
--router. Because pathping displays the degree of packet loss at any given router or link, you can 
--determine which routers or subnets might be having network problems.
--Pathping performs the equivalent of the tracert command by identifying which routers are on the path. 
--It then sends pings periodically to all of the routers over a specified time period and computes 
--statistics based on the number returned from each.
--
-- 
--PathPing a connection to user with Windoze 'pathping.exe'
--
--This will take from 3 to 6 minutes typical, depending on latency number of hops ...etc
--
--Usage = +pping <nick>
--

PPingComm = "+pping" -- Command name
--

function DataArrival(curUser, sData)
      sData=strsub(sData,1,-2) 
      s,e,cmd,who = strfind( sData, "%b<>%s+(%S+)%s*(%S*)" )
		if (cmd==PPingComm) 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\tPath Pinging [ "..who.." ] This will take a few minutes.\r\n\t---<>-----------------------------------------------------------------------------<>---")
				execute("pathping -n "..addy.." > pathping.lst")
				local pathping = "" 
					if readfrom("pathping.lst") then 
					readfrom("pathping.lst") 
					pathping = read("*a") 
					pathping = gsub(pathping,"|",strchar(166)) 
					pathping = gsub(pathping,"\n","\r\n\t") 
					writeto() 
					remove("pathping.lst") 
					end
				SendToNick(curUser.sName,"\t\t\t.:: Results ::.\r\n\t---<>-----------------------------------------------------------------------------<>---\r\n\t"..pathping.."\r\n\t---<>-----------------------------------------------------------------------------<>---")
				return 1 
		end
end