Moderatör Olmak İçin Tıklayın Editör Olmak İçin Tıklayın Forum Kuralları IF Görüntülü Röportajlar IF Helper Grubu
IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet odaları

>
+
 Kayıt ol
Etiketlenen Kullanıcılar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 21 Mart 2016, 15:32   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Tcl Bot hata



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?

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklamver bizimmekan
Alt 21 Mart 2016, 15:51   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl Bot hata



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

 
Alıntı ile Cevapla

Alt 21 Mart 2016, 16:12   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl Bot hata



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...]

 
Alıntı ile Cevapla

Alt 21 Mart 2016, 18:57   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl Bot hata



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

__________________
S & S
 
Alıntı ile Cevapla

Alt 21 Mart 2016, 20:07   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl Bot hata



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 "&#x27;" $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 "&#x86;" $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...]

 
Alıntı ile Cevapla

Alt 21 Mart 2016, 21:00   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl Bot hata



!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...]

__________________
S & S
 
Alıntı ile Cevapla

Alt 21 Mart 2016, 21:05   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl Bot hata



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...]

 
Alıntı ile Cevapla

Alt 21 Mart 2016, 21:08   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl Bot hata



takip ediyorum

__________________
S & S
 
Alıntı ile Cevapla

Cevapla

Etiketler
baglan, socks, tcl

« önceki Konu | sonraki Konu »

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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

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




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
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.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
ferizli haber kaynarca haber sohbet sohbet teması takipçi satın al tiktok takipçi satın al instagram beğeni satın al takipçi satın al takipçi satın al Buy Instagram Followers pubg mobile uc
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
Kuşadası Web Site Tasarım & Teknik Destek - KuşadasıNET