chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.main.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Provide compressed version of dictionaries
[ypp-sc-tools.main.git]
/
pctb
/
dictionary-manager
diff --git
a/pctb/dictionary-manager
b/pctb/dictionary-manager
index 2c91a2a372be1a9cac3b5e5482b59bdfad8e51bd..d9d3dab0a3d47ed4a3235426429c67a8b9b3f8cc 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 -1 < $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