#
# Haber_Okuyucu.tcl v1.5
# Bu tcl güncel haberleri haberokur.com sitesinden okuyarak kanalınıza yazdırmak için geliştirilmiştir.
# Kullanımı kanal genelinde !haber şeklindedir. ilk Komutta haberler kanala yansıtılmaya başlar
# Tekrar aynı komut verildiğinde o an okunan haberlerin bitiminde bot durur.
# Http.tcl ile birlikte kullanılmalıdır.
# Tcl'lericonfunuza ;
#
# source scripts/haber_okuyucu.tcl
# source scripts/http.tcl
#
# şeklinde ekleyebilirsiniz
#
# Yapımcı : BuCaLI
# e-mail :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
#
# Haberlerin okunacağı kanal
set kanal "#haber"
# Haberlerin Kanala Yansıyacağı Zaman Aralığı (Dakika Cinsinden)
set zaman 10
bind pub - !haber basla
channel add $kanal
proc basla { n u h c a } {
global basladi zaman kanal okut
if {![isop $n $c]} { putserv "privmsg $c Kanal Operatörü Olmadığınız İçin Bu Komudu Kullanamazsınız $n ..!" ; return 0 }
if {[info exists basladi]} {
putserv "privmsg $c \00307Haberler Durduruldu..!"
killtimer $okut
unset basladi
} else {
putserv "privmsg $c \00307Haberler Başlatılıyor..! $zaman Dakika Arayla Haberler $kanal Kanalına Yansıtılacak..."
set basladi 1
oku
}
}
proc oku { } {
global kanal zaman okut
set okut [timer $zaman [list oku]]
set baglan [::http::geturl
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
set veriler [::http::data $baglan]
set list [split [subst -nocommands $veriler] "\n"]
foreach i $list {
regexp -- {<title>(.+?)</title>} $i - baslik
regexp -- {<td width="235" valign="top">(.+?)<br><br>} $i - aciklama
regexp -- {<a href="(.+?)">Devamı İçin Tıklayınız...</a>} $i - link
if {[info exists baslik]} {
regsub -all "'" $baslik "'" baslik
regsub -all """ $baslik "\"" baslik
regsub -all " " $baslik " " baslik
putserv "privmsg $kanal \00304 ::::: $baslik :::::\003"
unset baslik
}
if {[info exists aciklama]} {
regsub -all "'" $aciklama "'" aciklama
regsub -all """ $aciklama "\"" aciklama
regsub -all " " $aciklama " " aciklama
putserv "privmsg $kanal \00301 $aciklama \003"
unset aciklama
}
if {[info exists link]} {
putserv "privmsg $kanal \00301Devamı İçin Tıklayınız »\00312 $link \003"
unset link
}
}
::http::cleanup $veriler
}
sadece web sitesini degistir kardeslik