tcl kikplay

[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 :)