Kod: Kodu kopyalamak için üzerine çift tıklayın!
######################################################################
# 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"
Eggdrop botunuz IF'teki yeni konuları belirlediğiniz süre içerisinde kanala yazacaktır.
NOT: Botunuzun çalışması için http.tcl gereklidir. Http TCL'yi buradan indirebilirsiniz.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
http.tcl'yi eggdrop/scripts klasörüne attıktan sonra, botunuzun confunun en alt satırına
Kod: Kodu kopyalamak için üzerine çift tıklayın!
source scripts/http.tcl
kodunuda eklemeniz gerekmektedir.