[tclwebtest] Avoiding repetitive use of tidy

[Grzegorz A. H. <gr...@ef...>]

I've commited the following patch. It avoids running tidy multiple
times after following a few 30x redirections or an error. Maybe
this should be expanded for other cases as well?

Index: lib/tclwebtest.tcl
===================================================================
RCS file: /cvsroot/tclwebtest/tclwebtest/lib/tclwebtest.tcl,v
retrieving revision 1.49
diff -u -r1.49 tclwebtest.tcl
--- lib/tclwebtest.tcl  16 Sep 2003 11:01:03 -0000      1.49
+++ lib/tclwebtest.tcl  23 Sep 2003 15:04:57 -0000
@@ -2284,8 +2284,10 @@
             log \"Bad http answer ignored due to -nocomplain\"
         }"
 
+    set avoid_tidy_p 0
     # is it a redirect ?
     if { $http_status == "302" || $http_status == "301" } {
+        set avoid_tidy_p 1
         for { set i 0 } { $i < [llength $meta] } { incr i 2 } {
             if { [string match -nocase [lindex $meta $i] "location"] } {
                 set location [translate_entities [string trim [lindex $meta [expr $i+1]]]]
@@ -2369,12 +2371,15 @@
             eval $failure_treatement
         }
     } elseif { $http_status != "200" } {
+        set avoid_tidy_p 1
         eval $failure_treatement
     }
     
     [http_namespace]::cleanup $token
 
-    maybe_tidy
+    if { !$avoid_tidy_p } {
+        maybe_tidy
+    }
 
     return $final_url
 }

-- 
 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)