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