Re: [Sks-devel] Permanent diff with pgp.srv.ualberta.ca

[Jason Harris]

On Fri, Aug 26, 2005 at 04:42:02PM +0200, Marco Nenciarini wrote:
> On Fri, Aug 26, 2005 at 07:40:58AM -0600, Chris Kuethe wrote:

> > And I ran sks cleandb after each keyfile I loaded in. Over 220 cleandb
> > invokations. There were no errors from merge or build complaining about
> > unparseable packet sequences.
> > 
> 
> That's the point!
> 
> When you invoke sks cleandb the first time it creates the file
> KDB/meta where is written that KDB database is clean. Any subsequent
> invocation of sks cleandb return immediately without doing any
> work.
> Only deleting KDB/meta you can force another cleandb cycle.

Indeed, and I never liked this EVIL(TM) misfeature.  :)  So, finally,
here's a quick patch:

===================================================================
RCS file: clean_keydb.ml,v
retrieving revision 1.1
diff -u -r1.1 clean_keydb.ml
--- clean_keydb.ml      2005/08/26 18:52:57     1.1
+++ clean_keydb.ml      2005/08/26 19:06:54
@@ -325,7 +325,7 @@
   let run applied_filters = 
 
     (* only do canonicalize if it's necessary *)
-    if not (List.mem "yminsky.dedup" applied_filters) then (
+    if (true) then (
       perror "Deduping keys in database";
       canonicalize ();
       Keydb.set_meta ~key:"filters" ~data:"yminsky.dedup";
@@ -334,8 +334,7 @@
 
 
     (* note: if dedup was done, merge should be done again *)
-    if not (List.mem "yminsky.dedup" applied_filters)
-      || not (List.mem "yminsky.merge" applied_filters)
+    if (true)
     then (
       perror "Merging keys in database";
       merge ();

-- 
Jason Harris           |  NIC:  JH329, PGP:  This _is_ PGP-signed, isn't it?
address@hidden _|_ web:  http://keyserver.kjsl.com/~jharris/
          Got photons?   (TM), (C) 2004

pgpfPLHfto6tC.pgp
Description: PGP signature