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

unpainful · 21 Mart 2016, 15:32

Her restartladığımda düzeliyor fakat belli bi süre geçtikten sonra yine aynı hatayı vermeye başlıyor ve kanala yansıtıyor " Baglanamadi : couldn't open socket: too many open files " daha önce böyle bir hata ile karşılaşan varmı tcl konusunda aranızda arkadaşlar?

diE · 21 Mart 2016, 15:51

O Hatayı Aldıgında Botu Telnet üzerinden çıkar geri Sok Sunucuyu Komple resetlemene gerek yok

unpainful · 21 Mart 2016, 16:12

Botu Restartlıyorum Ssh üzerinden zaten , kalıcı bi çözüm değil sonuçta ilginiz için teşekkürler @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

aSpeNDos · 21 Mart 2016, 18:57

TcL paylaşırmısın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

unpainful · 21 Mart 2016, 20:07

Alıntı:

##################### Ayarlar #####################
set radyo(ip) "xx"
set radyo(port) "xxx"
set radyo(pass) "xxxx"
set radyo(chan) "#Radyo"
set radyo(adm) "#Dj"
set radyo(drm) "!durum"
set radyo(link) "!link"
set radyo(dinleyen) "!dinleyen"
set radyo(dj) "!dj"
set radyo(yardim) "!Help"
set radyo(kick) "!kick"
set radyo(djcmd) "!dj"
set radyo(weblink) "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set radyo(wiamplink) "http://Radyo.xXX:9912/listen.pls "
set radyo(calan) "!calan"
set radyo(online) "1"
################### Ayarlar bitti burdan sonrasina dokunma

bind time - "* * * * *" isonline
bind time - "?0 * * * *" global:at
bind join - * dj:giris
bind pubm - * kanala:yaz
bind pub - !var var
bind pub - !yok yok
bind pub - !istek istek
bind pub - !dur dur
bind pub - !basla basla
bind pub - !global global:at

channel add $radyo(chan)
channel add $radyo(adm)

proc global:at {nick uhost hand chan arg} {
global radyo temizle
putquick "os global \0034,4 \0030,1 Müziğin kalbi 7xXX0'de atıyor.. \0034,4 "
putquick "os global \0034,4 \0030,1 Radyomuzu Winamp'tan dinlemek icin \0034,1 | \0037 http://$radyo(ip):$radyo(port)/listen.pls" \0034,4 "
putquick "os global \0034,4 \0030,1 İsteklerinizi Radyo kanalına 7!istek <istediğiniz Sarkı ve Mesajınız>0 Şeklinde Yapabilirsiniz. \0034,4 "
}

proc helpme {nick uhost hand chan arg} {
global radyo
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1bilgi için \0034,1 | \0037 $radyo(yardim)"
}

proc dj:giris {nick uhost hand chan} {
global botnick radyo
if {$nick == $botnick} { putquick "MODE $chan +v $botnick";putquick "MODE $chan -f";return 0}
}

