IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - IrcForumları TCL v1.0

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - IrcForumları TCL v1.0 - Written By CLubber (https://www.ircforumlari.net/tcl-scriptler/449396-ircforumlari-tcl-v10-written-clubber.html)

IrcForumları TCL v1.0 - Written By CLubber

Kod:

######################################################################

#               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:

source scripts/http.tcl

kodunuda eklemeniz gerekmektedir.

Cevap: IrcForumları TCL v1.0 - Written By CLubber

saol clubber bu iyi oldu

Cevap: IrcForumları TCL v1.0 - Written By CLubber

set connect [::http::geturl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]]

ßu Konuları Alt Alta Çoqaltsak RSS Servis Numaralarını
Farklı Kateqorilerden konu çeksek Sorun çıkartır mı ?

Cevap: IrcForumları TCL v1.0 - Written By CLubber

yada farklı bir forumdan konu cektirmek istesek o nu naısl etcez :)

Cevap: IrcForumları TCL v1.0 - Written By CLubber

Alıntı:

eTheRciTy Nickli Üyeden Alıntı (Mesaj 1041106995)

Alt alta eklemek gibi bir durum tcl scripting'de söz konusu olamaz, yeni bir sitenin rss konuları için, farklı proc kullanmak gerekir.

Alıntı:

wolf- Nickli Üyeden Alıntı (Mesaj 1041107167)

yada farklı bir forumdan konu cektirmek istesek o nu naısl etcez :)

Farklı forumdan konu çektirmek isterseniz

PHP- Kodu:

   http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">

Buradaki kodu çekeceğiniz sitenin rss adresi ile değiştiriniz.

Cevap: IrcForumları TCL v1.0 - Written By CLubber

<![CDATA[ qißi Konu ßaşlıqında Çıkan yazıyı Nasıl silicem ? ve. Ayrıca ßu konuları M.Com.Tr'deki qßi Nasıl Yan yana Sıralıyacaqım.. Sanırsam İF'te Paylaştıqınız Tcl ßaşka.. Sunucuda Kullanılan Tcl ßaşka.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: IrcForumları TCL v1.0 - Written By CLubber

Bu tür problemlerde regsub komutunu kullanmak gerekir.

TCL'deki

PHP- Kodu:

       if {[info exists topic]} {

Kısmının hemen altına,

PHP- Kodu:

   regsub -all {<!\[CTDATA\[} $topic {} topic
regsub -all {\[Mirror\]} $topic {} topic
regsub -all {\]\]>} $topic {} topic
regsub -all {<!\[CDATA\[} $topic {} topic

Bu şekilde eklemeler yapın.

Cevap: IrcForumları TCL v1.0 - Written By CLubber

Yok Ustad. Eklemeleri yapınca'da ßu sefer Çalışmıyor.

Cevap: IrcForumları TCL v1.0 - Written By CLubber

Eggdrop -nm şeklinde botunuzu bir bağlayın.

Buraya çıkan hatayı kopyalarsanız, ona göre bakarız.

Cevap: IrcForumları TCL v1.0 - Written By CLubber

Tamam Ustad. Son Düzenlemendeki Kod Aktif oldu. Süper Çalışıyor Şaun. Eline Emeğine sağLık.. Tşkr Ederim.