Pb: TCL Kick PL
#5
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 Wink
Répondre Avertir


Messages dans ce sujet
Pb: TCL Kick PL - par Aristide - 09/08/2011, 05:25
RE: Pb: TCL Kick PL - par blaster911 - 09/08/2011, 05:38
RE: Pb: TCL Kick PL - par fedora - 09/08/2011, 07:30
RE: Pb: TCL Kick PL - par djkenny - 09/08/2011, 09:33
RE: Pb: TCL Kick PL - par djkenny - 09/08/2011, 09:43
RE: Pb: TCL Kick PL - par djkenny - 09/08/2011, 11:31
RE: Pb: TCL Kick PL - par Aristide - 10/08/2011, 02:37

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté