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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)
-   -   NBA .tcl - Maçlar / Nbaonlinetv yayın linkleri... (https://www.ircforumlari.net/tcl-scriptler/550121-nba-tcl-maclar-nbaonlinetv-yayin-linkleri.html)

saywhat 06 Ekim 2013 23:29
NBA .tcl - Maçlar / Nbaonlinetv yayın linkleri...
 
->> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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

No_FeaR 04 Aralık 2013 23:28
Cevap: NBA .tcl - Maçlar / Nbaonlinetv yayın linkleri...
 
Link Sanırım Ölü...

kheldor 05 Aralık 2013 02:49
Cevap: NBA .tcl - Maçlar / Nbaonlinetv yayın linkleri...
 
[02:47:21] <BT> NBA maçları / Yayın akışları listeleniyor...

Böyle dedikten sonra kalıyor önceden calısıyordu. Sanırım sitede kısım güncellendi. Saywhat tekrar bakarsa sorunu düzeltir kesin.


PHP- Kodu:
package require http

;# scriptin kullanılacağı kanal:
 set nbachan "#bitturk"
 
 ;# kaç satır listelensin:
 set satr "6"
 
 ;# komutu kullanma yetkileri:
 set nbaflags "-|-"
 
 ;# komut/trigger işareti/sembolü ne olsun:
 set semb "."
 
 ;# komutu ne olacak:
 set kmt "nba"
 
 bind pub $::nbaflags $::semb$::kmt nba:stream
 
 proc nba:stream {nick uhost hand chan arg} {  
   ::http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)"
   set url [::http::geturl "http://nbaliveonline.tv/streaming/" -timeout 60000]
   set data [::http::data $url]
   ::http::cleanup $url
   set x "WATCH NBA TV / ESPN"
   set i 0
   puthelp "privmsg $chan :\00304NBA\003 maçları / \00304Yayın\003 akışları listeleniyor..."
   foreach line [split $data "\n"] {
     while {$i < [expr {$::satr - 1}] && [regexp -line {style='float:left;'><a href='(.*?)' itemprop='url' title='.*?' target='_blank'>(.*?)</a><br /><.+eventTime: '(.*?)'} $line g a b e]} {
      regexp -line {style='float:left;'><a href='(.*?)' itemprop='url' title='.*?' target='_blank'>(.*?)</a><br /><.+eventTime: '(.*?)'} $line g a b e
      regsub -line {style='float:left;'><a href='(.*?)' itemprop='url' title='.*?' target='_blank'>(.*?)</a><br /><.+eventTime: '(.*?)'} $line "" line
        set e [string map -nocase {
      "Jan" "Ocak" "Feb" "Şubat" "Mar" "Mart" "Apr" "Nisan" 
      "May" "Mayıs" "Jun" "Haziran" "Jul" "Temmuz" "Aug" "Ağustos" 
      "Sep" "Eylül" "Oct" "Ekim" "Nov" "Kasım" "Dec" "Aralık"} [join $e]]
      if {[regexp $b $x]} {
      puthelp "privmsg $::nbachan :\00306$b\003 \00309|\003 \037\00312$a\037\003"
      } else {
      puthelp "privmsg $::nbachan :\00306$e\003 \00309|\003 \00304$b\003 \00309|\003 \037\00312$a\037\003"
      incr i
      }
    }
  }
}

putlog "ok..." 

saywhat 13 Şubat 2014 09:27
Cevap: NBA .tcl - Maçlar / Nbaonlinetv yayın linkleri...
 
Onarıldı -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

kheldor 15 Şubat 2014 13:31
Cevap: NBA .tcl - Maçlar / Nbaonlinetv yayın linkleri...
 
[13:25:27] invalid command name "package"
while executing
"package require http"
(file "scripts/nba2.tcl" line 1)
invoked from within
"source scripts/nba2.tcl"
(file "radyo.conf" line 112)
[13:25:27] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

Şeklinde hata vermekte.

kheldor 16 Ağustos 2014 20:46
Cevap: NBA .tcl - Maçlar / Nbaonlinetv yayın linkleri...
 
Coderların ellerinden öper... Hata hala devam etmekte. Sevgiler.

saywhat 17 Ağustos 2014 12:07
Cevap: NBA .tcl - Maçlar / Nbaonlinetv yayın linkleri...
 
hernasıl txt. editörü kullanıyorsanız "Tcl desteklemiyor".. kodu bozuyor. hata olduğunu belirttiğiniz satır "package require http" -> "http paketi gerektirir" 'den ibaret ... nasıl bir editörse kullandığınız... yada nasıl bir copy-paste yapmışsanız ,bu satırın başına , birtakım karakterler eklenmesine sebep olmuş, *hata* dediğiniz şey budur.... bunun "coderlarla" vs işi yok... (o coderlar da herkimse artık....)


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 09:52.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk