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




1Beğeni(ler)
  • 1 Post By Heartbroken

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 16 Kasım 2021, 06:16   #1
Çevrimdışı
Saat Dilimi .Tcl




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

Açılan Kod İsteği Üzerine
Yazdığım Koddur.


(Hiç Öngöremeyeceğim Kadar
Rağbet Gördü Her Nedense!...
Hiç Özenmeden,Öylesine İşini
Görsün Diye Yazdığım Bir Mini
Scriptti Oysa...)


Belki Kullanmak İsteyen Olabilir
Burada Diye ,Paylaşayım.


Sorgular Hemen Her Dilden Yapılabilir.
(Google Translate Kaç Dilden Çeviri
Yapabiliyorsa; Sınırı Odur!)


Bilgi Aldığı Sitenin Dil Seçeneği Yok...
Merkezi İngiltere Bu Sebeple Sorgunuza
Cevap İngilizce Dönecektir...


Örnek:



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



Kod:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
package require http package require tls 1.6.4 bind pub - .t worldntime proc worldntime {nick uhost hand chan text} { if {![channel get $chan wtime]} { return 0 } if {![llength $text]} { puthelp "privmsg $chan :Usage: $::lastbind <location>"; return 0 } set TxT [YouGotTheSource https://translate.googleapis.com/translate_a/single?[http::formatQuery client gtx sl auto tl en dt t q $text]] if {[regexp -- {\"([^\"]+)\"} $TxT - transout]} { set query $transout } { set query $text } set data [YouGotTheSource http://localtimes.mobi/search/?[http::formatQuery s $query x 0 y 0]] if {[regexp -- {Home</a>(.+?)</span>.+?<div class="timeinfo">(.+?)</div>.+?<div class="tz_container">(.+?)</li>} $data - loc t1 t2]} { puthelp "privmsg $chan :\00304[cleanup $loc]\003: [cleanup $t1]" puthelp "privmsg $chan :[cleanup $t2]" } else { puthelp "privmsg $chan :No any information found for \"$text\". Please be more specific!"; return } return 0 } proc cleanup str { regsub -all -- {(?:<label>|</label>)} $str \002 str regsub -all -- "<.+?>" $str " " str regsub -all -- {&raquo;} $str \003\u00bb\00304 str regsub -all -- {&nbsp;} $str { } str regsub -all -- {\s+} $str { } str return $str } proc YouGotTheSource URL { if {[catch {set token [http::geturl $URL -timeout 9000]} error]} { set err "Connection failor! [string map {\n " "} $error]" } elseif {[http::status $token] ne "ok" || [http::ncode $token] != "200"} { set err "[http::status $token] - [http::code $token]" ::http::cleanup $token } else { set data [http::data $token] ::http::cleanup $token } if {[info exists data] && [string length $data]} { return $data } if {[info exists err] && [string length $err]} { foreach _ [channels] { if {[channel get $_ wtime]} { puthelp "privmsg $_ :$err" }} } } ::http::register https 443 [list ::tls::socket -ssl2 0 -ssl3 0 -tls1 1] setudef flag wtime


TclTLS Paketine Sahip Olmalısınız!
Yükledikten Sonra Aktif Etmek İçin:
.chanset #Kanal +wtime
Şurada: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Açılan Kod İsteği Üzerine
Yazdığım Koddur.


(Hiç Öngöremeyeceğim Kadar
Rağbet Gördü Her Nedense!...
Hiç Özenmeden,Öylesine İşini
Görsün Diye Yazdığım Bir Mini
Scriptti Oysa...)


Belki Kullanmak İsteyen Olabilir
Burada Diye ,Paylaşayım.


Sorgular Hemen Her Dilden Yapılabilir.
(Google Translate Kaç Dilden Çeviri
Yapabiliyorsa; Sınırı Odur!)


Bilgi Aldığı Sitenin Dil Seçeneği Yok...
Merkezi İngiltere Bu Sebeple Sorgunuza
Cevap İngilizce Dönecektir...


Örnek:



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



Kod:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
package require http package require tls 1.6.4 bind pub - .t worldntime proc worldntime {nick uhost hand chan text} { if {![channel get $chan wtime]} { return 0 } if {![llength $text]} { puthelp "privmsg $chan :Usage: $::lastbind <location>"; return 0 } set TxT [YouGotTheSource https://translate.googleapis.com/translate_a/single?[http::formatQuery client gtx sl auto tl en dt t q $text]] if {[regexp -- {\"([^\"]+)\"} $TxT - transout]} { set query $transout } { set query $text } set data [YouGotTheSource http://localtimes.mobi/search/?[http::formatQuery s $query x 0 y 0]] if {[regexp -- {Home</a>(.+?)</span>.+?<div class="timeinfo">(.+?)</div>.+?<div class="tz_container">(.+?)</li>} $data - loc t1 t2]} { puthelp "privmsg $chan :\00304[cleanup $loc]\003: [cleanup $t1]" puthelp "privmsg $chan :[cleanup $t2]" } else { puthelp "privmsg $chan :No any information found for \"$text\". Please be more specific!"; return } return 0 } proc cleanup str { regsub -all -- {(?:<label>|</label>)} $str \002 str regsub -all -- "<.+?>" $str " " str regsub -all -- {&raquo;} $str \003\u00bb\00304 str regsub -all -- {&nbsp;} $str { } str regsub -all -- {\s+} $str { } str return $str } proc YouGotTheSource URL { if {[catch {set token [http::geturl $URL -timeout 9000]} error]} { set err "Connection failor! [string map {\n " "} $error]" } elseif {[http::status $token] ne "ok" || [http::ncode $token] != "200"} { set err "[http::status $token] - [http::code $token]" ::http::cleanup $token } else { set data [http::data $token] ::http::cleanup $token } if {[info exists data] && [string length $data]} { return $data } if {[info exists err] && [string length $err]} { foreach _ [channels] { if {[channel get $_ wtime]} { puthelp "privmsg $_ :$err" }} } } ::http::register https 443 [list ::tls::socket -ssl2 0 -ssl3 0 -tls1 1] setudef flag wtime


TclTLS Paketine Sahip Olmalısınız!
Yükledikten Sonra Aktif Etmek İçin:
.chanset #Kanal +wtime
__________________
Beş Tas Has Hoş Hoşaf.

Konu Heartbroken tarafından (16 Kasım 2021 Saat 06:18 ) değiştirilmiştir.
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
radyo44.com.tr
Alt 16 Kasım 2021, 09:37   #2
Çevrimiçi
Che
Che - ait Kullanıcı Resmi (Avatar)
Cevap: Saat Dilimi .Tcl




Eline sağlık.

__________________
char *adres = [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] for(int i = 0; *(adres + i); i++) { putchar(toupper(adres[i])); }
  Alıntı ile Cevapla

Cevapla

Etiketler
eggdrop, saat dilimi, tcl, timezone

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Yerel Saat Nedir?, Ortak (Ulusal Saat) ,Saat Dilimleri,Uluslararası Saat Özellikleri? Violent Genel Coğrafya 0 16 Aralık 2013 22:26
Dilimi tutamam? KarakıZ Dini Şiirler 0 28 Kasım 2011 13:45
İslami saat dilimi geliyor Feronia Haber Arşivi 0 15 Haziran 2010 12:59
Hay dilimi... MavipikSeL Komik Loglar 4 02 Ağustos 2007 02:34