Mercurial > hg > egg-tcls

comparison fetch_feeds.tcl @ 596:b524a6e4be63

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
feeds: Slight cleanup.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 03 Feb 2021 11:50:02 +0200
parents 14dfb925a64a
children 5767ef9476e2
comparison
equal deleted inserted replaced
595:7f7d8048ecb5 596:b524a6e4be63
45 45
46 46
47 ############################################################################## 47 ##############################################################################
48 48
49 proc fetch_dorequest { urlStr urlStatus urlSCode urlCode urlData urlMeta } { 49 proc fetch_dorequest { urlStr urlStatus urlSCode urlCode urlData urlMeta } {
50 upvar 1 $urlStatus ustatus 50 upvar $urlStatus ustatus
51 upvar 1 $urlSCode uscode 51 upvar $urlSCode uscode
52 upvar 1 $urlCode ucode 52 upvar $urlCode ucode
53 upvar 1 $urlData udata 53 upvar $urlData udata
54 upvar 1 $urlMeta umeta 54 upvar $urlMeta umeta
55 55
56 if {[catch {set utoken [::http::geturl $urlStr -timeout 6000 -binary 1 -headers {Accept-Encoding identity}]} uerrmsg]} { 56 if {[catch {set utoken [::http::geturl $urlStr -timeout 6000 -binary 1 -headers {Accept-Encoding identity}]} uerrmsg]} {
57 puts "HTTP request failed: $uerrmsg" 57 puts "HTTP request failed: $uerrmsg"
58 return 0 58 return 0
59 } 59 }