IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Eggdrop

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

- - Eggdrop - Tarihte Bugün TCL (https://www.ircforumlari.net/tcl-scriptler/448280-eggdrop-tarihte-bugun-tcl.html)

Eggdrop - Tarihte Bugün TCL

Kod:

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

#          Tarihte Bugün TCL v1.0 - Written By CLubber           #

#       Bu TCL ile tarihte bugün ne olmuş öğrenebilirsiniz.      #

#                Kullanımı: <!tarih> şeklindedir.                #

#       TCL'nin çalışabilmesi için HTTP TCL'ye ihtiyaç vardır.   #

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

# Komutun Kullanılacağı Kanal

set cmd_chan "#Tarih"

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

# Tarihte Bugün TCL v1.0 - Written By CLubber #

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

bind pub - !tarih msg_history

proc msg_history {nick uhost hand chan text} {

  global botnick cmd_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 -- {<td colspan="2" class="text" style="padding-left:5px"><strong> (.+?) </strong></td>} $i - topic

    regexp -- {<td class="text" style="padding:6px">(.+?)<br></td>} $i - description

    if {[info exists topic]} { 

      putserv "privmsg $cmd_chan 4» $topic"

      unset topic

    }

    if {[info exists description]} { 

      putserv "privmsg $cmd_chan » $description"

      unset description

    }

    ::http::cleanup $files

  }

}

putlog "Tarihte Bugün TCL v1.0 - Written By CLubber"

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.

* NOT: Forum nedeni ile site isminde problem çıkıyor. Kullanabilmeniz için site ismindeki "(.)" parantezini "." haline getirmeniz gerekmektedir.

Cevap: Tarihte Bugün TCL v1.0 - Written By CLubber

[10:03] Tcl error [msg_history]: couldn't open socket: host is unreachable

Bu tarz bir hata verdi..

Cevap: Tarihte Bugün TCL v1.0 - Written By CLubber

* NOT: Forum nedeni ile site isminde problem çıkıyor. Kullanabilmeniz için site ismindeki "(.)" parantezini "." haline getirmeniz gerekmektedir.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Buradaki parantezleri kaldırın ve http tcl ile beraber kullanın.

Cevap: Tarihte Bugün TCL v1.0 - Written By CLubber

çalılşmadı clubber tcl dizinde http.tcl oldugu halde halen script http.tcl gerekir uyarısı veriyor farklı versiyonlarda http.tcl ler tek tek denendi diğer sciptlerim sorunsuz çalışıyor

Cevap: Tarihte Bugün TCL v1.0 - Written By CLubber

Hava durumu TCL kullanıyorsanız, package ... ile başlayan kodu silin.

Cevap: Tarihte Bugün TCL v1.0 - Written By CLubber

hayır saw'ın hava durumu scriptini kullanmıyorum

Cevap: Tarihte Bugün TCL v1.0 - Written By CLubber

Kod:

package require http

Böyle bir kod var TCL'nizde, onu silip conf dosyanızın en alt satırına;

Kod:

source scripts/http.tcl

Ekleyin ve kodda bulunan (.) parantez işaretini silin.

Cevap: Tarihte Bugün TCL v1.0 - Written By CLubber

scriptin içinde göremedim herneyse önemli değil

Cevap: Tarihte Bugün TCL v1.0 - Written By CLubber

Alıntı:

ufukcingay Nickli Üyeden Alıntı (Mesaj 1041031330)

scriptin içinde göremedim herneyse önemli değil

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

buradaki http.tcl kullan bende sorunsuz calısıyor irde bunu dene istersen.

Cevap: Tarihte Bugün TCL v1.0 - Written By CLubber

optimist 2 inci kere aynı linki verişin saol bu bende çok evvelden vardı üst versionlarıda var sorun çalışmadı