proc shrink { calc number string start bl} { return [expr [string first "$string" $bl $start] $calc $number] }
proc kanala:yaz {nick uhost hand chan arg} {
global radyo botnick server temizle
if {[catch {set sock [socket $radyo(ip) $radyo(port)] } sockerror]} {
putquick "PRIVMSG $chan
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
aglanamadi : $sockerror"
return 0
} else {
puts $sock "GET /admin.cgi?pass=$radyo(pass)&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: $radyo(ip)"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set streamstatus [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]
set repl [string range $bl [shrink + 19 "<REPORTEDLISTENERS>" 0 $bl] [shrink - 1 "</REPORTEDLISTENERS>" 0 $bl]]
set curhigh [string range $bl [shrink + 15 "<PEAKLISTENERS>" 0 $bl] [shrink - 1 "</PEAKLISTENERS>" 0 $bl]]
set currentl [string range $bl [shrink + 18 "<CURRENTLISTENERS>" 0 $bl] [shrink - 1 "</CURRENTLISTENERS>" 0 $bl]]
set surl [string range $bl [shrink + 11 "<SERVERURL>" 0 $bl] [shrink - 1 "</SERVERURL>" 0 $bl]]
set maxl [string range $bl [shrink + 14 "<MAXLISTENERS>" 0 $bl] [shrink - 1 "</MAXLISTENERS>" 0 $bl]]
set bitrate [string range $bl [shrink + 9 "<BITRATE>" 0 $bl] [shrink - 1 "</BITRATE>" 0 $bl]]
set stitle [string range $bl [shrink + 13 "<SERVERTITLE>" 0 $bl] [shrink - 1 "</SERVERTITLE>" 0 $bl]]
set sgenre [string range $bl [shrink + 13 "<SERVERGENRE>" 0 $bl] [shrink - 1 "</SERVERGENRE>" 0 $bl]]
set calan [string range $bl [shrink + 11 "<SONGTITLE>" 0 $bl] [shrink - 1 "</SONGTITLE>" 0 $bl]]
if {$sgenre != ""} {set sgenre " ($sgenre)"}
set avgtime [string range $bl [shrink + 13 "<AVERAGETIME>" 0 $bl] [shrink - 1 "</AVERAGETIME>" 0 $bl]]
set irc [string range $bl [shrink + 5 "<IRC>" 0 $bl] [shrink - 1 "</IRC>" 0 $bl]]
set icq [string range $bl [shrink + 5 "<ICQ>" 0 $bl] [shrink - 1 "</ICQ>" 0 $bl]]
if {$icq == 0} { set icq "N/A" }
set aim [string range $bl [shrink + 5 "<AIM>" 0 $bl] [shrink - 1 "</AIM>" 0 $bl]]
set webhits [string range $bl [shrink + 9 "<WEBHITS>" 0 $bl] [shrink - 1 "</WEBHITS>" 0 $bl]]
set streamhits [string range $bl [shrink + 12 "<STREAMHITS>" 0 $bl] [shrink - 1 "</STREAMHITS>" 0 $bl]]
set version [string range $bl [shrink + 9 "<VERSION>" 0 $bl] [shrink - 1 "</VERSION>" 0 $bl]]
if {[string match -nocase $radyo(chan) $chan]} {
if {[string match -nocase $radyo(calan) $arg]} {
if {$streamstatus == 1} {
putquick "PRIVMSG $radyo(chan) 4,1 Calan parcamiz: 4,1|0 ' [temizle $calan] ' "
return 0
} else {
putquick "PRIVMSG $chan :\0034,4 \0030,1 Şuanda \0034,1 | \0037 online dj yoktur!"
}
}
if {[string match -nocase $radyo(drm) $arg]} {
if {$streamstatus == 1} {
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 Müziğin kalbi 7xXX0'de atıyor.. \0034,4 "
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 İsteklerinizi Radyo kanalına 7!istek <istediğiniz Sarkı ve Mesajınız>0 Şeklinde Yapabilirsiniz."
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 DJ [temizle $stitle] Türkiye'nin En Eglenceli Internet Radyosu \0034,1 | \0037 xXX "
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 DJ [temizle $stitle] su anda online! \0034,1 | \0037 Calan parcamiz: \0034,1 | \0037 ' [temizle $calan] ' "
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 Radyomuzu su anda 4([expr $repl + 15]) \0030,1kisi dinliyor. \0034,1 | \0030,1 En yuksek 4([expr $repl + 20]) \0030,1 kişi dinlemiş"
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 Radyomuzu WEB'den dinlemek icin \0034,1 | \0037 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] \0034,4 "
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 Radyomuzu Winamp'tan dinlemek icin \0034,1 | \0037 http://$radyo(ip):$radyo(port)/listen.pls "
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 Radyomuzu Mobilden'den dinlemek icin \0034,1 | \0037 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] "
return 0
} else {
putquick "PRIVMSG $chan :\0034,4 \0030,1 Şuanda \0034,1 | \0037 online dj yoktur!"
}
}
if {[string match -nocase $radyo(link) $arg]} {
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 Müziğin kalbi 7xXX0'de atıyor.. \0034,4 "
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 Radyomuzu Winamp'tan dinlemek icin \0034,1 | \0037 http://$radyo(ip):$radyo(port)/listen.pls \0034,4 "
return 0
}
if {[string match -nocase $radyo(dj) $arg]} {
if {$streamstatus == 1} {
putquick "PRIVMSG $radyo(chan) :4,1 [temizle $stitle] su anda online! Calan parcamiz: 4,1|0 ' [temizle $calan] ' "
return 0
} else {
putquick "PRIVMSG $chan :\0034,4 \0030,1 Şuanda \0034,1 | \0037 online dj yoktur!"
}
}
if {[string match -nocase $radyo(dinleyen) $arg]} {
if {$streamstatus == 1} {
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 Radyomuzu su anda ' ([expr $repl + 15]) ' kisi dinliyor. 4,1|0 En yuksek ' ([expr $repl + 20]) ' -15 kişi dinlemiş "
return 0
} else {
putquick "PRIVMSG $chan :\0034,4 \0030,1 Şuanda \0034,1 | \0037 online dj yoktur!"
}
}
if {[string match -nocase $radyo(yardim) $arg]} {
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 $radyo(yardim) \0034,1 | \0037 burdaki komutlari listeler "
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 $radyo(drm) \0034,1 | \0037 radyo durumunu yansıtır "
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 $radyo(link) \0034,1 | \0037 radyo linkini yansıtır "
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 $radyo(dj) \0034,1 | \0037 yayındaki dji gösterir "
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 $radyo(calan) \0034,1 | \0037 o anda radyoda çalan parçayı yansıtır "
return 0
}
}
}
}
close $sock
}
if {[string match -nocase $radyo(adm) $chan]} {
set komut [lindex $arg 1]
if {[string match -nocase "*$radyo(djcmd)*" $arg]} {
if {$komut==""} {
putquick "PRIVMS $radyo(adm) :\2$chan\2 kanalinda kullana bileceginiz komutlar."
putquick "PRIVMS $radyo(adm) :\2$radyo(djcmd) <sifre/bilgi/on/depo/kill>\2"
putquick "PRIVMS $radyo(adm) :\2!basla\2 | istek saatini başlatir"
putquick "PRIVMS $radyo(adm) :\2!var\2 istek sahibine isteginin işleme alındıgını vurgular"
putquick "PRIVMS $radyo(adm) :\2!yok\2 | istek sahibine isteginin olmadigini vurgular"
putquick "PRIVMS $radyo(adm) :\2!dur\2 | istek saatini bitirir"
putquick "PRIVMS $radyo(adm) :\2!global\2 | bütün sunucuya global atar"
return 0
}
if {$komut=="kill"} {
if {$chan != $radyo(adm)} {return 0}
putquick "PRIVMSG $radyo(adm) :0,12 Bas ustune. "
if {[catch {set sock [socket $radyo(ip) $radyo(port)] } sockerror]} {
putlog "error: $sockerror"
putquick "PRIVMSG $radyo(adm) :\0034,4 \0030,1Yayinda ki DJ'e kill atılamadi"
return 0
} else {
puts $sock "GET /admin.cgi?pass=$radyo(pass)&mode=kicksrc&pass=$rad yo(pass) HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $radyo(ip)"
puts $sock "Connection: close"
puts $sock ""
flush $sock
close $sock
putquick "PRIVMSG $radyo(adm) :\0034,4 \0030,1Yayinda ki DJ'e kill atilmistir."
}
return 0
}
if {$komut=="sifre"} {
putquick "PRIVMSG $radyo(adm) :\2Radyo bilgileri\2"
putquick "PRIVMSG $radyo(adm) :IP adresi \0034 $radyo(ip)\2"
putquick "PRIVMSG $radyo(adm) :Portu \0034 $radyo(port)\2"
putquick "PRIVMSG $radyo(adm) :Radyo Şifresi \0034 $radyo(pass)\2"
putquick "PRIVMSG $radyo(adm) :\0034,4 \0030,1bilgileriniz Kaydedildi bu bilgileri paylaşmak \2kesinlikle yasaktir\2."
return 0
}
if {$komut=="bilgi"} {
putquick "PRIVMSG $nick \0034,4 \0030,1merhaba $nick"
putquick "PRIVMSG $nick \0034,4 \0030,1yapmiş oldugum hatalarla ilgili \35info@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] \0030,1 adresine mail göndere bilir"
putquick "PRIVMSG $nick \0034,4 \0030,1yada MemoServ Send hAte <mesajiniz> şeklinde yapimcıma ulaşa bilirsiniz hoş sohbetler"
return 0
}
if {$komut=="on"} {
putquick "PRIVMSG $radyo(adm) :\0034,4 \0030,1Talebiniz alindi Hayırli Yayinlar\2 $nick!."
putquick "os Global \0034,4 \0030,1 Dj \002$nick Şuanda online istekleriniz $radyo(chan) kanalinda Yapabilirsiniz.."
putquick "os raw svsjoin $nick $radyo(chan)"
utimer 2[list putquick "os raw:ChanServ mode $radyo(chan) +o $nick"]
return 0
}
if {$komut=="depo"} {
putquick "PRIVMSG $radyo(adm) :\0034,4 \0030,1Dj programlari Siralaniyor\2"
putquick "PRIVMSG $radyo(adm) :\0034,4 \0030,1Sam2==> http://irc.xXX/sam2"
putquick "PRIVMSG $radyo(adm) :\0034,4 \0030,1Jingle==> http://irc.xXX/xXX"
return 0
}
}
}
}

