Raccourcir une url avec TinyURL
#1
Ce code permet d'utiliser directement l'API tinyurl.com pour raccourcir une url. Il est directement extrait du script Acronym Fetcher fait par MenzAgitat

TCL
# Après combien de secondes décide-t-on que le site web www.tinyurl.com est
# offline (ou trop lent) en l'absence de réponse de sa part ?
# Remarque : en cas de timeout, l'URI intégrale sera affichée à la place
# de sa version raccourcie.
set ::TinyURL_timeout 5
 
proc ::tinyurl_conversion {url} {
   set url [::tcl::string::map -nocase {"&" "&"} $url]
   set query "http://tinyurl.com/api-create.php?[::http::formatQuery url ${url}]"
   if { ![catch { set token [::http::geturl $query -timeout [expr $::TinyURL_timeout * 1000]] }] } {
      set short_url [::http::data $token]
      ::http::cleanup $token
      if { ($short_url != 0) && ($short_url ne "") } {
         return $short_url
      } else {
         return $url
      }
   } else {
      ::http::cleanup $token
      return $url
   }
}



Attention : le package http est bien évidemment requis pour faire fonctionner ce code.
Source modifiable
Répondre


Messages dans ce sujet
Raccourcir une url avec TinyURL - par CrazyCat - 07/10/2013, 10:59

Atteindre :


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