[tclwebtest] Redirection URLs can have HTML entities too

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

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)


