Tcl error invalid channel hatası - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

DeLioP · 02 Aralık 2013, 03:00

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: Kodu kopyalamak için üzerine çift tıklayın!

#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
}
}

Kutluhan · 02 Aralık 2013, 21:22

#############################################
# 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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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.

DeLioP · 04 Aralık 2013, 00:05

maalesef bu da aynı hatayı veriyor dostum..

Tcl error [voysver]: illegal channel: #radyo

MasteR06 · 04 Aralık 2013, 11:25

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.

MesqeN · 04 Aralık 2013, 23:11

@[Ü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"

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Mybb de ınternal error hatası	asilsoy	MyBB	1	01 Mart 2012 17:57
FlaxChat Applet Error Hatası	TurkuaZ	Servisler	5	08 Haziran 2010 16:32
You're not channel operator hatası	HaLiKaRNaSX	mIRC Scripting Sorunları	4	06 Temmuz 2009 13:50

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.