chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
More commodity orders in source-info.txt
[ypp-sc-tools.db-test.git]
/
yarrg
/
dictionary-manager
diff --git
a/yarrg/dictionary-manager
b/yarrg/dictionary-manager
index c8e003dfa71f084cb9314efb5e3247b44f5350fc..2231266edc8f0e0ef441067a7e5ffd276ba52ba6 100755
(executable)
--- a/
yarrg/dictionary-manager
+++ b/
yarrg/dictionary-manager
@@
-25,9
+25,9
@@
# sponsored by Three Rings.
# sponsored by Three Rings.
-# ./dictionary-manager --approve-updates ijackson@login.chiark.greenend.org.uk /home/ijackson/things/ypp-sc-tools.pctb-dict/
pctb /home/ftp/users/ijackson/pctb
+# ./dictionary-manager --approve-updates ijackson@login.chiark.greenend.org.uk /home/ijackson/things/ypp-sc-tools.pctb-dict/
yarrg /home/ftp/users/ijackson/yarrg
-# ./dictionary-manager --approve-updates ijackson@login.chiark.greenend.org.uk /home/ijackson/things/ypp-sc-tools.pctb-dict-test/
pctb /home/ftp/users/ijackson/pctb
/test
+# ./dictionary-manager --approve-updates ijackson@login.chiark.greenend.org.uk /home/ijackson/things/ypp-sc-tools.pctb-dict-test/
yarrg /home/ftp/users/ijackson/yarrg
/test
# ./dictionary-manager --approve-updates '' . .
# ./dictionary-manager --approve-updates '' . .
@@
-450,14
+450,14
@@
proc required/pixmap {} {
set col 0; foreach {colname coldesc rows} $alloptions {
debug "INIT $col $colname \"$coldesc\""
label .pe.grid.t$col -text $colname
set col 0; foreach {colname coldesc rows} $alloptions {
debug "INIT $col $colname \"$coldesc\""
label .pe.grid.t$col -text $colname
- listbox .pe.grid.l$col
+ listbox .pe.grid.l$col
-height -1
foreach {rowname rowdesc} $rows {
debug "INIT $col $colname \"$coldesc\" $rowname \"$rowdesc\""
.pe.grid.l$col insert end $rowdesc
}
bind .pe.grid.l$col <<ListboxSelect>> [list pixmap_select $col]
grid .pe.grid.t$col -column $col -row 0
foreach {rowname rowdesc} $rows {
debug "INIT $col $colname \"$coldesc\" $rowname \"$rowdesc\""
.pe.grid.l$col insert end $rowdesc
}
bind .pe.grid.l$col <<ListboxSelect>> [list pixmap_select $col]
grid .pe.grid.t$col -column $col -row 0
- grid .pe.grid.l$col -column $col -row 1
+ grid .pe.grid.l$col -column $col -row 1
-sticky ns
incr col
}
pixmap_maybe_ok
incr col
}
pixmap_maybe_ok
@@
-509,6
+509,12
@@
proc upload_init {} {
if {$privacy_setting} {
package require http
::http::config -urlencoding utf-8
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\""
}
}
}
}