Posted to tcl by emiliano at Tue May 31 18:36:54 GMT 2022view pretty
Open console and type [set Options(BridgeNames)] The bug is in the proc ::tkchat::CheckVersionDone Here's a patch Index: apps/tkchat/tkchat.tcl ================================================================== --- apps/tkchat/tkchat.tcl +++ apps/tkchat/tkchat.tcl @@ -9985,22 +9985,22 @@ } proc ::tkchat::CheckVersionDone {tok} { variable version global Options - set meta [set [set tok](meta)] - if {[set ndx [lsearch -exact $meta X-LOLCATZ]] != -1} { - set Options(tagline) "LOLCat says \"[lindex $meta [incr ndx]]\"" + set meta [http::meta $tok] + if {[dict exists $meta X-LOLCATZ]} { + set Options(tagline) "LOLCat says \"[dict get $meta X-LOLCATZ]\"" if {!$Options(HateLolcatz)} { - after 10000 [list [namespace origin addStatus] 0 $::Options(tagline)] + after 10000 [list [namespace origin addStatus] 0 $Options(tagline)] } } # This permits the website to re-define the names of current bridges. - if {[set ndx [lsearch -exact $meta X-BridgeNames]] != -1} { - set bridges [lindex $meta [incr ndx]] - if {[llength $bridges] > 0} { - lappend Options(BridgeNames) {*} $bridges + if {[dict exists $meta X-BridgeNames]} { + set bridges [dict get $meta X-BridgeNames] + if {[llength $bridges]} { + set Options(BridgeNames) $bridges } } set url [string trim [http::data $tok]] if {[regexp {1\.(\d+)} $version -> current] && [regexp {tkchat-1\.(\d+)} $url -> latest]} {