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

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - Tcl error invalid channel hatası (https://www.ircforumlari.net/eggdrop-neostats-bnc/556152-tcl-error-invalid-channel-hatasi.html)

Tcl error invalid channel hatası

Merhab arkadaşlar, elimde radyo dinleyene kanalda voice veren bir tcl var ve malesef aşağıdaki hatayı alıyorum.

ne yaptıysam çözümü bulamadım. Bu konuda bilgili arkadaşlardan yardım bekliyorum. teşekkürler

Alınan hata mesajı: Tcl error [who_son]: invalid channel: #Radyo

TCL içeriği

Kod:

#radyo kanali

set sc(kanal) "#Radyo"

#dj kanali

set sc(dkanal) "#Dj"

#radyo portu

set sc(port) "2599"

#radyo ip

set sc(ip) "72.20.58.121"

#radyo sifre

set sc(sifre) "zasxcdfv2"

set SayIp "0"
 

#Ayar kisimlari bitti, gerisini ellemenize gerek yoktur.
 

bind raw – 315 who_son

bind time – "* * * * *" sc:dinleyici

proc sc:dinleyici {min hour day month year} {

global nicks SayIp

http::config -useragent "Mozilla 5.0"

set baglan [http::geturl http://$::sc(ip):$::sc(port)/admin.cgi?pass=$::sc(sifre)&mode=viewxml&page=0 -timeout 10000]

set httpraw [http::data $baglan]

set nicks ""

set ips ""

set SayIp "0"

http::cleanup $baglan
 

if { [regexp "<LISTENERS>(.*?)</LISTENERS>" $httpraw data veri] } {

set listeraw $veri

bind raw – 352 raw_oku

regsub -all "</LISTENER>" $listeraw "</LISTENER>\n" listeraw

foreach strListe $listeraw {

if { [regexp "<HOSTNAME>(.*?)</HOSTNAME>" $strListe data ipVeri] } {

if {[regexp $ipVeri $ips] == "0"} {

lappend ips $ipVeri

incr SayIp
 

}

}

}

}

foreach x $ips {

putserv "who +i $x"

}

}

proc raw_oku {from keyword arg} {

global nicks

set nick [lindex $arg 5]

if {[regexp {$nick} $nicks] == "0"} {
 

lappend nicks $nick

}

}

proc who_son {from keyword arg} {

global nicks SayIp

set SayIp [expr $SayIp - 1]

;#putlog $SayIp

if {$SayIp == "0"} {

foreach xy [chanlist $::sc(kanal)] {

if {[regexp $xy $nicks] == "1"} {

if {[isvoice $xy $::sc(kanal)] == "0"} {

putserv "sajoin $xy $::sc(kanal)"

putserv "mode $::sc(kanal) +v $xy"

putserv "privmsg $xy :0,12 Radyomuzu dinlediginiz için teşekkürler $xy. "

}

}

if {[regexp $xy $nicks] == "0"} {

if {[isvoice $xy $::sc(kanal)] == "1"} {

putserv "mode $::sc(kanal) -v $xy"

putserv "privmsg $xy :0,2 Radyomuzu dinlemek için tıklayın: 0,6 http://72.20.58.121:2599/listen.pls "

}

}

}

#putserv "PRIVMSG $::sc(dkanal) :0,4.::. Şuanda Radyomuzu Dinleyenler .::. 0,12 $nicks "

unbind raw – 352 raw_oku

}

}

Cevap: Tcl error invalid channel hatası

#############################################
# radyo-yama.tcl By MechuL InteL
# Yayını dinleyene voice verir.
# yayını dinlediği için teşekkür eder..
# e-mail: gwolkan@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].com
#############################################

# Radyo ip'sini yazınız..
set radyoip "RadyoIp"

# Radyo portunu yazınız..
set rport "Port"

# Radyo şifresini yazınız..
set rsifre "Sifre"

# Radyo kanalını yazınız.. Büyük küçük harfe dikkat ediniz.
# Örnek #Radyo ile #radyo farklıdır ;)
set rkanal "#Radyo"

################################################## #############
################################################## #############
### PROCS............................................. ..........
################################################## #############
################################################## #############

bind time - "* * * * *" yenidinleyici
proc yenidinleyici {min hour day month year} {
global radyoip rsifre rport
if {[catch {set sock [socket $radyoip $rport] } sockerror]} {
putlog "error: $sockerror"
return 0
} else {
puts $sock "GET /admin.cgi?pass=$rsifre&mode=viewxml&page=0 HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $radyoip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set voicevr [string range $bl [shrink + 11 "<LISTENERS>" 0 $bl] [shrink - 1 "</LISTENERS>" 0 $bl]]
}
}
close $sock
}
set voicevr [temiz $voicevr]
set deger 0
set ::rawcount 0
set ipler ""
bind raw - 352 voysver
foreach i $voicevr {
if {[regexp {^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$} [lindex $voicevr $deger]]} {
incr ::rawcount
lappend ipler "[lindex $voicevr $deger] "
}
incr deger
}
set ydeger 0
foreach j $ipler {
putquick "who +i [lindex $ipler $ydeger]"
incr ydeger
}
}

proc shrink { calc number string start bl} { return [expr [string first "$string" $bl $start] $calc $number] }

proc voysver {from keyword arg} {
global rkanal
if {![isvoice [lindex $arg 5] $rkanal]} {
putquick "mode $rkanal +v [lindex $arg 5]"
}
}

bind raw - 315 countdusur
proc countdusur {from keyword arg} {
set ::rawcount [expr $::rawcount - 1]
if {$::rawcount == "0"} {
unbind raw - 352 voysver
}
}

