chiark / gitweb /
Web page documenting YARRG JPCTB
[ypp-sc-tools.db-live.git] / yarrg / yarrglib.tcl
1 package provide yarrglib 0.1;
2
3 proc manyset {list args} {
4     foreach val $list var $args {
5         upvar 1 $var my
6         set my $val
7     }
8 }
9
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 \
15                     $program 2>@ stderr]
16     ::http::config -useragent $ua
17     debug "USERAGENT NEW \"$ua\""
18 }