[Laqinta]

s.a arkadaslar arkdasın forumuna bu tcl yi kurdumda calısmadı acaba kod eski mi yardım edecek biri var mı .?

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 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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"

[saywhat]

sadece linki değişerek bir kodun/scriptin çalışmasını bekleyemezsiniz. her site/adrese göre kod/scriptin yapısı oluşturulup yazılması gerekir. keşke o kadar basit olsaydı.

bunu kullanabilirsiniz rss feed'leri için -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Laqinta]

Forumlarin ikiside vbullettin fazla bi yerin degişcegini sanmiyorum su title,category,creator filan kısımlarını nasıl görürüm bnm forumdaki ?

[saywhat]

browser üzerinde (internet Explorer, mozilla firefox vs..) sayfayı açıp, ya sayfa üstüne sağ tıkla açılan menüden , sayfa kaynağını göster* (view source) yada browser'ınızın araçlar (tools ALT+X) menüsünde geliştirici araçları* (F12 developer tools) tıklayarak sayfa kaynağını görebilirsiniz. (IE Explorer için*)


firefox'ta ya sağ tık "sayfa kaynağını göster"yada ,sağ üst köşeden,"menüyü aç/geliştirici/sayfa kaynağı* yada geliştirici araç çubuğu" açarak sayfa kaynak kodlarını görebilirsiniz.

[MesqeN]

Merhaba RSS Okuycu Forum için ideal ..


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


burdan indire bilirsin.


Editlemen gereken yerler.


"
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color="red"> "./scripts/webdestek/1222.db"


"channels" "#Radyo"




!haber komutu ile çalışacaktır..
Veya.. yeni eklemelerde kanala oto yansıtacaktır.

[saywhat]

MesqeN : buradaki -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] -> set version(number) 0.5.1; set version(date) "2012-02-27"

sizin verdiğiniz linkteki -> set version(number) "0.4"; set version(date) "2007-02-08"

rss okuyucu * adını kim koymuş,bilemem, ama kodun "gerçek" adı rss-sync ( RSS Syndication ) oldukça popüler ve en çok kullanılan,tanınan scriptlerden biridir. -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

scriptin son* sürümü github'taki benim yukarıda verdiğim halidir. ve öylede kalacak ,çünkü scriptin yazarı bu işleri bıraktığını ilan edip vedalaştı.
ve o günden beridir yaklaşık iki senedir irc'ye girmiyor artık...

Efnet'teki #EggTcl kanalı projelerinden biriydi. bir ideal * peşinde bir grup oluşturup bunun gibi "kaliteli" scriptler üretmek gibi bir ideal/oluşum vardı birkaç yıl öncesine kadar... ancak bir noktaya kadar ilerleyebildi. bu script'te bunun ürünlerinden biri.

ben yukarıda önermiştim ama istemediler. o Clubber'ın scriptini düzenlemekte ısrarcı belli ki...

[Laqinta]

Bu verdiginiz tcl sadece rss olarak mı yayınlıyor kanala kim tarafından hangi kategori, konun linki vermez heralde ben o şekilde istiyordumda clubberin kodununu onun için sectim yani.