Tk Library Source Code

Artifact d8af025e436ede7a1c5758f29081c9c28c8c4e4b:

Attachment "autoproxy.patch" to ticket [3107937fff] added by oehhar 2010-11-12 20:52:12.

---

Index: autoproxy.tcl
===================================================================
--- autoproxy.tcl	(Revision 1090)
+++ autoproxy.tcl	(Arbeitskopie)
@@ -98,7 +98,12 @@
     while {[string match "-*" [set option [lindex $args 0]]]} {
         switch -glob -- $option {
             -host - 
-            -proxy_h* { set options(proxy_host) [Pop args 1]}
+            -proxy_h* {
+                set options(proxy_host) [Pop args 1]
+                if {0 != [string length options(proxy_host)]} {
+                    http::config -proxyfilter [namespace origin filter]
+                }
+            }
             -port - 
             -proxy_p* { set options(proxy_port) [Pop args 1]}
             -no*      { set options(no_proxy) [Pop args 1] }