Mercurial > hg > egg-tcls
changeset 271:f47b41d2be64
feeds: Cosmetics.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Fri, 23 Jan 2015 10:57:47 +0200 |
parents | d3ba5847cbda |
children | a8954fd5cad5 |
files | fetch_feeds.tcl |
diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/fetch_feeds.tcl Fri Jan 23 10:54:44 2015 +0200 +++ b/fetch_feeds.tcl Fri Jan 23 10:57:47 2015 +0200 @@ -31,11 +31,13 @@ set html_ent [split [encoding convertfrom "utf-8" $feeds_ent_str] "|"] package require http + if {[info exists http_user_agent] && $http_user_agent != ""} { ::http::config -urlencoding iso8859-1 -useragent $http_user_agent } else { ::http::config -urlencoding iso8859-1 -useragent "Mozilla/4.0 (compatible; MSIE 6.0; MSIE 5.5; Windows NT 5.0) Opera 9.5" } + if {[info exists http_use_proxy] && $http_use_proxy != 0} { ::http::config -proxyhost $http_proxy_host -proxyport $http_proxy_port }