Or at least I've crashed agains such cases, so I've commited this fix:
Index: tclwebtest.tcl
===================================================================
RCS file: /cvsroot/tclwebtest/tclwebtest/lib/tclwebtest.tcl,v
retrieving revision 1.39
diff -u -r1.39 tclwebtest.tcl
--- tclwebtest.tcl 3 Jun 2003 00:23:54 -0000 1.39
+++ tclwebtest.tcl 4 Jun 2003 17:40:03 -0000
@@ -2259,7 +2259,7 @@
if { $http_status == "302" || $http_status == "301" } {
for { set i 0 } { $i < [llength $meta] } { incr i 2 } {
if { [string match -nocase [lindex $meta $i] "location"] } {
- set location [string trim [lindex $meta [expr $i+1]]]
+ set location [translate_entities [string trim [lindex $meta [expr $i+1]]]]
break
}
}
@@ -2285,6 +2285,7 @@
} elseif { [regexp -expanded -nocase $regexp_script_before_html $http_result(body) match location] } {
# a very silly form of redirect, with a <script> thingy before
# the <html>
+ set location [translate_entities $location]
if $noredirect_p {
log "ignoring stupid redirection to: $location"
set final_url $location
@@ -2296,6 +2297,7 @@
}
} elseif { $followequiv_p && [regexp -expanded -nocase $regexp_http_equiv_redirect $http_result(body) match delay location] } {
# the http-equiv sort of redirect. ugh.
+ set location [translate_entities $location]
log "stupid redir after $delay secondes to: $location"
# optionally we could take the delay into account
--
Grzegorz Adam Hankiewicz, gr...@ef.... Tel: +34-94-472 35 89.
eFaber SL, Maria Diaz de Haro, 68, 2 http://www.efaber.net/
48920 Portugalete, Bizkaia (SPAIN)
|
