Raccourcir les urls

[CrazyCat]

Bonjour,

Je fais une petite pub pour ma dernière création: oqp.me, un tout petit service de raccourcissement d'urls.

Au départ, je voulais faire un système pour les eggdrops (simple requète en get, ça renvoit l'url simplifiée) et j'y ai ajouté une interface.

Pour l'utilisation par eggdrop, il suffit d'utiliser le tcl suivant:

tcl

package require http
 
namespace eval oqpme {
    variable url "http://oqp.me/?q="
 
    bind pub - "!oqp" oqpme::short
    proc short { nick uhost handle chan args} {
        set long "$oqpme::url[lindex [split $args] 0]"
        set ckey [::http::geturl $long]
        putserv "PRIVMSG $chan :[::http::data $ckey]"
    }
 
}

N'hésitez pas à me signaler les soucis ou à donner des idées de fonctionnalités, c'est très basique pour l'instant :)

[CrazyCat]

Les idées que je demande sont pour http://oqp.me, le script donné est l'utilisation basique du système de conversion.
Sinon, j'aurais fait le post dans la rubrique "Scripts TCL", et je n'aurais jamais diffusé un truc aussi ridicule :)

[Marc]

Concernant le package http...

Où-est-il possible de se le procurer ?

J'ai jamais eu l'occasion de l'utiliser !