1 package provide yarrglib 0.1;
3 proc manyset {list args} {
4 foreach val $list var $args {
10 proc httpclientsetup {program} {
11 ::http::config -urlencoding utf-8
12 set ua [::http::config -useragent]
13 debug "USERAGENT OLD \"$ua\""
14 set ua [exec ./database-info-fetch useragentstringmap $ua \
16 ::http::config -useragent $ua
17 debug "USERAGENT NEW \"$ua\""