X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;ds=sidebyside;f=pctb%2Fdictionary-manager;h=5501765992e14e21953238e4fce7724a4801bc32;hb=34c9aa9031897dada3450d014de96d68a5834039;hp=c504882ccc7273803589a52ad413867304bac69d;hpb=502963569e7733468dfbcf2d0b2b5f29cc9bdc9c;p=ypp-sc-tools.db-live.git

diff --git a/pctb/dictionary-manager b/pctb/dictionary-manager
index c504882..5501765 100755
--- 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} {
-	read_database $dictdir/master-$dict.txt
+	set fnbase $dictdir/master-$dict.txt
+	read_database $fnbase
 	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