Raccourcir les urls
#1
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 :)
zeolia: tchat gratuit, sans inscription ni publicité
Merci de ne pas demander d'aide en MP
Away
#2
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 :)
zeolia: tchat gratuit, sans inscription ni publicité
Merci de ne pas demander d'aide en MP
Away
#3
Concernant le package http...

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

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


Forum Jump:


Users browsing this thread: 1 Guest(s)