bind pub - !depo depo

proc depo {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a ]
putquick "PRIVMSG #DJ 13,1Jingle==> http://irc.xXX/xXX.rar"
putquick "PRIVMSG #DJ 13,1Sam2==> http://irc.xXX/sam2.rar"
}

bind pub - !sifre sifre

proc sifre {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a ]
putquick "PRIVMSG #Dj 10 4Founder;1EyLuL 4Sop's;1zeRacooL BuKRe aLara"
putquick "PRIVMSG #Dj "
putquick "PRIVMSG #Dj 10xXX Radyo Bilgileri"
putquick "PRIVMSG #Dj "
putquick "PRIVMSG #Dj 10Ip : 4 xxx"
putquick "PRIVMSG #Dj "
putquick "PRIVMSG #Dj 10Port : 4 xxx"
putquick "PRIVMSG #Dj "
putquick "PRIVMSG #Dj 10Sifre : 4 xxxx"
putquick "PRIVMSG #Dj "
putquick "PRIVMSG #Dj 10Yayın Hızı : 4 64kb/44hz mono"
}

bind pub - !reklam reklam

proc reklam {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a ]
putquick "allsend all private global RadyoDinle 13,1 Müzigin Kalbi 0,1xXX'13,1de Atiyor Dinlemek Icin => 7,1 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 13,1 Adresini TiklayabiLirsiniz....0,1 xXX'e13,1 Hos Geldiniz Suanda Yayinda Olan 9,1 DJ' 13,1Miz 0,1 ($kanal)13,1 Isteklerinizi Radyo Kanalina 7,1!istek7,1 <istediginiz Sarki Mesajiniz> Seklinde Yazabilirsiniz. 0,1Ornek:13,1 Can Bonomo - Dem Tum0,1 xXX13,1 Ailesine Gelsin 7,1| 13,1Radyolar Foraa"
}

