[aquabluee]

radyo tcl de -nm ile girince suınucuya telnettekı hata su sekılde cıkıyor

Tcl error [time:optara]: channel "file10" wasn't opened for reading
[
ve bellı bır sure sonra radyo tcl yayını göstermıyor duruyor bunun sebebını nasıl cözebiliriz baktım ama bulamadım bırsey

[¿]

Tamamini veya proc time:optara kismini paylasirsan hatanin neden kaynaklandigini cozebiliriz.

[aquabluee]

¿ Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Tamamini veya proc time:optara kismini paylasirsan hatanin neden kaynaklandigini cozebiliriz.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

set gecikme_zamani "0"
set wait "0"
bind time - "* * * * *" time:optara 
proc time:optara {min hour day month year} {
global db wait gecikme_zamani 
set file [open $db r] 
set listfile [split [subst -nocommands [read $file]] "\n"] 
foreach i $listfile { 
set wait [expr $wait + $gecikme_zamani] 
set ch "#Dj"
utimer $wait [list putquick "privmsg $ch :$i"] 
} 
 
set filem [open $db w] 
set listfilem [split [subst -nocommands [read $filem]] "\n"] 
foreach i $listfilem { 
set wait [expr $wait + $gecikme_zamani] 
set ch "#Dj"
utimer $wait [list putquick "privmsg $ch :$i"] 
} 
close $file 
}

[Heartbroken]

sondaki :
close $file
close $filem olmalı.

set filem [open $db w]
satırının üstünde de
close $file
olmalı.

şunu anlamadım:
set wait [expr $wait + $gecikme_zamani]
set wait "0"
set gecikme_zamani "0"
iken ve hiçbir incr ,
arttırma olmaksızın,
0 ile 0 toplanmış ve bu utimer'a
doğal olarak 0 olarak eklenmiş oluyor ki,
bu durumda ne o iki ayarın ne ,
expr satırının ,nede
utimer $wait'in anlam ve
önemi olmuyor.
tamamen şu durumda
sadece kalabalık ediyorlar

[¿]

Bence komple sil o proc'u gereksiz yada ne yapmaya calistigini anlatirsan yardimci oluruz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[aquabluee]

webden radyo sarkı istegini dj odasına atıyor o tcl

[¿]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

bind time - "* * * * *" time:optara 
proc time:optara {min hour day month year} {
global botnick db
    set file [open $db r]
    set listfile [split [subst -nocommands [read $file]] "\n"]
    close $file
    foreach i $listfile {
        if {$i != ""} {
            set ch "#Dj"
            utimer 1 [list putquick "PRIVMSG $ch :$i"]
        }
    }
    set dosyayenile [open $db w]
    close $dosyayenile
}