Code :
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
}
}édite: je posterais le tcl shoutcast, que j ai entièrement re-codé, dans la journée (j'ai quelques modifications a apporter dessus)
C'est en reconnaissant ses erreurs que l'on progresse