proc temiz {veri} {
regsub -all \< $veri " " veri
regsub -all \/ $veri " " veri
regsub -all \> $veri " " veri
return $veri
}

putlog "radyo-yama.tcl By \002MechuL"

Bu Tcl İşini Görecektir.

Cevap: Tcl error invalid channel hatası

maalesef bu da aynı hatayı veriyor dostum..

Tcl error [voysver]: illegal channel: #radyo

Cevap: Tcl error invalid channel hatası

TCL ile conf dosyasında yazan kanal isimlerinin aynı olduğundan emin olun.
Radyo,radyo,radio,bilmemneFM,Fm isimleri olabilir.Bunlar küçük hatalardır tekrar gözden geçirmenizi tavsiye ederim.

Cevap: Tcl error invalid channel hatası

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

Radyo dinleyene voice + Teşekkür Tcl.

Alıntı:

set radiochans "#Radyo"

set adminchans "#Dj"

set streamip "155.247.15.213"

set streamport "2121"

set streampass "123456"
set tamadres [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

bind time - "* * * * *" yenidinleyici

proc yenidinleyici {min hour day month year} {

global streamip streampass streamport

if {[catch {set sock [socket $streamip $streamport] } sockerror]} {

putlog "error: $sockerror"

return 0

} else {

puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"

puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"

puts $sock "Host: $streamip"

puts $sock "Connection: close"

puts $sock ""

flush $sock

while {[eof $sock] != 1} {

set bl [gets $sock]

if { [string first "standalone" $bl] != -1 } {

set voicevr [string range $bl [shrink + 11 "<LISTENERS>" 0 $bl] [shrink - 1 "</LISTENERS>" 0 $bl]]

set streamstatus "[string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]"

}

}

close $sock

}

if {[info exists streamstatus] && $streamstatus == "1"} {

set voicevr [temiz $voicevr]

if {[llength $voicevr] < 1} { return 1 }

set deger 0

set ::rawcount 0

set ipler ""

bind raw -|- 352 voysver

foreach i $voicevr {

if {[regexp {^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$} [lindex $voicevr $deger]]} {

incr ::rawcount

lappend ipler "[lindex $voicevr $deger] "

}

incr deger

}

set ydeger 0

foreach j $ipler {

putquick "who +i [lindex $ipler $ydeger]"

incr ydeger

}

}

}

proc voysver {from keyword arg} {

set x [open dinleyici1.txt a]

puts $x [lindex $arg 5]

close $x

}

　

bind raw - 315 countdusur

proc countdusur {from keyword arg} {

global radiochans

if {$::rawcount > 0} {

set ::rawcount [expr $::rawcount - 1]

if {$::rawcount == "0"} {

unbind raw -|- 352 voysver

if {![file exists dinleyici2.txt]} {

putlog "şuan1 dinleyici2.txt : [file exists dinleyici2.txt]"

set x [open dinleyici1.txt r]

set y [read $x]

close $x

set w [open dinleyici2.txt a]

puts $w $y

close $w

foreach m $y {

if {[onchan $m $radiochans]} {

putquick "mode $radiochans +v $m"

putquick "privmsg $radiochans :\002$m\002 Radyo'yu dinlediğiniz için teşekkürler."

}

}

file delete dinleyici1.txt

} elseif {[file exists dinleyici2.txt]} {

set t [open dinleyici1.txt]

set m [open dinleyici2.txt]

set t1 [read $t]

set m1 [read $m]

foreach x $t1 {

set bulundu 0

foreach y $m1 {

if {$x == $y} { set bulundu 1 }

}

if {$bulundu == "0"} {

putquick "mode $radiochans +v $x"

putquick "privmsg $radiochans :\002$x\002 Radyo'yu dinlediğiniz için teşekkürler."

putquick "notice $x :\002$x\002 #Radyo 'yu dinlediğiniz için Teşekkürler"

putquick "privmsg $x :2Merhaba4 $x "

putquick "privmsg $x :2Suanda 7KELEBEK 4RADYO 2Dinleyci Konumuna gectiniz Keyifli Vakitler gecirmeniz dilegi ile Bizden Ayrilmayin! "

putquick "privmsg $x :2Dj'lerimizden Onlyn istek isteye bilirsiniz Tek yapmanız gereken #radyo Kanalında "

putquick "privmsg $x : 12ÖRNEK : !istek Gülşen YATCAZ KALKCAZ4KELEBEK Radyo dinleycilerine gelsin 2Yazmanız yeterlidir."

}

}

foreach x $m1 {

set bulundu 0

foreach y $t1 {

if {$x == $y} { set bulundu 1 }

}

if {$bulundu == "0"} {

putquick "mode $radiochans -v $x"

putquick "privmsg $radiochans : 7 $x 2Dinleyci Konumundan 7Ayrıldı"

}

}

close $m ; close $t

file delete dinleyici2.txt

file copy dinleyici1.txt dinleyici2.txt

file delete dinleyici1.txt

}

}

}

}

　

　

proc temiz {veri} {

regsub -all \< $veri " " veri

regsub -all \/ $veri " " veri

regsub -all \> $veri " " veri

return $veri

}

denermisin.

ve Radyo.conf değiştir. değiştiremiyorsan Log dosyalarını sil

düzenlenecek kısım.

set userfile "logs/userler1.user"
set chanfile "logs/kanallar2.chan"
logfile jpk #Radyo "logs/bostur3.log"
logfile msbxco * "logs/status4.log"