# ./dictionary-manager --approve-updates '' . .
+source yarrglib.tcl
+
# invocation:
# OUT OF DATE
}
if {$privacy_setting} {
package require http
- ::http::config -urlencoding utf-8
- set ua [::http::config -useragent]
- debug "USERAGENT OLD \"$ua\""
- set ua [exec ./database-info-fetch useragentstringmap $ua \
- dictionary-manager 2>@ stderr]
- ::http::config -useragent $ua
- debug "USERAGENT NEW \"$ua\""
+ httpclientsetup dictionary-manager
}
}