tcl kikplay

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