Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Bug sur Script VDM de ealexp
#1
Bonjour a tous

J'ai du m'absenter quelques temps, et a mon retour je m'aperçois que le VDM refait des siennes :

[17:24:51] <loulou> !vdm
[17:24:52] <VDM> Aucune information identifiable n'a pu être récupérée. Le site rencontre peut-être un problème ou bien le layout du site a changé. VDM.

Le site www.viedemerde.fr fonctionnant bien, je ne sais pas trop ce qui se passe.
EN PL après test de aliasangelius :
.[14:11:50] <Shini> [14:11:43] #alias_angelius# set errorInfo
.[14:11:50] <Shini> Currently: error reading "sock1971a00": software caused connection abort
.[14:11:50] <Shini> Currently: while executing
.[14:11:50] <Shini> Currently: "::http::geturl $url {*}$args".

Si quelqu'un a une idée, cela avait déjà fait ça il y a quelques mois suite a un changement d'url, mais là a priori l'Url est bonne ...
Bon re-confinement, et protégez vous !

Je joins le tcl complet au cas ou...

La partie du tcl concernée je pense :

Code:
# ::vdm::geturl
#
# Appelle ::http::geturl et suit les redirections.
# Retourne le contenu de la page et son URL

proc ::vdm::geturl {url args} {
::http::config -useragent $::vdm::useragent
::http::register https 443 [list ::tls::socket -tls1 1 -servername viedemerde.fr]

# On récupère l'hôte de l'URL, au cas où il ne serait pas donné par le
# site dans le chemin de la redirection.
set original_url_host [lindex [regexp -inline {http://(.*?)/} $url] 0]

# On suivra au maximum 5 redirections.
for {set i 0} {$i < 5} {incr i} {
if {[catch {set token [::http::geturl $url {*}$args]} error]} {
putlog "\[$::vdm::script_name\] Erreur HTTP : $error"
return "http_error"
}

if {![string match {30[1237]} [::http::ncode $token]]} {
break
}

set meta [set ${token}(meta)]

if {![dict exists $meta Location]} {
break
}

set url [dict get $meta Location]


Attached Files
.tcl   vdm.tcl (Size: 27.16 KB / Downloads: 2)
Quand on a la connaissance, ne pas la partager ne peux faire avancer la communauté !


Forum Jump:


Users browsing this thread: 1 Guest(s)