Posted to tcl by andrewsh at Thu Dec 22 22:25:29 GMT 2011view raw
- if {[string match *net/channel* [dict get $response -path]]} {
- lassign [Http Credentials $response] u p
- if {! (("$u" eq "usr") && ("$p" eq "pwd"))} {
- set response [Http Unauthorized $response [Http BasicAuth channel]]
- }
- }