Code:

bind pub -!- !ping pingproc ping {nick uhost hand chan text} {set ping(page) http://www.iwebtool.com/ping?domain=set t [::http::geturl "$ping(page)$text" -timeout 30000]set data [::http::data $t]set text [lindex [split $text] 0] ::http::cleanup $tputlog "$ping(page)$text"#putlog "$l"if {[string is space $text]} {putserv "PRIVMSG $chan :No IP given. Usage : !ping <IPADDRESS>"return 0} else {set l [regexp -all -inline -- {<tr><td align="center">.*?</td><td>(.*?)</td><td align="center"><font color="#.*?"><b>(.*?)</b></font></td><td align="center">(.*?)</td></tr>} $data]   foreach {black a b c} $l {   set a [string trim [string map {{ } {} {\n} {}} $a]]set b [string trim [string map {{ONLINE} {3ONLINE} {OFFLINE} {4OFFLINE} { } {} {\n} {}} $b]]set c [string trim [string map {{ } {} {\n} {}} $c]]   putserv "PRIVMSG $chan :Address:14 $a Status: $b PING Speed:14 $c "return 0}putserv "privmsg $chan :Sorry, $nick $text Not Valid IP"}}