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 }