Mercurial > hg > egg-tcls

comparison fetch_feeds.tcl @ 322:b4adc56446f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
feeds: Update user agent.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 18 May 2015 13:41:16 +0300
parents d8b957796121
children 9380535b8f12
comparison
equal deleted inserted replaced
321:d8b957796121 322:b4adc56446f6
24 package require http 24 package require http
25 25
26 if {[info exists http_user_agent] && $http_user_agent != ""} { 26 if {[info exists http_user_agent] && $http_user_agent != ""} {
27 ::http::config -urlencoding utf8 -useragent $http_user_agent 27 ::http::config -urlencoding utf8 -useragent $http_user_agent
28 } else { 28 } else {
29 ::http::config -urlencoding utf8 -useragent "Mozilla/4.0 (compatible; MSIE 6.0; MSIE 5.5; Windows NT 5.0) Opera 9.5" 29 ::http::config -urlencoding utf8 -useragent "Mozilla/5.0 (X11; Linux x86_64; rv:38.0) Gecko/20100101 Firefox/38.0"
30 } 30 }
31 31
32 if {[info exists http_use_proxy] && $http_use_proxy != 0} { 32 if {[info exists http_use_proxy] && $http_use_proxy != 0} {
33 ::http::config -proxyhost $http_proxy_host -proxyport $http_proxy_port 33 ::http::config -proxyhost $http_proxy_host -proxyport $http_proxy_port
34 } 34 }