From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 5 Jul 2009 20:56:19 +0000 (+0100)
Subject: Provide compressed version of dictionaries
X-Git-Tag: 1.9.4~5
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=commitdiff_plain;h=b357502859929aede3295ee02c97e791b28c005d;p=ypp-sc-tools.db-test.git

Provide compressed version of dictionaries
---

diff --git a/pctb/dictionary-manager b/pctb/dictionary-manager
index c504882..d9d3dab 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 -1 < $fnbase > $fnbase.gz.new
+	exec mv -f -- $fnbase.gz.new $fnbase.gz
+
 	set desc approve
     } else {
 	set desc reject