bind pub - !linkat linkat

proc linkat {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a ]
putquick "allsend all private global RadyoDinle 13,1Radyomuzu winamp üzerinden dinlemek için 7,1http://Radyo.xXX:9912/listen.pls 13,1Mobil üzerinden dinlemek için 7,1mobil.xXX 13,1Web üzerinden dinlemek için 7,1
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
kullanabilir , dilediğiniz şarkıyı yayındaki programcı arkadaşlardan isteyebilirsiniz."
}

bind pub - !link link

proc link {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a ]
putquick "PRIVMSG #Radyo 13,1Winamp Üzerinden Dinlemek İçin :7 http://Radyo.xXX:9912/listen.pls"
putquick "PRIVMSG #Radyo 13,1Web Üzerinden Dinlemek İçin :7
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
putquick "PRIVMSG #Radyo 13,1Mobil Üzerinden Dinlemek İçin :7 mobil.xXX "
}

################################################## #################
proc isonline { nick uhost hand chan arg } {
global radyo
if {$radyo(online) == 1} {
set announce "1"
set urltopic "1"
set tellsongs "1"
set tellusers "1"
set tellbitrate "1"
set advertise "1"
set isonlinefile "isonline"
set oldisonline "isonline: 0"
set oldcurlist "4,1 : 15,1 0"
set oldcurhigh "curhigh: 0"
set oldsong "cursong: 0"
set oldbitrate "bitrate: 0"
if {[file exists $isonlinefile]} {
putlog "shoutcast: checking if stream is online"
set temp [open "isonline" r]
while {[eof $temp] != 1} {
set zeile [gets $temp]
if {[string first "isonline:" $zeile] != -1 } { set oldisonline $zeile }
if {[string first "curlist:" $zeile] != -1 } { set oldcurlist $zeile }
if {[string first "curhigh:" $zeile] != -1 } { set oldcurhigh $zeile }
if {[string first "cursong:" $zeile] != -1 } { set oldsong $zeile }
if {[string first "bitrate:" $zeile] != -1 } { set oldbitrate $zeile }
}
close $temp
}
if {[catch {set sock [socket $radyo(ip) $radyo(port)] } sockerror]} {
putlog "error: $sockerror"
return 0
} else {
puts $sock "GET /admin.cgi?pass=$radyo(pass)&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: $radyo(ip)"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set streamstatus "isonline: [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]"
set repl "curlist: [string range $bl [shrink + 19 "<REPORTEDLISTENERS>" 0 $bl] [shrink - 1 "</REPORTEDLISTENERS>" 0 $bl]]"
set curhigh "curhigh: [string range $bl [shrink + 15 "<PEAKLISTENERS>" 0 $bl] [shrink - 1 "</PEAKLISTENERS>" 0 $bl]]"
set currentl [string range $bl [shrink + 18 "<CURRENTLISTENERS>" 0 $bl] [shrink - 1 "</CURRENTLISTENERS>" 0 $bl]]
set surl "serverurl: [string range $bl [shrink + 11 "<SERVERURL>" 0 $bl] [shrink - 1 "</SERVERURL>" 0 $bl]]"
set calan [string range $bl [shrink + 11 "<SONGTITLE>" 0 $bl] [shrink - 1 "</SONGTITLE>" 0 $bl]]
set cursong "cursong: [string range $bl [shrink + 11 "<SONGTITLE" 0 $bl] [shrink - 1 "</SONGTITLE>" 0 $bl]]"
set songurl [string range $bl [shrink + 9 "<SONGURL>" 0 $bl] [shrink - 1 "</SONGURL>" 0 $bl]]
set bitrate "bitrate: [string range $bl [shrink + 9 "<BITRATE>" 0 $bl] [shrink - 1 "</BITRATE>" 0 $bl]]"
set stitle [string range $bl [shrink + 13 "<SERVERTITLE>" 0 $bl] [shrink - 1 "</SERVERTITLE>" 0 $bl]]
set sgenre [string range $bl [shrink + 13 "<SERVERGENRE>" 0 $bl] [shrink - 1 "</SERVERGENRE>" 0 $bl]]
}
}
close $sock
}
set temp [open "isonline" w+]
puts $temp "$streamstatus\n$repl\n$curhigh\n$cursong\n$bitrat e"
close $temp
if {$announce == 1 } {
if {$streamstatus == "isonline: 0" && $oldisonline == "isonline: 1"} {
putquick "topic $radyo(chan) :\0034,4 \0030,1 Şuanda \0034,1 | \0037 online dj yoktur!"
putquick "PRIVMSG $radyo(adm) :\0034,4 \0030,1ÖNEMLİ UYARI :Şuanda Radyoda Dj Yoktur.. Dj Arkadaşlardan yayının boş bulundurulmamasi için rica ediyorum Dj bilgileri için $radyo(adm) kanalinda \002 $radyo(djcmd) sifre\002 yaziniz teşekkürler.."
}
if {$streamstatus == "isonline: 1" && $oldisonline == "isonline: 0" } {
if {$sgenre != ""} { set sgenre " ($sgenre)" }
putquick "topic $radyo(chan) :\0034,4 \0030,1 Şuanda \0034,1 | \0037 online dj yoktur!"
}
}
if {($tellusers == 1) && ($streamstatus == "isonline: 1") && ($oldcurhigh != "curhigh: 0") } {
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 Müziğin kalbi 7xXX0'de atıyor.. \0034,4 "
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 İsteklerinizi Radyo kanalına 7!istek <istediğiniz Sarkı ve Mesajınız>0 Şeklinde Yapabilirsiniz."
putquick "PRIVMSG $radyo(chan) :-"
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 DJ [temizle $stitle] Türkiye'nin En Eglenceli Internet Radyosu \0034,1 | \0037 xXX "
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 DJ [temizle $stitle] su anda online! \0034,1 | \0037 Calan parcamiz: \0034,1 | \0037 ' [temizle $calan] "
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 Radyomuzu su anda 4([expr $repl + 15]) \0030,1kisi dinliyor. \0034,1 | \0030,1 En yuksek 4 ([expr $repl + 20]) \0030,1 kişi dinlemiş "
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 Radyomuzu WEB'den dinlemek icin \0034,1 | \0037 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] "
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 Radyomuzu Winamp'tan dinlemek icin \0034,1 | \0037 http://$radyo(ip):$radyo(port)/listen.pls "
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 Radyomuzu Mobilden dinlemek icin \0034,1 | \0037 http://mobil.xXX"
putquick "PRIVMSG $radyo(chan) :-"
}
}
}

