######################################################################
#               IrcForumları TCL v1.0 - Written By CLubber           #
#  Bu TCL ile IF konularını sunucunuz üzerinden takip edebilirsiniz. #
#          TCL'nin çalışabilmesi için HTTP TCL'ye ihtiyaç vardır.    #
######################################################################
# Botun konuları yazacağı kanal
set forum_chan "#IF"
# Botun kanala yazma süresi (dakika cinsinden)
set forum_time "60"
##############################################
# IrcForumları TCL v1.0 - Written By CLubber #
##############################################
if {![string match "*forum_mesaj*" [timers]]} { 
  timer $forum_time forum_mesaj 
} 
proc forum_mesaj {} { 
  global botnick forum_time forum_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 -- {<title>(.+?)</title>} $i - topic
    regexp -- {>(.+?)</category>} $i - category
    regexp -- {<dc:creator>(.+?)</dc:creator>} $i - author
    regexp -- {<guid isPermaLink="true">(.+?)</guid>} $i - link
    if {[info exists topic]} { 
      putserv "privmsg $forum_chan 4» Konu Başlığı:2 $topic"
      unset topic
    }
    if {[info exists category]} { 
      putserv "privmsg $forum_chan 4» Konu Kategorisi:2 $category"
      unset category
    }
    if {[info exists author]} { 
      putserv "privmsg $forum_chan 4» Konu Yazarı:2 $author"
      unset author
    }
    if {[info exists link]} { 
      putserv "privmsg $forum_chan 4» Konu Linki:2 $link"
      unset link
    }
  }
  ::http::cleanup $files
  timer $forum_time forum_mesaj 
}
putlog "IrcForumları TCL v1.0 - Written By CLubber"

source scripts/http.tcl