putserv "privmsg $chan :\00304,01$line\003"

putserv "privmsg $nick :\00304,01$line\003"

putserv "notice $nick :\00304,01$line\003"

package require http

bind pub - .fıkra fikr

proc fikr {nick uhost hand chan text} {
set text [string map {ç c ş s ğ g ı i Ç C Ş S Ğ G I İ} $text]
::http::config -useragent "UserAgent"
set tok [::http::geturl "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
15000]
set data [::http::data $tok]
::http::cleanup $tok
regexp -- {</IFRAME></div>(.*?)</div>} $data "" fikra
regsub -all {\n} $data {} data
regsub -all {\t} $data {} data
regsub -all {<BR>} $fikra {} fikra
  set i 0
  foreach line [split $fikra \n] {
   putserv "privmsg $chan :\00304,01$line\003"
   incr i
   }
}