################################################## #################
proc temizle {icerik} {
regsub -all "'" $icerik "'" icerik
regsub -all "&" $icerik "feat." icerik
regsub -all "ç" $icerik "ç" icerik
regsub -all "ğ" $icerik "ğ" icerik
regsub -all "ı" $icerik "ı" icerik
regsub -all "İ" $icerik "İ" icerik
regsub -all "ö" $icerik "ö" icerik
regsub -all "ş" $icerik "ş" icerik
regsub -all "Ç" $icerik "Ç" icerik
regsub -all "Ğ" $icerik "Ğ" icerik
regsub -all "Ö" $icerik "Ö" icerik
regsub -all "Ş" $icerik "Ş" icerik
regsub -all "ü" $icerik "ü" icerik
regsub -all "Ü" $icerik "Ü" icerik
regsub -all "¿" $icerik "¿" icerik
regsub -all "<" $icerik "<" icerik
regsub -all "" $icerik "†" icerik
regsub -all "ÿ" $icerik "" icerik
regsub -all "a" $icerik "á" icerik
regsub -all "b" $icerik "b" icerik
regsub -all "i" $icerik "í" icerik
regsub -all "o" $icerik "o" icerik
regsub -all "l" $icerik "L" icerik
regsub -all "I" $icerik "Î" icerik
regsub -all "e" $icerik "e" icerik
regsub -all "t" $icerik "t" icerik
regsub -all "y" $icerik "y" icerik
regsub -all "c" $icerik "c" icerik
regsub -all "o" $icerik "o" icerik
regsub -all "n" $icerik "n" icerik
return $icerik
}

