Estimados buenas solicito su ayuda con esta tcl de radio me sale dichos mensajes en la party line del bot
<DjBot> [14:29:00] SHOUTCast: Comprobando Conexión con el Servidor de Radio...
<DjBot> [14:29:01] Tcl error [isonline]: can't read "curhigh": no such variable
no se como darle solucion tampoco responde a los comandos que tiene dicha tcl haber si alguien me ayuda por favor me tomo tiempo traducirla
#++++++++++++++#
##########[(01)] CONFIGURACIONES
#++++++++++++++#
set RadioCmd "!"
set CMDerror "4ERROR: 1Comando INCOMPLETO, usa 12\u21db7"
set RadioChans "#Peru #AmigosChat #Latinos"
set CabinaDJ "#Dj-Amigos"
#set telebot "TG"
set RadioLogo "10\[10|1R12adio7Latido Musical10|10\]"
set RadioSlogan "31La 32Música 33Que T34e Conecta!!!"
set RadioNetUrl "\002\00314NO DISPONIBLE\002"
set RadioUrl "https://latidomusical.online"
set RadioApp "https://play.google.com/store/apps/details?id=laradio.online.radiolatidomusical"
set RadioWinamp "https://server.streamcasthd.com/cp/links.php?p=8196&m=pls"
set RadioRepro "https://server.streamcasthd.com:7097/"
set msgsockerror "5LINUX2:1 SERVIDOR 3SHOUTCast1 NO ESTÁ CONECTADO."
set RadioTipo "3SHOUTCast:2"
set IPdjbot "0.0.0.0.0"
set RadioAdmin "user"
set RadioVersion "2.0.5"
set RadioTCL "TCL para Radio Latido Musical"
set RadioIgnore "3"
set RadioPermIgnore "0"
set RadioPlus "+"
set RadioLess "-"
set alertadmin ""
set doalertadmin "1"
set announce "1"
set urltopic "1"
set ctodjc "1"
set tellsongs "1"
set tellusers "1"
set tellbitrate "1"
set advertise "1"
set advertiseonlyifonline "1"
set style "1"
set flimit 15
set div "/"
set notice 1
set playlist(file) "/home/LatidoMusical/autodj/autodj.lst"
#+++++++++++++++ TIEMPOS
### Bind Radio Aviso
bind time - "00 00 * * *" Radio:Aviso
bind time - "03 03 * * *" Radio:Aviso
bind time - "05 07 * * *" Radio:Aviso
bind time - "08 13 * * *" Radio:Aviso
bind time - "05 19 * * *" Radio:Aviso
### DJ ONLINE #######################
bind time - "* * * * *" isonline
### AUTODJ ON #############################
bind time - "00 * * * *" Radio:AutoDJon
bind time - "30 * * * *" Radio:AutoDJon
bind time - "05 * * * *" Radio:AutoDJon
### Bind Time AVISO 4h#####################
bind time - "05 04 * * *" advertise
bind time - "00 08 * * *" advertise
bind time - "05 12 * * *" advertise
bind time - "30 16 * * *" advertise
bind time - "05 20 * * *" advertise
#bind time - "?0 * * * *" advertise
### Bind Time HORARIO ####################
#bind time - "15 * * * *" radio:horario
#bind time - "30 * * * *" radio:horario
### Bind Time PUBLICIDAD 3h###############
bind time - "00 04 * * *" radio:publicidad
bind time - "05 07 * * *" radio:publicidad
bind time - "30 10 * * *" radio:publicidad
bind time - "05 13 * * *" radio:publicidad
bind time - "50 16 * * *" radio:publicidad
### Bind Time VOTACION ####################
#bind time - "15 * * * *" votacion
### Bind Time CAMBIO DE NICK ##############
bind nick D * djnickchange
#++++++++++++++#
##########[(03)] ARCHIVOS
#++++++++++++++#
set dirname "scripts/LatidoMusical"
if {[file exists $dirname] == 0} {
file mkdir $dirname
}
#+++++++++++++++ IP
set streamip "scripts/LatidoMusical/ip.txt"
if {![file exists $streamip]} {putlog "LatidoMusical: No se encuentra al archivo, creando $streamip"
set file [open $streamip w]; close $file}
set temp [open $streamip r]; set streamip [gets $temp]; close $temp
#+++++++++++++++ IP
set ipdj "scripts/LatidoMusical/ipdj.txt"
if {![file exists $ipdj]} {putlog "LatidoMusical: No se encuentra al archivo, creando $ipdj"
set file [open $ipdj w]; close $file}
set temp [open $ipdj r]; set streamip [gets $temp]; close $temp
#+++++++++++++++ PUERTO
set streamport "scripts/LatidoMusical/port.txt"
if {![file exists $streamport]} {putlog "LatidoMusical - El Archivo NO EXISTE. Creando ARCHIVO -> $streamport."
set file [open $streamport w]; close $file}
set temp [open $streamport r]; set streamport [gets $temp]; close $temp
#+++++++++++++++ PASSWORD
set streampass "scripts/LatidoMusical/passwd.txt"
if {![file exists $streampass]} {putlog "LatidoMusical - El Archivo NO EXISTE. Creando ARCHIVO -> $streampass."
set file [open $streampass w]; close $file}
set temp [open $streampass r]; set streampass [gets $temp]; close $temp
#+++++++++++++++ ONLINE
set streamstatus "scripts/LatidoMusical/online.txt"
if {![file exists $streamstatus]} {putlog "LatidoMusical - El Archivo NO EXISTE. Creando ARCHIVO -> $streamstatus."
set file [open $streamstatus w]; close $file}
set temp [open $streamstatus r]; set streamstatus [gets $temp]; close $temp
#+++++++++++++++ DJ
set dj "scripts/LatidoMusical/dj.txt"
if {![file exists $dj]} {putlog "LatidoMusical - El Archivo NO EXISTE. Creando ARCHIVO -> $dj."
set file [open $dj w]; adduser djs; chattr djs +D; putlog "SHOUTCast: Creando Usuario para djs"; close $file}
set temp [open $dj r]; set dj [gets $temp]; close $temp
#+++++++++++++++ PETICIONES
set peticionestxt "scripts/LatidoMusical/peticiones.txt"
if {![file exists $peticionestxt]} {putlog "LatidoMusical - El Archivo NO EXISTE. Creando ARCHIVO -> $peticionestxt."
set file [open $peticionestxt w]; close $file;}
set temp [open $peticionestxt r]; set peticiones [gets $temp]; close $temp
#+++++++++++++++ CIUDAD
set ciudad "scripts/LatidoMusical/ciudad.txt"
if {![file exists $ciudad]} {putlog "LatidoMusical - El Archivo NO EXISTE. Creando ARCHIVO -> $ciudad."
set file [open $ciudad w]; close $file}
set temp [open $ciudad r]; set ciudad [gets $temp]; close $temp
#+++++++++++++++ BANIP
set banip "scripts/LatidoMusical/banip.txt"
if {![file exists $banip]} {putlog "LatidoMusical - El Archivo NO EXISTE. Creando ARCHIVO -> $banip."
set file [open $banip w]; close $file}
set temp [open $banip r]; set banip [gets $temp]; close $temp
#+++++++++++++++ URL
set RadioUrl "scripts/LatidoMusical/link.txt"
if {![file exists $RadioUrl]} {putlog "LatidoMusical - El Archivo NO EXISTE. Creando ARCHIVO -> $RadioUrl."
set file [open $RadioUrl w]; close $file}
set temp [open $RadioUrl r]; set RadioUrl [gets $temp]; close $temp
#+++++++++++++++ CONTADOR
set Fcontador "scripts/LatidoMusical/Hcounter.txt"
if {![file exists $Fcontador]} {putlog "LatidoMusical - El Archivo NO EXISTE. Creando ARCHIVO -> $Fcontador"
set file [open $Fcontador w]; close $file}
set temp [open $Fcontador r]; set cfile [gets $temp]; close $temp
#+++++++++++++++ AUTODJ
set autodj "scripts/LatidoMusical/autodj.txt"
if {![file exists $autodj]} {putlog "LatidoMusical - El Archivo NO EXISTE. Creando ARCHIVO -> $autodj."
set file [open $autodj w]; puts $temp "0"; close $file}
set temp [open $autodj r]; set autodj [gets $temp]; close $temp
#+++++++++++++++ TELEGRAM
set telegram "scripts/LatidoMusical/telegram.txt"
if {![file exists $telegram]} {putlog "LatidoMusical - El Archivo NO EXISTE. Creando ARCHIVO -> $telegram."
set file [open $telegram w]; puts $temp "0"; close $file}
set temp [open $telegram r]; set telegram [gets $temp]; close $temp
#+++++++++++++++ CANALES
#set canalez "scripts/LatidoMusical/canales.txt"
#if {![file exists $canales]} {putlog "LatidoMusical - El Archivo NO EXISTE. Creando ARCHIVO -> $canales."
# set file [open $canales w]; puts $temp "0"; close $file}
# set temp [open $canales r]; set canales [gets $temp]; close $temp
#++++++++++++++#
##########[(02)] BINDS
#++++++++++++++#
#+++++++++++++++ ADMINS
bind pub n ${RadioCmd}ip Radio:Ip
bind pub n ${RadioCmd}puerto Radio:Puerto
bind pub n ${RadioCmd}password Radio:Passwd
bind pub n ${RadioPlus}dj Radio:DJadd
bind pub n ${RadioLess}dj Radio:DJdel
bind pub n ${RadioPlus}vipuser proc:vipuser
bind pub n ${RadioLess}vipuser Radio:Passwd
bind pub n ${RadioPlus}admin Radio:AdminAdd
bind pub n ${RadioLess}admin Radio:AdminDel
bind pub n ${RadioCmd}join Radio:Join
bind pub n ${RadioCmd}part Radio:Part
bind pub n ${RadioCmd}rehash Radio:Rehash
bind pub n ${RadioCmd}restart Radio:Restart
bind pub n ${RadioCmd}reset Radio:Reset
bind pub n ${RadioCmd}topic Radio:Topic
bind pub n ${RadioCmd}RadioUrl dj:RadioUrl
#++++++++++++++ DJS
bind pub nD ${RadioCmd}serdj Radio:Serdj
bind pub nD ${RadioCmd}noserdj Radio:NoSerdj
bind pub nD ${RadioCmd}oyentes Radio:Oyentes
bind pub nD ${RadioCmd}abre Radio:PedidosON
bind pub nD ${RadioCmd}cierra Radio:PedidosOFF
bind pub nD ${RadioCmd}djs Radio:ListaDJs
bind pub nD ${RadioCmd}vipusers proc_listausuarios
bind pub nD ${RadioPlus}vipuser proc:vipuser
bind pub nD ${RadioCmd}datosradio Radio:Datos
bind pub nD ${RadioCmd}estado Radio:Estado
bind pub nD ${RadioCmd}ignore proc:ignore
bind pub nD ${RadioCmd}delignore proc:delignore
bind pub nD ${RadioCmd}anuncio advertise
bind pub nD ${RadioCmd}spot radio:publicidad
bind pub nD ${RadioCmd}programa radio:horario
bind pub nD ${RadioCmd}canales Radio:Canales
bind pub nD ${RadioCmd}comandosdj Radio:AyudaDJ
bind pub nD ${RadioCmd}radio Radio:OnOFF
bind pub nD ${RadioCmd}conexion Radio:Conexion
#+++++++++++++++ USUARIOS
bind pub - ${RadioCmd}enlace Radio:URL
bind pub - ${RadioCmd}link Radio:URL
bind pub - ${RadioCmd}radio pub:radio
bind pub - ${RadioCmd}tema Radio:Playing
bind pub - ${RadioCmd}dj radio:DJonline
bind pub - ${RadioCmd}peticiones pub_statuspeticiones
bind pub - ${RadioCmd}pido Radio:Pedido
bind pub - ${RadioCmd}saludos pub_greet
bind pub - ${RadioCmd}comandos
bind pub D ${RadioCmd}ultimas pub_lastsongs
bind pub - ${RadioCmd}ayuda Radio:AyudaUsuario
bind pub - ${RadioCmd}winamp winamp
bind pub - ${RadioCmd}reproductor reproductor
bind pub - ${RadioCmd}app Radio:App
bind pub - ${RadioCmd}votacion votacion
#bind pub - ${RadioCmd}horario horarios
#++++++++++++++#
##########[(04)] NUCLEO
#++++++++++++++#
proc shrink { calc number string start bl} { return [expr [string first "$string" $bl $start] $calc $number] }
proc status { } {
global streamip streamport streampass msgsockerror CabinaDJ
set temp [open scripts/LatidoMusical/passwd.txt r]; set streampass [gets $temp]; close $temp
set temp [open scripts/LatidoMusical/port.txt r]; set streamport [gets $temp]; close $temp
if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
putlog "error: $sockerror"
return 0 } else {
puts $sock "GET /admin.cgi?sid=1&pass=$streampass&mode=viewxml&page=0 HTTP/1.1"
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 streamstatus [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]
}}
close $sock
}
if {[info exists streamstatus]} {
if { $streamstatus == "1" } { return 1 } else { return 0 }
} else { return 0 }}
###### (04) IP/PORT/PASSWORD
### IP #####################
proc Radio:Ip { nick uhost hand chan text } {
global botnick CabinaDJ RadioCmd streamip CMDerror
set temp [open scripts/LatidoMusical/ip.txt r]; set streamip [gets $temp]; close $temp
set ipradio [lindex $text 0]
if {$ipradio == ""} {putserv "PRIVMSG $chan :$CMDerror ${RadioCmd}ip <ip>";return}
if {$streamip == "$ipradio"} {putserv "PRIVMSG $chan :7$nick: 1Ya Existe el IP12 $ipradio 1en mi BASE de DATOS.";return}
set temp [open "scripts/LatidoMusical/ip.txt" w+]; puts $temp $streamip; close $temp
putserv "PRIVMSG $chan :4\u2714 1Configurando IP del Servidor RADIO 12\u25BA7 $ipradio"
putlog "4\u2714 1Configurando IP del Servidor RADIO 12\u25BA7 $ipradio"
rehash
save
return 0
}
### PORT #####################
proc Radio:Puerto { nick uhost hand chan text } {
global botnick CabinaDJ RadioCmd CMDerror
set streamport [lindex $text 0]
if {$text == ""} {putserv "PRIVMSG $chan :$CMDerror ${RadioCmd}puerto <puerto>";return}
set streamport [lindex $text 0]; set temp [open "scripts/LatidoMusical/port.txt" w+]; puts $temp $streamport; close $temp
putserv "PRIVMSG $CabinaDJ :Configurando Servidor LatidoMusical - PUERTO: $streamport"
putlog "Configurando Servidor SHOUTcast- Puerto: $streamport"
rehash
save
return 0
}
### PASSWORD #####################
proc Radio:Passwd { nick uhost hand chan text } {
global botnick CabinaDJ RadioCmd CMDerror
set streampass [lindex $text 0]
if {$text == ""} {putserv "PRIVMSG $chan :$CMDerror ${RadioCmd}password <password>";return}
set streampass [lindex $text 0]; set temp [open "scripts/LatidoMusical/passwd.txt" w+]; puts $temp $streampass; close $temp
putserv "PRIVMSG $CabinaDJ :Configurando Servidor LatidoMusical - PASSWORD: $streampass"
putlog "Configurando Servidor SHOUTcast- IP: $streampass"
rehash
return 0
}
### RADIOLINK #####################
proc dj:RadioUrl { nick uhost hand chan text } {
global botnick CabinaDJ RadioCmd CMDerror
set RadioUrl [lindex $text 0]
if {$text == ""} {putserv "PRIVMSG $chan :$CMDerror ${RadioCmd}RadioUrl <enlace>";return}
set RadioUrl [lindex $text 0]; set temp [open "scripts/LatidoMusical/link.txt" w+]; puts $temp $RadioUrl; close $temp
putserv "PRIVMSG $CabinaDJ :Configurando Link LatidoMusical - Link de radio: $RadioUrl"
putlog "Configurando Servidor SHOUTcast- IP: $RadioUrl"
rehash
return 0
}
#++++++++++++++#
##########[(06)] PROCESOS
#++++++++++++++#
#+++++++++++++++ BOT
proc Radio:Rehash { nick uhost hand chan arg } {
global botnick CabinaDJ
if {([lsearch -exact [string tolower $CabinaDJ] [string tolower $chan]] != -1) || ($CabinaDJ == "")} {
putserv "privmsg $CabinaDJ :12\u27561$nick 12\U21f6 4Actualizando ARCHIVOS..."; rehash;save;return}}
#+++++++++++++++ RESTART
proc Radio:Restart { nick uhost hand chan arg } {
global botnick CabinaDJ
if {([lsearch -exact [string tolower $CabinaDJ] [string tolower $chan]] != -1) || ($CabinaDJ == "")} {
putserv "privmsg $CabinaDJ :12\u27561$nick 12\u21c9 4Reiniciando SISTEMA..."; utimer 10 [list save]; utimer 11 [list rehash]; utimer 12 [list restart];return}}
#+++++++++++++++ CANALES
proc Radio:Canales { nick uhost hand chan arg } {
global streamip streamport CabinaDJ RadioChans RadioLogo RadioTipo
if {([lsearch -exact [string tolower $CabinaDJ] [string tolower $chan]] != -1) || ($CabinaDJ == "")} {
putserv "privmsg $chan :12\u21c9 \u21c9 \u21c9 \u21c9 $RadioLogo 12\u21c7 \u21c7 \u21c7 \u21c7"
putserv "privmsg $chan :12\u27561$nick 12\u27a4 1Canales donde estoy ACTIVADO"
putserv "privmsg $chan :4\U21db 2$RadioChans"
putlog "$RadioTipo Mostrando lista de Canales...";return}}
#+++++++++++++++ JOIN CANALES
proc Radio:Join { nick host hand chan arg } {
global botnick CabinaDJ RadioCmd CMDerror
if {([lsearch -exact [string tolower $CabinaDJ] [string tolower $chan]] != -1) || ($CabinaDJ == "")} {
if {$arg == ""} {putserv "PRIVMSG $CabinaDJ :$CMDerror ${RadioCmd}join #<canal>";return}
putserv "PRIVMSG $CabinaDJ :12\u27561$nick 12\u21c9 1Ingresando al CANAL4 $arg"; channel add $arg; save; rehash;return}}
#+++++++++++++++ PART CANALES
proc Radio:Part { nick host hand chan arg } {
global botnick CabinaDJ RadioCmd CMDerror
if {([lsearch -exact [string tolower $CabinaDJ] [string tolower $chan]] != -1) || ($CabinaDJ == "")} {
if {$arg == ""} {putserv "PRIVMSG $CabinaDJ :$CMDerror ${RadioCmd}part #<canal>";return}
putserv "PRIVMSG $CabinaDJ :12\u27561$nick 12\u21c9 1Saliendo del CANAL4 $arg"; channel remove $arg; save; rehash;return}}
#+++++++++++++++ IGNORE
proc ignore { nick uhost hand chan arg } {
global CabinaDJ RadioCmd RadioLogo RadioIgnore RadioPermIgnore
if {([lsearch -exact [string tolower $CabinaDJ] [string tolower $chan]] != -1) || ($CabinaDJ == "")} {
if {$arg == ""} {
putserv "PRIVMSG $CabinaDJ :4ERROR: 1Comando Incompleto, Usa:4 ${RadioCmd}ignore <usuario>"
return 0
}
newignore $arg!*@* "DjIgnore" "Ignore agregado por $nick el [clock format [clock seconds] -format "%d.%m%Y"] a las [clock format [clock seconds] -format %H:%M:%S]" $RadioPermIgnore
newignore $arg $nick "Ignore agregado por $nick el [clock format [clock seconds] -format "%d.%m%Y"] a las [clock format [clock seconds] -format %H:%M:%S] " 0
putserv "PRIVMSG $CabinaDJ :5*7*4* 1Agregando IGNORE a2 $arg 4- 1Duracion14 Permanente 4*7*5*"
putlog "3SHOUTCast: 14Agregando Ignore a2 $arg 14- Duracion4 Permanente"
}
}
proc proc:ignore { nick uhost hand chan arg } { global CabinaDJ; if {([lsearch -exact [string tolower $CabinaDJ] [string tolower $chan]] != -1) || ($CabinaDJ == "")} { ignore $nick $uhost $hand $chan $arg }}
#+++++++++++++++ QUITAR IGNORE
proc delignore { nick uhost hand chan arg } {
global CabinaDJ RadioCmd RadioLogo RadioIgnore RadioPermIgnore
if {([lsearch -exact [string tolower $CabinaDJ] [string tolower $chan]] != -1) || ($CabinaDJ == "")} {
if {$arg == ""} {
putserv "PRIVMSG $CabinaDJ :4ERROR: 1Comando Incompleto, Usa:4 ${RadioCmd}delignore <usuario>"
return 0
}
killignore $arg!*@*
putserv "PRIVMSG $CabinaDJ :5*7*4* 1Eliminando IGNORE a2 $arg 4*7*5*"
putlog "3SHOUTCast: 14Eliminando Ignore a2 $arg "
return 0
}
}
proc proc:delignore { nick uhost hand chan arg } { global CabinaDJ; if {([lsearch -exact [string tolower $CabinaDJ] [string tolower $chan]] != -1) || ($CabinaDJ == "")} { delignore $nick $uhost $hand $chan $arg }}
#+++++++++++++++ TOPIC
proc Radio:Topic {nick uhost hand chan arg} {
global CabinaDJ onlinetopic RadioLogo streamip streampass streamport
if {([lsearch -exact [string tolower $CabinaDJ] [string tolower $chan]] != -1) || ($CabinaDJ == "")} {
set temp [open scripts/LatidoMusical/ip.txt r]; set streamip [gets $temp]; close $temp
set temp [open scripts/LatidoMusical/passwd.txt r]; set streampass [gets $temp]; close $temp
set temp [open scripts/LatidoMusical/port.txt r]; set streamport [gets $temp]; close $temp
if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
putlog "error: $sockerror"
return 0} else {
puts $sock "GET /admin.cgi?pass=$streampass&sid=1&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 bitrate "bitrate: [string range $bl [shrink + 9 "<BITRATE>" 0 $bl] [shrink - 1 "</BITRATE>" 0 $bl]]"
putserv "TOPIC $CabinaDJ :$RadioLogo 1Está 3ONLINE 1a4 [lindex $bitrate 1]kbps $onlinetopic"
return 0
}}}}
}
#+++++++++++++++ BAN IP
proc pub:banip {nick uhost hand chan arg} {
global CabinaDJ RadioCmd RadioLogo RadioIgnore RadioPermIgnore
if {([lsearch -exact [string tolower $CabinaDJ] [string tolower $chan]] != -1) || ($CabinaDJ == "")} {
set ipban [lindex $arg 0]
if {$arg == ""} {
putserv "PRIVMSG $CabinaDJ :4ERROR: 1Comando Incompleto, Usa:4 ${RadioCmd}banip <ip>"
return 0
}
killignore $arg!*@*
set ipban [lindex $arg 0]
set temp [open "scripts/LatidoMusical/banip.txt" w+]
puts $temp $ipban\;255\;
close $temp
set temp [open "/home/djbot/eggdrop/Control/sc_serv.ban" w+]
puts $temp $ipban\;255\;
close $temp
putserv "PRIVMSG $CabinaDJ :$RadioLogo 1Agregando BAN al IP:2 $ipban "
putlog "3SHOUTCast:1Agregando BAN al IP:2 $ipban "
return 0
} else { putserv "PRIVMSG $admin :$RadioLogo 1El $ipban ya está BANEADO" }
}
#+++++++++++++++ MP3 LIST
bind pub n !mp3list fbi:estado
proc fbi:estado { nick uhost hand chan arg } {
global botnick CabinaDJ playlist
set mp3file [open $playlist(file) "r"]
set playlist [open /home/ircd/autodj/autodj.lst "r"]
set read [read -nonewline $mp3file]
close $mp3file
set data [split $read "\n"]
set i 0
if {$data == ""} {
putserv "PRIVMSG $CabinaDJ :\[$nick\] No Has Agregado \002 PLAYLIST \002"
return
}
putserv "PRIVMSG $CabinaDJ :\[$nick\] Cargando Lista de\002 PLAYLISTs \002..."
foreach line $data {
set read_chan [lindex [split $line] 0]
if {[string match -nocase $read_chan $CabinaDJ]} {
set i [expr $i +1]
set read_zpendientes [lindex [split $line] 1]
set read_playlist [string range [join [lrange $line 1 end]] 0 end]
putserv "PRIVMSG $CabinaDJ :$i.) $read_playlist"
return 0
}
}
}
#+++++++++++++++ VOTACION
proc votacion { nick uhost hand chan arg } {
global RadioLogo RadioCmd
set temp [open scripts/LatidoMusical/encuesta.txt r]
set encuesta [gets $temp]
close $temp
if {$dj == ""} {
putlog "SHOUTCast: Tiempo para enviar la encuesta"
return 0
}
RadioGlobal privmsg "$RadioLogo 2Te Invita a Participar de la ENCUESTA y a VOTAR por tu Artista/grupo FAVORITO, usa:4 ${RadioCmd}encuesta"
putlog "Encuesta Emitida..."
}
#++++++++++++++#
##########[(07)] PROCESOS
#++++++++++++++#
#+++++++++++++++ USUARIOS
#+++++++++++++++ WINAMP
proc winamp { nick uhost hand chan arg } {
global botnick streamip streamport RadioWinamp RadioChans
if {([lsearch -exact [string tolower $RadioChans] [string tolower $chan]] != -1) || ($RadioChans == "")} {
putserv "privmsg $chan :4\u2756 14Para escucharnos a través de WINAMP, presiona 12CTRL + L 14y pega 4\u27a4 1$RadioWinamp";return}}
#+++++++++++++++ REPRODUCTOR
proc reproductor { nick uhost hand chan arg } {
global bo