tcl kikplay

[WoolF]

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:

tclcopier

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.

[aliasangelius]

Salut,

tclcopier

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

[WoolF]

re bonjour
merci à toi aliasangelius faut je remplace les ****** c'est tout ??

[aliasangelius]

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 :

tclcopier

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
    }
}

[WoolF]

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

[aliasangelius]

Bon je vais t'expliquer comment faire avec le code.

tclcopier

adminpass ***** \

Ici tu mets le mot de pass de ta radio exemple :

tclcopier

adminpass 123456 \

tclcopier

ip ******* \

Ici tu mets l'ip de radio exemple :

tclcopier

ip 192.168.32.15 \

tclcopier

port ***** \

Ici tu mets le port de ta radio exemple :

tclcopier

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.

[WoolF]

j'ai bien fait comme tu m'as dit vu j'ai tous les pass radio etc

[aliasangelius]

Et sa kick bien la pl de ta radio ou pas ?

[WoolF]

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

[aliasangelius]

Et lorsque tu rehash ton eggdrop, En PL tu n'as aucune erreurs ?

Remplace le code par ceci pour voi s'il charge bien :

tclcopier

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"

[WoolF]

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

tclcopier

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 :)"
}

[CrazyCat]

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.

[WoolF]

bonjour CrayCat,
je suis nouveau j'ai pas tout comprit ton message, si je pouvais avoir un peu plus d'explication merci d'avance

[CrazyCat]

Lorsque tu es sur Scripts TCL, tu as tout en haut un message:

N'oubliez pas!
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

Je te demande de l'appliquer, être nouveau n'empèche pas de lire les règles et les annonces, bien au contraire.