package require http

bind pub - "!burç" burc:pub

proc burc:pub {nick uhost hand chan text} {
  set burc [lindex [split $text] 0]
  set burc [string map {ç c ş s ğ g ı i Ç C Ş S Ğ G I İ} [join $burc]]
  if {$burc == ""} { puthelp "privmsg $chan :\002kullanımı\002 : $::lastbind burcunuz." return 0;}

::http::config -useragent "UserAgent"
set url [::http::geturl "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
15000]
set data [::http::data $url]
::http::cleanup $url

 regexp -- {<h1 class="kucuk"><span class="tarih">(.*?)</span>(.*?)</h1>} $data "" gun bilgi
 regexp -- {.+<p>(.*?)</p>.+<div class="clear="></div>} $data "" bir
  foreach line [split $bir "\n"] {

    puthelp "privmsg $chan :\00304$gun $bilgi\00304 : \002$line \002"
    }
}

putlog "tamam..."