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 :)
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away


Messages In This Thread
Raccourcir les urls - by CrazyCat - 13/08/2010, 14:41
RE: Raccourcir les urls - by CrazyCat - 13/08/2010, 17:34
RE: Raccourcir les urls - by Marc - 27/10/2010, 03:46

Forum Jump:


Users browsing this thread: 1 Guest(s)