##################################################################
#          Tarihte Bugün TCL v1.0 - Written By CLubber           #
#       Bu TCL ile tarihte bugün ne olmuş öğrenebilirsiniz.      #
#                Kullanımı: <!tarih> şeklindedir.                #
#       TCL'nin çalışabilmesi için HTTP TCL'ye ihtiyaç vardır.   #
##################################################################
# Komutun Kullanılacağı Kanal
set cmd_chan "#Tarih"
###############################################
# Tarihte Bugün TCL v1.0 - Written By CLubber #
###############################################
bind pub - !tarih msg_history
proc msg_history {nick uhost hand chan text} {
  global botnick cmd_chan
  set connect [::http::geturl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]] 
  set files [::http::data $connect] 
  set list [split [subst -nocommands $files] "\n"]
  foreach i $list {
    regexp -- {<td colspan="2" class="text" style="padding-left:5px"><strong> (.+?) </strong></td>} $i - topic
    regexp -- {<td class="text" style="padding:6px">(.+?)<br></td>} $i - description
    if {[info exists topic]} { 
      putserv "privmsg $cmd_chan 4» $topic"
      unset topic
    }
    if {[info exists description]} { 
      putserv "privmsg $cmd_chan » $description"
      unset description
    }
    ::http::cleanup $files
  }
}
putlog "Tarihte Bugün TCL v1.0 - Written By CLubber"

source scripts/http.tcl