Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


tcl kikplay
#1
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.


Messages In This Thread
tcl kikplay - by WoolF - 11/01/2014, 17:58
RE: tcl kikplay - by aliasangelius - 11/01/2014, 18:12
RE: tcl kikplay - by WoolF - 11/01/2014, 18:33
RE: tcl kikplay - by aliasangelius - 11/01/2014, 18:47
RE: tcl kikplay - by WoolF - 11/01/2014, 18:51
RE: tcl kikplay - by aliasangelius - 11/01/2014, 19:23
RE: tcl kikplay - by WoolF - 11/01/2014, 19:30
RE: tcl kikplay - by aliasangelius - 11/01/2014, 22:25
RE: tcl kikplay - by WoolF - 12/01/2014, 09:33
RE: tcl kikplay - by aliasangelius - 12/01/2014, 15:00
RE: tcl kikplay - by WoolF - 14/01/2014, 12:17
RE: tcl kikplay - by CrazyCat - 14/01/2014, 12:25
RE: tcl kikplay - by WoolF - 14/01/2014, 12:29
RE: tcl kikplay - by CrazyCat - 14/01/2014, 12:37

Forum Jump:


Users browsing this thread: 1 Guest(s)