Mercurial > hg > egg-tcls
changeset 596:b524a6e4be63
feeds: Slight cleanup.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Wed, 03 Feb 2021 11:50:02 +0200 |
parents | 7f7d8048ecb5 |
children | 6997201c7b71 |
files | feeds.tcl fetch_feeds.tcl |
diffstat | 2 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/feeds.tcl Wed Feb 03 11:05:59 2021 +0200 +++ b/feeds.tcl Wed Feb 03 11:50:02 2021 +0200 @@ -132,7 +132,7 @@ proc feeds_validate_name {upublic unick uchan upattern ufname} { global feeds_dbh - upvar 1 $ufname afname + upvar $ufname afname # Check value if {$upattern == ""} {
--- a/fetch_feeds.tcl Wed Feb 03 11:05:59 2021 +0200 +++ b/fetch_feeds.tcl Wed Feb 03 11:50:02 2021 +0200 @@ -47,11 +47,11 @@ ############################################################################## proc fetch_dorequest { urlStr urlStatus urlSCode urlCode urlData urlMeta } { - upvar 1 $urlStatus ustatus - upvar 1 $urlSCode uscode - upvar 1 $urlCode ucode - upvar 1 $urlData udata - upvar 1 $urlMeta umeta + upvar $urlStatus ustatus + upvar $urlSCode uscode + upvar $urlCode ucode + upvar $urlData udata + upvar $urlMeta umeta if {[catch {set utoken [::http::geturl $urlStr -timeout 6000 -binary 1 -headers {Accept-Encoding identity}]} uerrmsg]} { puts "HTTP request failed: $uerrmsg"