chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.web-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
WIP db populate; compute shortest paths in Perl (takes 1.5s on liberator)
[ypp-sc-tools.web-live.git]
/
pctb
/
dictionary-manager
diff --git
a/pctb/dictionary-manager
b/pctb/dictionary-manager
index 2c91a2a372be1a9cac3b5e5482b59bdfad8e51bd..5501765992e14e21953238e4fce7724a4801bc32 100755
(executable)
--- a/
pctb/dictionary-manager
+++ b/
pctb/dictionary-manager
@@
-1068,9
+1068,14
@@
proc remote-serv/take {yesno file dict} {
manyset [dict2_reqkind_rows $dict] reqkind rows
if {$yesno} {
manyset [dict2_reqkind_rows $dict] reqkind rows
if {$yesno} {
- read_database $dictdir/master-$dict.txt
+ set fnbase $dictdir/master-$dict.txt
+ read_database $fnbase
set database($key) $val
write_database
set database($key) $val
write_database
+
+ exec gzip --rsyncable -7 < $fnbase > $fnbase.gz.new
+ exec mv -f -- $fnbase.gz.new $fnbase.gz
+
set desc approve
} else {
set desc reject
set desc approve
} else {
set desc reject
@@
-1207,7
+1212,7
@@
proc approve_showentry {ix file specdata} {
set image [exec pgmtoppm {#008-white} << $image | pnmnoraw]
append image "\n"
}
set image [exec pgmtoppm {#008-white} << $image | pnmnoraw]
append image "\n"
}
- execpnm_createphoto approve/$ix pnmscale
2
<< $image
+ execpnm_createphoto approve/$ix pnmscale
3
<< $image
label $wb-image -image approve/$ix -bd 2 -relief flat -bg black
manyset [dict2_reqkind_rows $dict] reqkind
label $wb-image -image approve/$ix -bd 2 -relief flat -bg black
manyset [dict2_reqkind_rows $dict] reqkind