--Pinger 1.01 
--by Mutor The Ugly 
--
-- 
--Check users ping time to hub with Windoze 'ping.exe'
--Note: Some users may block ping from WAN side
--
--Usage = +ping <nick>
--

PingComm = "+ping" -- Command name
--

function DataArrival(curUser, sData)
      sData=strsub(sData,1,-2) 
      s,e,cmd,who = strfind( sData, "%b<>%s+(%S+)%s*(%S*)" )
		if (cmd==PingComm) 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\tPinging ->> [ "..who.." ]   Please wait...\r\n\t---<>-----------------------------------------------------------------------------<>---")
				execute("ping "..addy.." > pinger.lst")
				local pingtime = "" 
					if readfrom("pinger.lst") then 
					readfrom("pinger.lst") 
					pingtime = read("*a") 
					pingtime = gsub(pingtime,"|",strchar(166)) 
					pingtime = gsub(pingtime,"\n","\r\n\t") 
					writeto() 
					remove("pinger.lst") 
					end
				SendToNick(curUser.sName,"\t\t\t.:: Results ::.\r\n\t---<>-----------------------------------------------------------------------------<>---\r\n\t"..pingtime.."\r\n\t---<>-----------------------------------------------------------------------------<>---")
				return 1 
		end
end