#
# Web Hız Ölçer TCL v1.0 - Written By CLubber
#
 
# Komutun kullanımını yazıyoruz

set speed(komut) "!webhız"

# Komutun kullanılacağı kanal

set speed(kanal) "#Webmaster"
 
# Web Hız Testi - Web Sayfası Hız Kontrolü
 
bind pub - $speed(komut) webspeed

proc webspeed {nick uhost hand chan text} {
  global botnick speed
  if {![string match -nocase "$speed(kanal)" $chan]} { return }
  set site [lindex $text 0]
  if {$site == ""} {putquick "PRIVMSG $speed(kanal) :Herhangi bir web sitesinin hızını ölçmek için lütfen komutu doğru kullanınız. Kullanımı: <$speed(komut) site> şeklindedir.";return}
  set connect [::http::geturl http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set files [::http::data $connect] 
  regexp -- {</a></td><td align="center">(.+?) KB</td>} $files - size
  regexp -- {KB</td><td align="center">(.+?) seconds</td>} $files - speeds
  regexp -- {<td align="center"><b>(.+?) seconds</b></td>} $files - average
  ::http::cleanup $files
  putquick "PRIVMSG $speed(kanal) ----------------------------------------------"
  putquick "PRIVMSG $speed(kanal) Hızına bakılan web sitesi: $site"
  putquick "PRIVMSG $speed(kanal) Büyüklüğü: $size KB"
  putquick "PRIVMSG $speed(kanal) Hızı: $speeds saniye"
  putquick "PRIVMSG $speed(kanal) Ortalama süresi: $average saniye"
  putquick "PRIVMSG $speed(kanal) ----------------------------------------------"
}
 
putlog "Web Hız Ölçer TCL v1.0 - Written By CLubber" 

source scripts/http.tcl