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ı

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

[KBSC] 03::43 <12eTheRciTy> !tarih
[KBSC] 03::43 <14Star> » Kurtuluş Günü - Trabzon /Akçaabat
[KBSC] 03::43 <14Star> » Kelaynak Günü - Şanlıurfa /Birecik
[KBSC] 03::43 <14Star> » Kurtuluş Günü - Gümüşhane /Kelkit
[KBSC] 03::43 <14Star> » Fransız yazar Molière öldü.
[KBSC] 03::43 <14Star> » Şeyh Şamil vefat etti.
[KBSC] 03::43 <14Star> » Apaçi reisi Geronimo öldü.
[KBSC] 03::43 <14Star> » Hicaz Seferi Kuvvetler Komutanlığı'na atanan Mustafa Kemal, bu görevi kabul etmedi.
[KBSC] 03::43 <14Star> » Mustafa Kemal ikinci defa Büyük Millet Meclisi Başkanlığı'na seçildi.
[KBSC] 03::43 <14Star> » İzmir İktisat Kongresi başladı.
[KBSC] 03::43 <14Star> » Johnny Weissmuller, 100 yarda (91.4 m) serbest stil yüzmede 52-2/5 saniye ile dünya rekoru kırdı.
[KBSC] 03::43 <14Star> » Osmanlı toprak sisteminden kalan ‘Aşar Vergisi’ kaldırıldı.
[KBSC] 03::43 <14Star> » Türk Medeni Kanunu kabul edildi.
[KBSC] 03::43 <14Star> » Türk Gazeteciler Birliği kuruldu.
[KBSC] 03::43 <14Star> » Newsweek dergisi yayımlanmaya başlandı.
[KBSC] 03::43 <14Star> » Çoruh ilinin adı Artvin olarak değiştirildi.
[KBSC] 03::43 <14Star> » Türk ve Alman İş ve İşçi Bulma Kurumları arasında yapılan anlaşmaya göre, her yıl Almanya'ya çeşitli iş kollarında çalıştırılmak üzere Türk işçileri gönderilmesi kararlaştırıldı.
[KBSC] 03::43 <14Star> » İstanbul’da ünlü Bebek Belediye Gazinosu, yeşil saha açılması için yıktırıldı.
[KBSC] 03::43 <14Star> » Microsoft, Windows 2000 işletim sistemini piyasaya sürdü.
[KBSC] 03::44 <14Star> » Kosova, Sırbistan'dan ayrılarak tek taraflı bağımsızlık ilan etti.
[KBSC] 03::44 <14Star> » Söz yazarı ve tiyatro oyuncusu Aysel Gürel vefat etti.
[KBSC] 03::44 <14Star> » Tiyatro ve sinema sanatçısı Gazanfer Özcan vefat etti.

10 Numara Çalışıyor Üstad. Emeğine. Yüreğine SağLık..

Cevap: * / Tarihte Bugün TCL * /

Bunun socketi olabilirmi ?

Cevap: * / Tarihte Bugün TCL * /

Alıntı:

ads Nickli Üyeden Alıntı (Mesaj 1041170587)

Bunun socketi olabilirmi ?

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

Buradan kodu temin edebilirsiniz.