#################################

setudef flag istkcmd

proc dur {n u h c a} {
global botnick radyo
if {[string match -nocase $radyo(adm) $c]} {
channel set $radyo(adm) -istkcmd
putquick "PRIVMSG $radyo(adm) :\0034,4 \0030,1 Bas ustune. "
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 Lutfen istekte bulunmayin, istekler calinmayacaktir. "
}
}

proc basla {n u h c a} {
global botnick radyo
if {[string match -nocase $radyo(adm) $c]} {
channel set $radyo(adm) +istkcmd
putquick "PRIVMSG $radyo(adm) :\0034,4 \0030,1 Bas ustune. "
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 Istek zamani basladi, istekte bulunmak icin ;!istek Sanatci ismi - Parca ismi - Mesajiniz. "
}
}

proc var {nick uhost hand chan text} {
global botnick radyo
if {[string match -nocase $radyo(adm) $chan]} {
set kisi [lindex $text 0]
if {$kisi == ""} {
putquick "PRIVMSG $chan :\0034,4 \0030,1 Nick belirtmediniz. "
putquick "PRIVMSG $chan :\0034,4 \0030,1 Kullanimi: .!var <NICK> seklindedir. "
return
}
if {[onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :\0034,4 \0030,1 Bas ustune. "; putquick "PRIVMSG $radyo(chan) : 0,4 $kisi 0,2isteginiz arsivimizde mevcut. Kisa sure icinde isteginiz yayinlanacaktir. "; return 0 }
if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :\0034,4 \0030,1 $radyo(chan) kanalinda boyle bir rumuz bulunmamaktadir. "; return 0 }
}
}

proc yok {n u h c a} {
global botnick radyo
if {[string match -nocase $radyo(adm) $c]} {
set kisi [lindex $a 0]
if {$kisi == ""} {
putquick "PRIVMSG $c :\0034,4 \0030,1 Nick belirtmediniz. "
putquick "PRIVMSG $c :\0034,4 \0030,1 Kullanimi: .!yok <NICK> seklindedir. "
return
}
if {[onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :\0034,4 \0030,1 Bas ustune. "; putquick "PRIVMSG #Radyo 0,2Uzgunum 0,4 $kisi 0,2isteginiz arsivimizde bulunmamaktadir. Baska bir istekte bulunabilirsiniz. "; return 0 }
if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :\0034,4 \0030,1 $radyo(chan) kanalinda boyle bir rumuz bulunmamaktadir. "; return 0 }
}
}

proc istek {nick uhost handle chan arg} {
global botnick radyo
if {[lsearch -exact [channel info $radyo(adm)] +istkcmd] != -1} {
if {$arg == ""} { putquick "PRIVMSG $radyo(chan) : \0034,4 \0030,1 $nick isteginizi belirtmeyi unuttunuz. "; return 0 }
if {![info exists ::istekcount([set wnick [md5 [string tolower $uhost]]])]} {
set ::istekcount($wnick) 0
utimer 60[list unset ::istekcount($wnick)]
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1 $nick isteginiz online Dj'imize iletilmistir. Lutfen bekleyiniz, isteginiz kontrol ediliyor. ";
putquick "PRIVMSG $radyo(adm) :\0034,4 \0030,1 İstek isteyen; $nick isteği; $arg ";
return 0
}
if {[incr ::istekcount($wnick)] == 1} { putquick "PRIVMSG $radyo(adm) :\0034,4 \0030,1$nick bu kadar cok istekte bulunamazsiniz, biraz bekledikten sonra tekrar deneyin. " }
return 0
}
putquick "PRIVMSG $radyo(chan) :\0034,4 \0030,1$nick istekler yayinlanmayacaktir. Lutfen daha sonra tekrar deneyiniz. "
}

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

aSpeNDos · 21 Mart 2016, 21:00

!durum

[20:58] <Radyo> Müziğin kalbi NetteLeR-FM'de atıyor..
[20:58] <Radyo> İsteklerinizi Radyo kanalına !istek <istediğiniz Sarkı ve Mesajınız> Şeklinde Yapabilirsiniz.
[20:58] <Radyo> DJ NetteLer FM Türkiye'nin En Eglenceli Internet Radyosu | NetteLeR-FM
[20:58] <Radyo> DJ NetteLer FM su anda online! | Calan parcamiz: | ' Fermán Toprák - Háyátí Tespíh Yápmísím '
[20:58] <Radyo> Radyomuzu su anda (15) kisi dinliyor. | En yuksek (20) kişi dinlemiş
[20:58] <Radyo> Radyomuzu WEB'den dinlemek icin | [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[20:58] <Radyo> Radyomuzu Winamp'tan dinlemek icin | [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[20:58] <Radyo> Radyomuzu Mobilden'den dinlemek icin | [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

!link

[20:59] <Radyo> Radyomuzu Winamp'tan dinlemek icin | [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[20:59] <Radyo> Winamp Üzerinden Dinlemek İçin : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[20:59] <Radyo> Web Üzerinden Dinlemek İçin : 85.95.255.240:9968
[20:59] <Radyo> Mobil Üzerinden Dinlemek İçin : mobil.NetteLeR-FM

!dinleyen

[20:59] <Radyo> Radyomuzu su anda ' (15) ' kisi dinliyor. | En yuksek ' (20) ' - kişi dinlemiş

Her hangi bir sorun ile karşılaşmadım..

TCL inceledim yanlış veya belirttiginiz soruna dair bişey göremedim. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

unpainful · 21 Mart 2016, 21:05

Belli bi süreden sonra yapıyor zaten , tcl gayet normal ama bi süre sonra bahsettiğim hatayı veriyor Ssh üzerinden reslediğimde düzeliyor yine belli süre sonra aynı problem @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

aSpeNDos · 21 Mart 2016, 21:08

takip ediyorum

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
phpMyAdmin 2.8.0-rc1 (HATA) girişte hata	troyka	PHP	3	14 Temmuz 2007 22:23
Unreal Kurulumu - Hata Hata Hata :@	fatal	Unreal IRCd	2	20 Şubat 2007 18:46

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.