+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : tcl kikplay (/showthread.php?tid=1482)
tcl kikplay - WoolF - 11/01/2014
bonjour,
je suis à la recherche d'un tcl kikplay qui kikerait la shoucast pour que un animateur radio puisse prendre son animation radio, je vous joins un exemple:
tcl
bind pub - !kplay pub:kplay
proc kplay {nick uhost handle channel arg} {
if {[$channel == "#staff-radio"]} {
global streamip streamport streampass dj
#putlog "shoutcast: $target asked for current song"
if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
putlog "error: $sockerror"
putfast "privmsg #staff-radio:Erreur lors de la connection"
return 0 } else {
putlog "oui"
puts $sock "GET /admin.cgi?pass=$streampass&mode=kicksrc 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
putfast "PRIVMSG #staff-radio:\002\00304- earful OFF -\002 \00312la playlist a été kicker par \002\00303$nick\002"
putfast "notice $nick :\00312Merci de patienter plus de 15 minutes avant de refaire un autre kick :)"
}
}
}
Dans l'attente de vous lire,je vous remercie à l'avance de votre aide
Admin : Merci d'utiliser les balises TCL ou CODE pour mettre du code.
RE: tcl kikplay - aliasangelius - 11/01/2014
Salut,
tcl
namespace eval ::sc {
package require http
variable sc
array set sc [list\
adminpass ***** \
ip ******* \
port ***** \
]
bind pub n .kicksrc [namespace current]::kickshout
proc kickshout {nick host handle chan text} {
variable sc
set url "http://[set sc(ip)]:[set sc(port)]/admin.cgi?pass=[set sc(adminpass)]&mode=kicksrc"
set httpconfig [::http::config -useragent "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"]
set marque [http::geturl $url -timeout 30000]
http::cleanup $marque
}
}
Le lien de ce code : http://forum.eggdrop.fr/Pb-TCL-Kick-PL-t-1008.html
Faites des recherches pour trouver vos réponses..
Dispo en haut du forum :p
Si ta encore des soucis dit le sinon :)
RE: tcl kikplay - WoolF - 11/01/2014
re bonjour
merci à toi aliasangelius faut je remplace les ****** c'est tout ??
RE: tcl kikplay - aliasangelius - 11/01/2014
Oui tu remplace par les informations de ta radio.
Et tu peut changer le bind pub aussi si tu le désire "du moins la commande"
Exemple pour faire comme la tienne sa donnera sa :
tcl
namespace eval ::sc {
package require http
variable sc
array set sc [list\
adminpass ***** \
ip ******* \
port ***** \
]
bind pub n !kplay [namespace current]::kickshout
proc kickshout {nick host handle chan text} {
variable sc
set url "http://[set sc(ip)]:[set sc(port)]/admin.cgi?pass=[set sc(adminpass)]&mode=kicksrc"
set httpconfig [::http::config -useragent "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"]
set marque [http::geturl $url -timeout 30000]
http::cleanup $marque
}
}
RE: tcl kikplay - WoolF - 11/01/2014
merci encore je vais essayer ça et je te tien au courrant
re bon j'ai essayer ta commande mais ça marche pas dans mon sam ça me met error
RE: tcl kikplay - aliasangelius - 11/01/2014
Bon je vais t'expliquer comment faire avec le code.
tcl
adminpass ***** \Ici tu mets le mot de pass de ta radio exemple :
tcl
adminpass 123456 \tcl
ip ******* \Ici tu mets l'ip de radio exemple :
tcl
ip 192.168.32.15 \
tcl
port ***** \Ici tu mets le port de ta radio exemple :
tcl
port 2529 \Les informations que tu dispose pour ta radio tu doit les mettres.
pour ce qui et du pass oublies pas que c'est le pass admin qu'il faut mettre, Pour l'ip c'est l'ip principal de ton shoutcast à mettre, Et le port et le port d'écoute lors de la diffusion de ta radio.
RE: tcl kikplay - WoolF - 11/01/2014
j'ai bien fait comme tu m'as dit vu j'ai tous les pass radio etc
RE: tcl kikplay - aliasangelius - 11/01/2014
Et sa kick bien la pl de ta radio ou pas ?
RE: tcl kikplay - WoolF - 12/01/2014
re aliasangelius, j'ai bien fait comme tu m'as dit vu j'ai tous les pass radio etc mais ça coupe pas ma pl de la radio
RE: tcl kikplay - aliasangelius - 12/01/2014
Et lorsque tu rehash ton eggdrop, En PL tu n'as aucune erreurs ?
Remplace le code par ceci pour voi s'il charge bien :
tcl
namespace eval ::sc {
package require http
variable sc
array set sc [list\
adminpass ***** \
ip ******* \
port ***** \
]
bind pub n !kplay [namespace current]::kickshout
proc kickshout {nick host handle chan text} {
variable sc
set url "http://[set sc(ip)]:[set sc(port)]/admin.cgi?pass=[set sc(adminpass)]&mode=kicksrc"
set httpconfig [::http::config -useragent "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"]
set marque [http::geturl $url -timeout 30000]
http::cleanup $marque
}
}
putlog "TCL kickpl chargé."
Ensuite rehahs tn eggdrop en PL en tapant : .rehash
Après restart ton eggdrop en tapant : .restart
Et regarde la PL si tu n'as pas d'erreurs.
A la rigueur copie/colle le resultat lorsque tu rehash.
Et fait pareil lors du restart de ton eggdrop.
Colle le tout ici, En disant ceci le rehash tu colle et ceci le restart et tu colle.
"je veux voir si l'eggdrop charge bien le tcl et si y'a pas un erreur"
RE: tcl kikplay - WoolF - 14/01/2014
bonjour aliasangelius;
voila j'ai refais le tcl et avec ça, ma commande marche super bien, alors je vais la mettre ici comme cela ça pourra servir à d'autres.
------------------
tcl
bind pub - !kplay pub:!kicksource
proc pub:!kicksource {nick host handle chan text} {
set server "******"
set port "******"
set login "*******"
set sock [socket $server $port]
puts $sock "GET /admin.cgi?pass=$login&mode=kicksrc HTTP/1.0"
puts $sock "User-Agent:Mozilla"
puts $sock "Host: $server"
puts $sock "Authorization: Basic $login"
puts $sock ""
flush $sock
putquick "PRIVMSG #salon :\002\00304- Radio OFF -\002 \00312la playlist a été kicker par \002\00303$nick\002"
putquick "notice $nick :\00312Merci de patienter plus de 15 minutes avant de refaire un autre kick :)"
}
RE: tcl kikplay - CrazyCat - 14/01/2014
Pour la deuxième fois en peu de temps, je viens d'ajouter les balises TCL pour que ton post soit propre.
La prochaine fois, le message sera supprimé.
Néanmoins, merci de ton partage.
RE: tcl kikplay - WoolF - 14/01/2014
bonjour CrayCat,
je suis nouveau j'ai pas tout comprit ton message, si je pouvais avoir un peu plus d'explication merci d'avance
RE: tcl kikplay - CrazyCat - 14/01/2014
Lorsque tu es sur Scripts, tu as tout en haut un message:
message a écrit :N'oubliez pas!Je te demande de l'appliquer, être nouveau n'empèche pas de lire les règles et les annonces, bien au contraire.
Lorsque vous mettez du code tcl dans un message, pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces) pour l'encadrer afin de le rendre plus lisible.
Merci beaucoup pour les lecteurs