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

CLubber · 04 Şubat 2012, 19:58

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.

IUC · 07 Şubat 2012, 01:19

saol clubber bu iyi oldu

eTheRciTy · 02 Mayıs 2012, 00:12

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ı ?

MorfiN · 02 Mayıs 2012, 12:00

yada farklı bir forumdan konu cektirmek istesek o nu naısl etcez
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

CLubber · 02 Mayıs 2012, 15:44

eTheRciTy Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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ı ?

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

wolf- Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

yada farklı bir forumdan konu cektirmek istesek o nu naısl etcez
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Farklı forumdan konu çektirmek isterseniz

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


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.

eTheRciTy · 04 Mayıs 2012, 20:19

<![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.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

CLubber · 04 Mayıs 2012, 21:20

Bu tür problemlerde regsub komutunu kullanmak gerekir.

TCL'deki

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


    if {[info exists topic]} {

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

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


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

Bu şekilde eklemeler yapın.

eTheRciTy · 04 Mayıs 2012, 23:00

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

CLubber · 04 Mayıs 2012, 23:05

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

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

eTheRciTy · 05 Mayıs 2012, 00:22

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Gülçin Ergül – Written In The Clouds	CORDON BLEU	Yabancı Şarkı Sözleri	0	01 Ağustos 2021 13:30
RezilEt Tcl - Written by aLoNe - Lamerlerle kafa bulun :)	house	TCL Scriptler	12	24 Ekim 2018 17:04
Services Bot TCL v1.0 - Written By CLubber	CLubber	TCL Scriptler	9	25 Aralık 2012 07:05

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.