tests: Make ssh test more robust.
[gnupg.git] / g10 / tofu.c
index 4ad44eb..a2732ff 100644 (file)
@@ -1,5 +1,5 @@
 /* tofu.c - TOFU trust model.
- * Copyright (C) 2015 g10 Code GmbH
+ * Copyright (C) 2015, 2016 g10 Code GmbH
  *
  * This file is part of GnuPG.
  *
@@ -26,7 +26,7 @@
 #include <config.h>
 #include <stdio.h>
 #include <sys/stat.h>
-#include <assert.h>
+#include <stdarg.h>
 #include <sqlite3.h>
 
 #include "gpg.h"
 #include "options.h"
 #include "mbox-util.h"
 #include "i18n.h"
+#include "ttyio.h"
 #include "trustdb.h"
 #include "mkdir_p.h"
+#include "gpgsql.h"
+#include "status.h"
 
 #include "tofu.h"
 
+
+#define CONTROL_L ('L' - 'A' + 1)
+
+/* Number of signed messages required to indicate that enough history
+ * is available for basic trust.  */
+#define BASIC_TRUST_THRESHOLD  10
+/* Number of signed messages required to indicate that a lot of
+ * history is available.  */
+#define FULL_TRUST_THRESHOLD  100
+
+
+#define DEBUG_TOFU_CACHE 0
+#if DEBUG_TOFU_CACHE
+static int prepares_saved;
+static int queries;
+#endif
+
 /* The TOFU data can be saved in two different formats: either in a
    single combined database (opt.tofu_db_format == TOFU_DB_FLAT) or in
    a split file format (opt.tofu_db_format == TOFU_DB_SPLIT).  In the
@@ -64,24 +84,70 @@ enum db_type
    theis case, NAME is either the normalized email address or the
    fingerprint.
 
-   To initialize this data structure, call opendbs().  When you are
-   done, clean it up using closedbs().  To get a handle to a database,
+   To initialize this data structure, call opendbs().  Cleanup is done
+   when the CTRL object is released.  To get a handle to a database,
    use the getdb() function.  This will either return an existing
    handle or open a new DB connection, as appropriate.  */
 struct db
 {
   struct db *next;
+  struct db **prevp;
 
   enum db_type type;
 
   sqlite3 *db;
 
+  struct
+  {
+    sqlite3_stmt *savepoint_batch;
+    sqlite3_stmt *savepoint_batch_commit;
+
+    sqlite3_stmt *savepoint_inner;
+    sqlite3_stmt *savepoint_inner_commit;
+
+    sqlite3_stmt *record_binding_get_old_policy;
+    sqlite3_stmt *record_binding_update;
+    sqlite3_stmt *record_binding_update2;
+    sqlite3_stmt *get_policy_select_policy_and_conflict;
+    sqlite3_stmt *get_trust_bindings_with_this_email;
+    sqlite3_stmt *get_trust_gather_other_user_ids;
+    sqlite3_stmt *get_trust_gather_other_keys;
+    sqlite3_stmt *register_already_seen;
+    sqlite3_stmt *register_insert;
+  } s;
+
+#if DEBUG_TOFU_CACHE
+  int hits;
+#endif
+
+  int batch_update;
+
   /* If TYPE is DB_COMBINED, this is "".  Otherwise, it is either the
      fingerprint (type == DB_KEY) or the normalized email address
      (type == DB_EMAIL).  */
   char name[1];
 };
 
+static struct db *db_cache;
+static int db_cache_count;
+#define DB_CACHE_ENTRIES 16
+
+static void tofu_cache_dump (struct db *db) GPGRT_ATTR_USED;
+
+static void
+tofu_cache_dump (struct db *db)
+{
+  log_info ("Connection %p:\n", db);
+  for (; db; db = db->next)
+    log_info ("  %s: %sbatch mode\n", db->name, db->batch_update ? "" : "NOT ");
+  log_info ("Cache:\n");
+  for (db = db_cache; db; db = db->next)
+    log_info ("  %s: %sbatch mode\n", db->name, db->batch_update ? "" : "NOT ");
+}
+
+#define STRINGIFY(s) STRINGIFY2(s)
+#define STRINGIFY2(s) #s
+
 /* The grouping parameters when collecting signature statistics.  */
 
 /* If a message is signed a couple of hours in the future, just assume
@@ -89,31 +155,19 @@ struct db
 #define TIME_AGO_FUTURE_IGNORE (2 * 60 * 60)
 #if 0
 #  define TIME_AGO_UNIT_SMALL 60
-#  define TIME_AGO_UNIT_SMALL_NAME _("minute")
-#  define TIME_AGO_UNIT_SMALL_NAME_PLURAL _("minutes")
 #  define TIME_AGO_MEDIUM_THRESHOLD (60 * TIME_AGO_UNIT_SMALL)
 #  define TIME_AGO_UNIT_MEDIUM (60 * 60)
-#  define TIME_AGO_UNIT_MEDIUM_NAME _("hour")
-#  define TIME_AGO_UNIT_MEDIUM_NAME_PLURAL _("hours")
 #  define TIME_AGO_LARGE_THRESHOLD (24 * 60 * TIME_AGO_UNIT_SMALL)
 #  define TIME_AGO_UNIT_LARGE (24 * 60 * 60)
-#  define TIME_AGO_UNIT_LARGE_NAME _("day")
-#  define TIME_AGO_UNIT_LARGE_NAME_PLURAL _("days")
 #else
 #  define TIME_AGO_UNIT_SMALL (24 * 60 * 60)
-#  define TIME_AGO_UNIT_SMALL_NAME _("day")
-#  define TIME_AGO_UNIT_SMALL_NAME_PLURAL _("days")
 #  define TIME_AGO_MEDIUM_THRESHOLD (4 * TIME_AGO_UNIT_SMALL)
 #  define TIME_AGO_UNIT_MEDIUM (7 * 24 * 60 * 60)
-#  define TIME_AGO_UNIT_MEDIUM_NAME _("week")
-#  define TIME_AGO_UNIT_MEDIUM_NAME_PLURAL _("weeks")
 #  define TIME_AGO_LARGE_THRESHOLD (28 * TIME_AGO_UNIT_SMALL)
 #  define TIME_AGO_UNIT_LARGE (30 * 24 * 60 * 60)
-#  define TIME_AGO_UNIT_LARGE_NAME _("month")
-#  define TIME_AGO_UNIT_LARGE_NAME_PLURAL _("months")
 #endif
 
-
+\f
 
 const char *
 tofu_policy_str (enum tofu_policy policy)
@@ -159,35 +213,259 @@ tofu_policy_to_trust_level (enum tofu_policy policy)
       return 0;
     }
 }
+\f
+static int batch_update;
+static time_t batch_update_started;
 
-/* This is a convenience function that combines sqlite3_mprintf and
-   sqlite3_exec.  */
-static int
-sqlite3_exec_printf (sqlite3 *db,
-                    int (*callback)(void*,int,char**,char**), void *cookie,
-                    char **errmsg,
-                    const char *sql, ...)
+static gpg_error_t end_transaction (struct db *db, int only_batch);
+
+/* Start a transaction on DB.  */
+static gpg_error_t
+begin_transaction (struct db *db, int only_batch)
 {
-  va_list ap;
   int rc;
-  char *sql2;
+  char *err = NULL;
 
-  va_start (ap, sql);
-  sql2 = sqlite3_vmprintf (sql, ap);
-  va_end (ap);
+  if (batch_update && batch_update_started != gnupg_get_time ())
+    /* We've been in batch update mode for a while (on average, more
+       than 500 ms).  To prevent starving other gpg processes, we drop
+       and retake the batch lock.
 
-#if 0
-  log_debug ("tofo db: executing: '%s'\n", sql2);
-#endif
+       Note: if we wanted higher resolution, we could use
+       npth_clock_gettime.  */
+    {
+      struct db *t;
 
-  rc = sqlite3_exec (db, sql2, callback, cookie, errmsg);
+      for (t = db_cache; t; t = t->next)
+        if (t->batch_update)
+          end_transaction (t, 1);
+      for (t = db; t; t = t->next)
+        if (t->batch_update)
+          end_transaction (t, 1);
 
-  sqlite3_free (sql2);
+      batch_update_started = gnupg_get_time ();
 
-  return rc;
+      /* Yield to allow another process a chance to run.  */
+      gpgrt_yield ();
+    }
+
+  /* XXX: In split mode, this can end in deadlock.
+
+     Consider: we have two gpg processes running simultaneously and
+     they each want to lock DB A and B, but in different orders.  This
+     will be automatically resolved by causing one of them to return
+     EBUSY and aborting.
+
+     A more intelligent approach would be to commit and retake the
+     batch transaction.  This requires a list of all DBs that are
+     currently in batch mode.  */
+
+  if (batch_update && ! db->batch_update)
+    {
+      rc = gpgsql_stepx (db->db, &db->s.savepoint_batch,
+                          NULL, NULL, &err,
+                          "savepoint batch;", SQLITE_ARG_END);
+      if (rc)
+        {
+          log_error (_("error beginning transaction on TOFU database: %s\n"),
+                     err);
+          print_further_info ("batch, database '%s'",
+                              *db->name ? db->name : "[combined]");
+          sqlite3_free (err);
+          return gpg_error (GPG_ERR_GENERAL);
+        }
+
+      db->batch_update = 1;
+    }
+
+  if (only_batch)
+    return 0;
+
+  rc = gpgsql_stepx (db->db, &db->s.savepoint_inner,
+                      NULL, NULL, &err,
+                      "savepoint inner;", SQLITE_ARG_END);
+  if (rc)
+    {
+      log_error (_("error beginning transaction on TOFU database: %s\n"),
+                 err);
+      print_further_info ("inner, database '%s'",
+                          *db->name ? db->name : "[combined]");
+      sqlite3_free (err);
+      return gpg_error (GPG_ERR_GENERAL);
+    }
+
+  return 0;
+}
+
+/* Commit a transaction.  If ONLY_BATCH is 1, then this only ends the
+   batch transaction if we have left batch mode.  If ONLY_BATCH is 2,
+   this ends any open batch transaction even if we are still in batch
+   mode.  */
+static gpg_error_t
+end_transaction (struct db *db, int only_batch)
+{
+  int rc;
+  char *err = NULL;
+
+  if (!db)
+    return 0;  /* Shortcut to allow for easier cleanup code.  */
+
+  if ((! batch_update || only_batch == 2) && db->batch_update)
+    /* The batch transaction is still in open, but we left batch
+       mode.  */
+    {
+      db->batch_update = 0;
+
+      rc = gpgsql_stepx (db->db, &db->s.savepoint_batch_commit,
+                          NULL, NULL, &err,
+                          "release batch;", SQLITE_ARG_END);
+      if (rc)
+        {
+          log_error (_("error committing transaction on TOFU database: %s\n"),
+                     err);
+          print_further_info ("batch, database '%s'",
+                              *db->name ? db->name : "[combined]");
+          sqlite3_free (err);
+          return gpg_error (GPG_ERR_GENERAL);
+        }
+
+      /* Releasing an outer transaction releases an open inner
+         transactions.  We're done.  */
+      return 0;
+    }
+
+  if (only_batch)
+    return 0;
+
+  rc = gpgsql_stepx (db->db, &db->s.savepoint_inner_commit,
+                      NULL, NULL, &err,
+                      "release inner;", SQLITE_ARG_END);
+  if (rc)
+    {
+      log_error (_("error committing transaction on TOFU database: %s\n"),
+                 err);
+      print_further_info ("inner, database '%s'",
+                          *db->name ? db->name : "[combined]");
+      sqlite3_free (err);
+      return gpg_error (GPG_ERR_GENERAL);
+    }
+
+  return 0;
+}
+
+static gpg_error_t
+rollback_transaction (struct db *db)
+{
+  int rc;
+  char *err = NULL;
+
+  if (!db)
+    return 0;  /* Shortcut to allow for easier cleanup code.  */
+
+  if (db->batch_update)
+    /* Just undo the most recent update; don't revert any progress
+       made by the batch transaction.  */
+    rc = sqlite3_exec (db->db, "rollback to inner;", NULL, NULL, &err);
+  else
+    /* Rollback the whole she-bang.  */
+    rc = sqlite3_exec (db->db, "rollback;", NULL, NULL, &err);
+
+  if (rc)
+    {
+      log_error (_("error rolling back transaction on TOFU database: %s\n"),
+                 err);
+      print_further_info ("inner, database '%s'",
+                          *db->name ? db->name : "[combined]");
+      sqlite3_free (err);
+      return gpg_error (GPG_ERR_GENERAL);
+    }
+
+  return 0;
+}
+
+void
+tofu_begin_batch_update (void)
+{
+  if (! batch_update)
+    batch_update_started = gnupg_get_time ();
+
+  batch_update ++;
+}
+
+void
+tofu_end_batch_update (void)
+{
+  log_assert (batch_update > 0);
+  batch_update --;
+
+  if (batch_update == 0)
+    {
+      struct db *db;
+
+      for (db = db_cache; db; db = db->next)
+        end_transaction (db, 1);
+    }
 }
 
 
+
+\f
+/* Wrapper around strtol which prints a warning in case of a
+ * conversion error.  On success the converted value is stored at
+ * R_VALUE and 0 is returned; on error FALLBACK is stored at R_VALUE
+ * and an error code is returned.  */
+static gpg_error_t
+string_to_long (long *r_value, const char *string, long fallback, int line)
+{
+  gpg_error_t err;
+  char *tail = NULL;
+
+  gpg_err_set_errno (0);
+  *r_value = strtol (string, &tail, 0);
+  if (errno || !(!strcmp (tail, ".0") || !*tail))
+    {
+      err = errno? gpg_error_from_errno (errno) : gpg_error (GPG_ERR_BAD_DATA);
+      log_debug ("%s:%d: "
+                 "strtol failed for DB returned string (tail=%.10s): %s\n",
+                 __FILE__, line, tail, gpg_strerror (err));
+      *r_value = fallback;
+    }
+  else
+    err = 0;
+
+  return err;
+}
+
+
+/* Wrapper around strtoul which prints a warning in case of a
+ * conversion error.  On success the converted value is stored at
+ * R_VALUE and 0 is returned; on error FALLBACK is stored at R_VALUE
+ * and an error code is returned.  */
+static gpg_error_t
+string_to_ulong (unsigned long *r_value, const char *string,
+                 unsigned long fallback, int line)
+{
+  gpg_error_t err;
+  char *tail = NULL;
+
+  gpg_err_set_errno (0);
+  *r_value = strtoul (string, &tail, 0);
+  if (errno || !(!strcmp (tail, ".0") || !*tail))
+    {
+      err = errno? gpg_error_from_errno (errno) : gpg_error (GPG_ERR_BAD_DATA);
+      log_debug ("%s:%d: "
+                 "strtoul failed for DB returned string (tail=%.10s): %s\n",
+                 __FILE__, line, tail, gpg_strerror (err));
+      *r_value = fallback;
+    }
+  else
+    err = 0;
+
+  return err;
+}
+
+
+
 /* Collect results of a select count (*) ...; style query.  Aborts if
    the argument is not a valid integer (or real of the form X.0).  */
 static int
@@ -195,20 +473,24 @@ get_single_unsigned_long_cb (void *cookie, int argc, char **argv,
                             char **azColName)
 {
   unsigned long int *count = cookie;
-  char *tail = NULL;
 
   (void) azColName;
 
-  assert (argc == 1);
+  log_assert (argc == 1);
 
-  errno = 0;
-  *count = strtoul (argv[0], &tail, 0);
-  if (errno || ! (strcmp (tail, ".0") == 0 || *tail == '\0'))
-    /* Abort.  */
-    return 1;
+  if (string_to_ulong (count, argv[0], 0, __LINE__))
+    return 1; /* Abort.  */
   return 0;
 }
 
+static int
+get_single_unsigned_long_cb2 (void *cookie, int argc, char **argv,
+                            char **azColName, sqlite3_stmt *stmt)
+{
+  (void) stmt;
+  return get_single_unsigned_long_cb (cookie, argc, argv, azColName);
+}
+
 /* We expect a single integer column whose name is "version".  COOKIE
    must point to an int.  This function always aborts.  On error or a
    if the version is bad, sets *VERSION to -1.  */
@@ -227,7 +509,7 @@ version_check_cb (void *cookie, int argc, char **argv, char **azColName)
     *version = 1;
   else
     {
-      log_error (_("unsupported TOFU DB version: %s\n"), argv[0]);
+      log_error (_("unsupported TOFU database version: %s\n"), argv[0]);
       *version = -1;
     }
 
@@ -248,6 +530,15 @@ initdb (sqlite3 *db, enum db_type type)
   unsigned long int count;
   int version = -1;
 
+  rc = sqlite3_exec (db, "begin transaction;", NULL, NULL, &err);
+  if (rc)
+    {
+      log_error (_("error beginning transaction on TOFU database: %s\n"),
+                err);
+      sqlite3_free (err);
+      return 1;
+    }
+
   /* If the DB has no tables, then assume this is a new DB that needs
      to be initialized.  */
   rc = sqlite3_exec (db,
@@ -255,10 +546,10 @@ initdb (sqlite3 *db, enum db_type type)
                     get_single_unsigned_long_cb, &count, &err);
   if (rc)
     {
-      log_error (_("error querying TOFU DB's available tables: %s\n"),
-                err);
+      log_error (_("error reading TOFU database: %s\n"), err);
+      print_further_info ("query available tables");
       sqlite3_free (err);
-      return 1;
+      goto out;
     }
   else if (count != 0)
     /* Assume that the DB is already initialized.  Make sure the
@@ -270,49 +561,42 @@ initdb (sqlite3 *db, enum db_type type)
        /* Happy, happy, joy, joy.  */
        {
          sqlite3_free (err);
-         return 0;
+          rc = 0;
+          goto out;
        }
       else if (rc == SQLITE_ABORT && version == -1)
        /* Unsupported version.  */
        {
          /* An error message was already displayed.  */
          sqlite3_free (err);
-         return 1;
+          goto out;
        }
       else if (rc)
        /* Some error.  */
        {
-         log_error (_("error determining TOFU DB's version: %s\n"), err);
+         log_error (_("error determining TOFU database's version: %s\n"), err);
          sqlite3_free (err);
-         return 1;
+          goto out;
        }
       else
-       /* Unexpected success.  This can only happen if there are no
-          rows.  */
-       {
-         log_error (_("error determining TOFU DB's version: %s\n"),
-                    "select returned 0, but expected ABORT");
-         return 1;
+        {
+          /* Unexpected success.  This can only happen if there are no
+             rows.  (select returned 0, but expected ABORT.)  */
+         log_error (_("error determining TOFU database's version: %s\n"),
+                     gpg_strerror (GPG_ERR_NO_DATA));
+          rc = 1;
+          goto out;
        }
     }
 
-  rc = sqlite3_exec (db, "begin transaction;", NULL, NULL, &err);
-  if (rc)
-    {
-      log_error (_("error beginning transaction on TOFU database: %s\n"),
-                err);
-      sqlite3_free (err);
-      return 1;
-    }
-
   /* Create the version table.  */
   rc = sqlite3_exec (db,
                     "create table version (version INTEGER);",
                     NULL, NULL, &err);
   if (rc)
     {
-      log_error (_("error initializing TOFU database (%s): %s\n"),
-                "version", err);
+      log_error (_("error initializing TOFU database: %s\n"), err);
+      print_further_info ("create version");
       sqlite3_free (err);
       goto out;
     }
@@ -324,40 +608,39 @@ initdb (sqlite3 *db, enum db_type type)
                     NULL, NULL, &err);
   if (rc)
     {
-      log_error (_("error initializing TOFU database (%s): %s\n"),
-                "version, init", err);
+      log_error (_("error initializing TOFU database: %s\n"), err);
+      print_further_info ("insert version");
       sqlite3_free (err);
       goto out;
     }
 
   /* The list of <fingerprint, email> bindings and auxiliary data.
-
-       OID is a unique ID identifying this binding (and used by the
-         signatures table, see below).  Note: OIDs will never be
-         reused.
-
-       FINGERPRINT: The key's fingerprint.
-
-       EMAIL: The normalized email address.
-
-       USER_ID: The unmodified user id from which EMAIL was extracted.
-
-       TIME: The time this binding was first observed.
-
-       POLICY: The trust policy (-1, 0, 1, or 2; see the
-         documentation for TOFU_POLICY_BAD, etc. above).
-
-       CONFLICT is either NULL or a fingerprint.  Assume that we have
-         a binding <0xdeadbeef, foo@example.com> and then we observe
-         <0xbaddecaf, foo@example.com>.  There two bindings conflict
-         (they have the same email address).  When we observe the
-         latter binding, we warn the user about the conflict and ask
-         for a policy decision about the new binding.  We also change
-         the old binding's policy to ask if it was auto.  So that we
-         know why this occured, we also set conflict to 0xbaddecaf.
-  */
+   *
+   *  OID is a unique ID identifying this binding (and used by the
+   *    signatures table, see below).  Note: OIDs will never be
+   *    reused.
+   *
+   *  FINGERPRINT: The key's fingerprint.
+   *
+   *  EMAIL: The normalized email address.
+   *
+   *  USER_ID: The unmodified user id from which EMAIL was extracted.
+   *
+   *  TIME: The time this binding was first observed.
+   *
+   *  POLICY: The trust policy (TOFU_POLICY_BAD, etc. as an integer).
+   *
+   *  CONFLICT is either NULL or a fingerprint.  Assume that we have
+   *    a binding <0xdeadbeef, foo@example.com> and then we observe
+   *    <0xbaddecaf, foo@example.com>.  There two bindings conflict
+   *    (they have the same email address).  When we observe the
+   *    latter binding, we warn the user about the conflict and ask
+   *    for a policy decision about the new binding.  We also change
+   *    the old binding's policy to ask if it was auto.  So that we
+   *     know why this occurred, we also set conflict to 0xbaddecaf.
+   */
   if (type == DB_EMAIL || type == DB_COMBINED)
-    rc = sqlite3_exec_printf
+    rc = gpgsql_exec_printf
       (db, NULL, NULL, &err,
        "create table bindings\n"
        " (oid INTEGER PRIMARY KEY AUTOINCREMENT,\n"
@@ -376,7 +659,7 @@ initdb (sqlite3 *db, enum db_type type)
 
        Note: since the data is split on the email address, there is no
        need to index the email column.  */
-    rc = sqlite3_exec_printf
+    rc = gpgsql_exec_printf
       (db, NULL, NULL, &err,
        "create table bindings\n"
        " (oid INTEGER PRIMARY KEY AUTOINCREMENT,\n"
@@ -386,8 +669,8 @@ initdb (sqlite3 *db, enum db_type type)
        " on bindings (fingerprint);\n");
   if (rc)
     {
-      log_error (_("error initializing TOFU database (%s): %s\n"),
-                "bindings", err);
+      log_error (_("error initializing TOFU database: %s\n"), err);
+      print_further_info ("create bindings");
       sqlite3_free (err);
       goto out;
     }
@@ -416,8 +699,8 @@ initdb (sqlite3 *db, enum db_type type)
                         NULL, NULL, &err);
       if (rc)
        {
-         log_error (_("error initializing TOFU database (%s): %s\n"),
-                    "signatures", err);
+          log_error (_("error initializing TOFU database: %s\n"), err);
+          print_further_info ("create signatures");
          sqlite3_free (err);
          goto out;
        }
@@ -429,7 +712,7 @@ initdb (sqlite3 *db, enum db_type type)
       rc = sqlite3_exec (db, "rollback;", NULL, NULL, &err);
       if (rc)
        {
-         log_error (_("error aborting transaction on TOFU DB: %s\n"),
+         log_error (_("error rolling back transaction on TOFU database: %s\n"),
                     err);
          sqlite3_free (err);
        }
@@ -437,10 +720,10 @@ initdb (sqlite3 *db, enum db_type type)
     }
   else
     {
-      rc = sqlite3_exec (db, "commit transaction;", NULL, NULL, &err);
+      rc = sqlite3_exec (db, "end transaction;", NULL, NULL, &err);
       if (rc)
        {
-         log_error (_("error committing transaction on TOFU DB: %s\n"),
+         log_error (_("error committing transaction on TOFU database: %s\n"),
                     err);
          sqlite3_free (err);
          return 1;
@@ -449,8 +732,6 @@ initdb (sqlite3 *db, enum db_type type)
     }
 }
 
-static sqlite3 *combined_db;
-
 /* Open and initialize a low-level TOFU database.  Returns NULL on
    failure.  This function should not normally be directly called to
    get a database handle.  Instead, use getdb().  */
@@ -463,25 +744,22 @@ opendb (char *filename, enum db_type type)
 
   if (opt.tofu_db_format == TOFU_DB_FLAT)
     {
-      assert (! filename);
-      assert (type == DB_COMBINED);
-
-      if (combined_db)
-       return combined_db;
+      log_assert (! filename);
+      log_assert (type == DB_COMBINED);
 
-      filename = make_filename (opt.homedir, "tofu.db", NULL);
+      filename = make_filename (gnupg_homedir (), "tofu.db", NULL);
       filename_free = 1;
     }
   else
-    assert (type == DB_EMAIL || type == DB_KEY);
+    log_assert (type == DB_EMAIL || type == DB_KEY);
 
-  assert (filename);
+  log_assert (filename);
 
   rc = sqlite3_open (filename, &db);
   if (rc)
     {
-      log_error (_("can't open TOFU DB ('%s'): %s\n"),
-                filename, sqlite3_errmsg (db));
+      log_error (_("error opening TOFU database '%s': %s\n"),
+                 filename, sqlite3_errmsg (db));
       /* Even if an error occurs, DB is guaranteed to be valid.  */
       sqlite3_close (db);
       db = NULL;
@@ -489,7 +767,8 @@ opendb (char *filename, enum db_type type)
 
   /* If a DB is locked wait up to 5 seconds for the lock to be cleared
      before failing.  */
-  sqlite3_busy_timeout (db, 5 * 1000);
+  if (db)
+    sqlite3_busy_timeout (db, 5 * 1000);
 
   if (filename_free)
     xfree (filename);
@@ -500,12 +779,33 @@ opendb (char *filename, enum db_type type)
       db = NULL;
     }
 
-  if (opt.tofu_db_format == TOFU_DB_FLAT)
-    combined_db = db;
-
   return db;
 }
 
+/* Definition of the Tofu dabase meta handle.  */
+struct tofu_dbs_s
+{
+  struct db *db;
+};
+
+static void
+unlink_db (struct db *db)
+{
+  *db->prevp = db->next;
+  if (db->next)
+    db->next->prevp = db->prevp;
+}
+
+static void
+link_db (struct db **head, struct db *db)
+{
+  db->next = *head;
+  if (db->next)
+    db->next->prevp = &db->next;
+  db->prevp = head;
+  *head = db;
+}
+
 /* Return a database handle.  <type, name> describes the required
    database.  If there is a cached handle in DBS, that handle is
    returned.  Otherwise, the database is opened and cached in DBS.
@@ -514,112 +814,182 @@ opendb (char *filename, enum db_type type)
 
    TYPE must be either DB_MAIL or DB_KEY.  In the combined format, the
    combined DB is always returned.  */
-static sqlite3 *
-getdb (struct db *dbs, const char *name, enum db_type type)
+static struct db *
+getdb (tofu_dbs_t dbs, const char *name, enum db_type type)
 {
   struct db *t = NULL;
-  sqlite3 *sqlitedb = NULL;
   char *name_sanitized = NULL;
+  int count;
   char *filename = NULL;
-  int i;
-
-  assert (name);
-  assert (type == DB_EMAIL || type == DB_KEY);
+  int need_link = 1;
+  sqlite3 *sqlitedb = NULL;
+  gpg_error_t rc;
 
-  assert (dbs);
-  /* The first entry is always for the combined DB.  */
-  assert (dbs->type == DB_COMBINED);
-  assert (! dbs->name[0]);
+  log_assert (dbs);
+  log_assert (name);
+  log_assert (type == DB_EMAIL || type == DB_KEY);
 
   if (opt.tofu_db_format == TOFU_DB_FLAT)
-    /* When using the flat format, we only have a single combined
-       DB.  */
+    /* When using the flat format, we only have a single DB, the
+       combined DB.  */
     {
-      assert (dbs->db);
-      assert (! dbs->next);
-      return dbs->db;
-    }
-  else
-    /* When using the split format the first entry on the DB list is a
-       dummy entry.  */
-    assert (! dbs->db);
+      if (dbs->db)
+        {
+          log_assert (dbs->db->type == DB_COMBINED);
+          log_assert (! dbs->db->next);
+          return dbs->db;
+        }
 
-  /* We have the split format.  */
+      type = DB_COMBINED;
+    }
 
-  /* Only allow alpha-numeric characters in the filename.  */
-  name_sanitized = xstrdup (name);
-  for (i = 0; name[i]; i ++)
+  if (type != DB_COMBINED)
+    /* Only allow alpha-numeric characters in the name.  */
     {
-      char c = name_sanitized[i];
-      if (! (('a' <= c && c <= 'z')
-            || ('A' <= c && c <= 'Z')
-            || ('0' <= c && c <= '9')))
-       name_sanitized[i] = '_';
+      int i;
+
+      name_sanitized = xstrdup (name);
+      for (i = 0; name[i]; i ++)
+        {
+          char c = name_sanitized[i];
+          if (! (('a' <= c && c <= 'z')
+                 || ('A' <= c && c <= 'Z')
+                 || ('0' <= c && c <= '9')))
+            name_sanitized[i] = '_';
+        }
     }
 
   /* See if the DB is cached.  */
-  for (t = dbs->next; t; t = t->next)
-    if (type == t->type && strcmp (t->name, name_sanitized) == 0)
-      goto out;
+  for (t = dbs->db; t; t = t->next)
+    if (t->type == type
+        && (type == DB_COMBINED || strcmp (t->name, name_sanitized) == 0))
+      {
+        need_link = 0;
+        goto out;
+      }
+
+  for (t = db_cache, count = 0; t; t = t->next, count ++)
+    if (type == t->type
+        && (type == DB_COMBINED || strcmp (t->name, name_sanitized) == 0))
+      {
+        unlink_db (t);
+        db_cache_count --;
+        goto out;
+      }
 
-  /* Open the DB.  The filename has the form:
+  log_assert (db_cache_count == count);
 
-       tofu.d/TYPE/PREFIX/NAME.db
+  if (type == DB_COMBINED)
+    filename = NULL;
+  else
+    {
+      /* Open the DB.  The filename has the form:
 
-     We use a short prefix to try to avoid having many files in a
-     single directory.  */
-  {
-    char *type_str = type == DB_EMAIL ? "email" : "key";
-    char prefix[3] = { name_sanitized[0], name_sanitized[1], 0 };
-    char *name_db;
+         tofu.d/TYPE/PREFIX/NAME.db
 
-    /* Make the directory.  */
-    if (gnupg_mkdir_p (opt.homedir, "tofu.d", type_str, prefix, NULL) != 0)
+         We use a short prefix to try to avoid having many files in a
+         single directory.  */
       {
-       log_error (_("unable to create directory %s/%s/%s/%s"),
-                  opt.homedir, "tofu.d", type_str, prefix);
-        goto out;
+        char *type_str = type == DB_EMAIL ? "email" : "key";
+        char prefix[3] = { name_sanitized[0], name_sanitized[1], 0 };
+        char *name_db;
+
+        /* Make the directory.  */
+        rc = gnupg_mkdir_p (gnupg_homedir (), "tofu.d", type_str, prefix, NULL);
+        if (rc)
+          {
+            name_db = xstrconcat (gnupg_homedir (), "tofu.d",
+                                  type_str, prefix, NULL);
+            log_error (_("can't create directory '%s': %s\n"),
+                       name_db, gpg_strerror (rc));
+            xfree (name_db);
+            goto out;
+          }
+
+        name_db = xstrconcat (name_sanitized, ".db", NULL);
+        filename = make_filename
+          (gnupg_homedir (), "tofu.d", type_str, prefix, name_db, NULL);
+        xfree (name_db);
       }
-
-    name_db = xstrconcat (name_sanitized, ".db", NULL);
-    filename = make_filename
-      (opt.homedir, "tofu.d", type_str, prefix, name_db, NULL);
-    xfree (name_db);
-  }
+    }
 
   sqlitedb = opendb (filename, type);
   if (! sqlitedb)
     goto out;
 
-  t = xmalloc (sizeof (struct db) + strlen (name_sanitized));
+  t = xmalloc_clear (sizeof (struct db)
+                     + (name_sanitized ? strlen (name_sanitized) : 0));
   t->type = type;
   t->db = sqlitedb;
-  strcpy (t->name, name_sanitized);
-
-  /* Insert it immediately after the first element.  */
-  t->next = dbs->next;
-  dbs->next = t;
+  if (name_sanitized)
+    strcpy (t->name, name_sanitized);
 
  out:
+  if (t && need_link)
+    link_db (&dbs->db, t);
+
+#if DEBUG_TOFU_CACHE
+  if (t)
+    t->hits ++;
+#endif
+
   xfree (filename);
   xfree (name_sanitized);
+  return t;
+}
+
+static void
+closedb (struct db *db)
+{
+  sqlite3_stmt **statements;
+
+  if (opt.tofu_db_format == TOFU_DB_FLAT)
+    /* If we are using the flat format, then there is only ever the
+       combined DB.  */
+    log_assert (! db->next);
+
+  if (db->type == DB_COMBINED)
+    {
+      log_assert (opt.tofu_db_format == TOFU_DB_FLAT);
+      log_assert (! db->name[0]);
+    }
+  else
+    {
+      log_assert (opt.tofu_db_format == TOFU_DB_SPLIT);
+      log_assert (db->type != DB_COMBINED);
+      log_assert (db->name[0]);
+    }
 
-  if (! t)
-    return NULL;
-  return t->db;
+  if (db->batch_update)
+    end_transaction (db, 2);
+
+  for (statements = (void *) &db->s;
+       (void *) statements < (void *) &(&db->s)[1];
+       statements ++)
+    sqlite3_finalize (*statements);
+
+  sqlite3_close (db->db);
+
+#if DEBUG_TOFU_CACHE
+  log_debug ("Freeing db.  Used %d times.\n", db->hits);
+#endif
+
+  xfree (db);
 }
 
 
 /* Create a new DB meta-handle.  Returns NULL on error.  */
-static struct db *
-opendbs (void)
+/* FIXME: Change to return an error code for better reporting by the
+   caller.  */
+static tofu_dbs_t
+opendbs (ctrl_t ctrl)
 {
-  sqlite3 *db = NULL;
-  struct db *dbs;
+  if (ctrl->tofu.dbs)
+    return ctrl->tofu.dbs;
 
   if (opt.tofu_db_format == TOFU_DB_AUTO)
     {
-      char *filename = make_filename (opt.homedir, "tofu.db", NULL);
+      char *filename = make_filename (gnupg_homedir (), "tofu.db", NULL);
       struct stat s;
       int have_tofu_db = 0;
       int have_tofu_d = 0;
@@ -654,111 +1024,116 @@ opendbs (void)
 
       if (have_tofu_db && have_tofu_d)
        {
-         log_info (_("Warning: Home directory contains both tofu.db and tofu.d.  Using split format for TOFU DB.\n"));
+         log_info (_("Warning: Home directory contains both tofu.db"
+                      " and tofu.d.\n"));
+          log_info (_("Using split format for TOFU database\n"));
          opt.tofu_db_format = TOFU_DB_SPLIT;
        }
       else if (have_tofu_db)
        {
          opt.tofu_db_format = TOFU_DB_FLAT;
          if (DBG_TRUST)
-           log_debug ("Using flat format for TOFU DB.\n");
+           log_debug ("Using flat format for TOFU database.\n");
        }
       else if (have_tofu_d)
        {
          opt.tofu_db_format = TOFU_DB_SPLIT;
          if (DBG_TRUST)
-           log_debug ("Using split format for TOFU DB.\n");
+           log_debug ("Using split format for TOFU database.\n");
        }
       else
        {
-         opt.tofu_db_format = TOFU_DB_SPLIT;
+         opt.tofu_db_format = TOFU_DB_FLAT;
          if (DBG_TRUST)
-           log_debug ("Using split format for TOFU DB.\n");
+           log_debug ("Using flat format for TOFU database.\n");
        }
     }
 
-  if (opt.tofu_db_format == TOFU_DB_FLAT)
-    {
-      db = opendb (NULL, DB_COMBINED);
-      if (! db)
-       return NULL;
-    }
-  else
-    {
-      /* Create a dummy entry so that we have a handle.  */
-    }
-
-  dbs = xmalloc_clear (sizeof (*dbs));
-  dbs->db = db;
-  dbs->type = DB_COMBINED;
-
-  return dbs;
+  ctrl->tofu.dbs = xmalloc_clear (sizeof (struct tofu_dbs_s));
+  return ctrl->tofu.dbs;
 }
 
+
 /* Release all of the resources associated with a DB meta-handle.  */
-static void
-closedbs (struct db *dbs)
+void
+tofu_closedbs (ctrl_t ctrl)
 {
-  struct db *db;
-  struct db *n;
+  tofu_dbs_t dbs = ctrl->tofu.dbs;
 
-  /* The first entry is always the combined DB.  */
-  assert (dbs->type == DB_COMBINED);
-  if (opt.tofu_db_format == TOFU_DB_FLAT)
+  if (!dbs)
+    return;  /* Not initialized.  */
+
+  if (dbs->db && dbs->db->type == DB_COMBINED)
     {
-      /* If we are using the flat format, then there is only ever the
-        combined DB.  */
-      assert (! dbs->next);
-      assert (dbs->db);
-      assert (dbs->db == combined_db);
+      log_assert (!dbs->db->next);
+      closedb (dbs->db);
     }
-  else
-    /* In the split format, the combined record is just a place holder
-       so that we have a stable handle.  */
-    assert (! dbs->db);
-
-  for (db = dbs; db; db = n)
+  else if (dbs->db)
     {
-      n = db->next;
+      struct db *old_head = db_cache;
+      struct db *db;
+      int count;
 
-      if (combined_db && db->db == combined_db)
-       {
-         assert (opt.tofu_db_format == TOFU_DB_FLAT);
-         assert (dbs == db);
-         assert (db->type == DB_COMBINED);
-         assert (! db->name[0]);
-       }
-      else if (db->db)
-       /* Not the dummy entry.  */
-       {
-         if (dbs == db)
-           /* The first entry.  */
-           {
-             assert (opt.tofu_db_format == TOFU_DB_FLAT);
-             assert (db->type == DB_COMBINED);
-             assert (! db->name[0]);
-           }
-         else
-           /* Not the first entry.  */
-           {
-             assert (opt.tofu_db_format == TOFU_DB_SPLIT);
-             assert (db->type != DB_COMBINED);
-             assert (db->name[0]);
-           }
+      /* Find the last DB.  */
+      for (db = dbs->db, count = 1; db->next; db = db->next, count ++)
+        {
+          /* When we leave batch mode we leave batch mode on any
+             cached connections.  */
+          if (! batch_update)
+            log_assert (! db->batch_update);
+        }
+      if (! batch_update)
+        log_assert (! db->batch_update);
 
-         sqlite3_close (db->db);
-       }
-      else
-       /* The dummy entry.  */
-       {
-         assert (opt.tofu_db_format == TOFU_DB_SPLIT);
-         assert (dbs == db);
-         assert (db->type == DB_COMBINED);
-         assert (! db->name[0]);
-       }
+      /* Join the two lists.  */
+      db->next = db_cache;
+      if (db_cache)
+        db_cache->prevp = &db->next;
+
+      /* Update the (new) first element.  */
+      db_cache = dbs->db;
+      dbs->db->prevp = &db_cache;
 
-      xfree (db);
+      db_cache_count += count;
+
+      /* Make sure that we don't have too many DBs on DB_CACHE.  If
+         so, free some.  */
+      if (db_cache_count > DB_CACHE_ENTRIES)
+        {
+          /* We need to find the (DB_CACHE_ENTRIES + 1)th entry.  It
+             is easy to skip the first COUNT entries since we still
+             have a handle on the old head.  */
+          int skip = DB_CACHE_ENTRIES - count;
+          if (skip < 0)
+            for (old_head = db_cache, skip = DB_CACHE_ENTRIES;
+                 skip > 0;
+                 old_head = old_head->next, skip--)
+              { /* Do nothing.  */ }
+          else
+            while (-- skip > 0)
+              old_head = old_head->next;
+
+          *old_head->prevp = NULL;
+
+          while (old_head)
+            {
+              db = old_head->next;
+              closedb (old_head);
+              old_head = db;
+              db_cache_count --;
+            }
+
+          log_assert (db_cache_count == DB_CACHE_ENTRIES);
+        }
     }
+
+  xfree (ctrl->tofu.dbs);
+  ctrl->tofu.dbs = NULL;
+
+#if DEBUG_TOFU_CACHE
+  log_debug ("Queries: %d (prepares saved: %d)\n",
+             queries, prepares_saved);
+#endif
 }
 
 
@@ -768,33 +1143,41 @@ static int
 get_single_long_cb (void *cookie, int argc, char **argv, char **azColName)
 {
   long *count = cookie;
-  char *tail = NULL;
 
   (void) azColName;
 
-  assert (argc == 1);
+  log_assert (argc == 1);
+
+  if (string_to_long (count, argv[0], 0, __LINE__))
+    return 1; /* Abort.  */
 
-  errno = 0;
-  *count = strtol (argv[0], &tail, 0);
-  if (errno || ! (strcmp (tail, ".0") == 0 || *tail == '\0'))
-    /* Abort.  */
-    return 1;
   return 0;
 }
 
+static int
+get_single_long_cb2 (void *cookie, int argc, char **argv, char **azColName,
+                     sqlite3_stmt *stmt)
+{
+  (void) stmt;
+  return get_single_long_cb (cookie, argc, argv, azColName);
+}
 
 /* Record (or update) a trust policy about a (possibly new)
    binding.
 
    If SHOW_OLD is set, the binding's old policy is displayed.  */
 static gpg_error_t
-record_binding (struct db *dbs, const char *fingerprint, const char *email,
+record_binding (tofu_dbs_t dbs, const char *fingerprint, const char *email,
                const char *user_id, enum tofu_policy policy, int show_old)
 {
-  sqlite3 *db_email = NULL, *db_key = NULL;
-  int rc;
+  char *fingerprint_pp = format_hexfingerprint (fingerprint, NULL, 0);
+  struct db *db_email = NULL, *db_key = NULL;
+  gpg_error_t rc;
   char *err = NULL;
-  enum tofu_policy policy_old = TOFU_POLICY_NONE;
+  /* policy_old needs to be a long and not an enum tofu_policy,
+     because we pass it by reference to get_single_long_cb2, which
+     expects a long.  */
+  long policy_old = TOFU_POLICY_NONE;
 
   if (! (policy == TOFU_POLICY_AUTO
         || policy == TOFU_POLICY_GOOD
@@ -805,7 +1188,10 @@ record_binding (struct db *dbs, const char *fingerprint, const char *email,
 
   db_email = getdb (dbs, email, DB_EMAIL);
   if (! db_email)
-    return gpg_error (GPG_ERR_GENERAL);
+    {
+      rc = gpg_error (GPG_ERR_GENERAL);
+      goto leave;
+    }
 
   if (opt.tofu_db_format == TOFU_DB_SPLIT)
     /* In the split format, we need to update two DBs.  To keep them
@@ -813,28 +1199,22 @@ record_binding (struct db *dbs, const char *fingerprint, const char *email,
        only place where we start two transaction and we always start
        transaction on the DB_KEY DB first, thus deadlock is not
        possible.  */
+    /* We only need a transaction for the split format.  */
     {
       db_key = getdb (dbs, fingerprint, DB_KEY);
       if (! db_key)
-       return gpg_error (GPG_ERR_GENERAL);
+        {
+          rc = gpg_error (GPG_ERR_GENERAL);
+          goto leave;
+        }
 
-      rc = sqlite3_exec (db_email, "begin transaction;", NULL, NULL, &err);
+      rc = begin_transaction (db_email, 0);
       if (rc)
-       {
-         log_error (_("error beginning transaction on TOFU %s database: %s\n"),
-                    "email", err);
-         sqlite3_free (err);
-         return gpg_error (GPG_ERR_GENERAL);
-       }
+        goto leave;
 
-      rc = sqlite3_exec (db_key, "begin transaction;", NULL, NULL, &err);
+      rc = begin_transaction (db_key, 0);
       if (rc)
-       {
-         log_error (_("error beginning transaction on TOFU %s database: %s\n"),
-                    "key", err);
-         sqlite3_free (err);
-         goto out_revert_one;
-       }
+        goto out_revert_one;
     }
 
   if (show_old)
@@ -842,10 +1222,12 @@ record_binding (struct db *dbs, const char *fingerprint, const char *email,
        purposes, there is no need to start a transaction or to die if
        there is a failure.  */
     {
-      rc = sqlite3_exec_printf
-       (db_email, get_single_long_cb, &policy_old, &err,
-        "select policy from bindings where fingerprint = %Q and email = %Q",
-        fingerprint, email);
+      rc = gpgsql_stepx
+       (db_email->db, &db_email->s.record_binding_get_old_policy,
+         get_single_long_cb2, &policy_old, &err,
+        "select policy from bindings where fingerprint = ? and email = ?",
+        SQLITE_ARG_STRING, fingerprint, SQLITE_ARG_STRING, email,
+         SQLITE_ARG_END);
       if (rc)
        {
          log_debug ("TOFU: Error reading from binding database"
@@ -873,23 +1255,31 @@ record_binding (struct db *dbs, const char *fingerprint, const char *email,
     /* Nothing to do.  */
     goto out;
 
-  rc = sqlite3_exec_printf
-    (db_email, NULL, NULL, &err,
+  if (opt.dry_run)
+    {
+      log_info ("TOFU database update skipped due to --dry-run\n");
+      goto out;
+    }
+
+  rc = gpgsql_stepx
+    (db_email->db, &db_email->s.record_binding_update, NULL, NULL, &err,
      "insert or replace into bindings\n"
      " (oid, fingerprint, email, user_id, time, policy)\n"
      " values (\n"
      /* If we don't explicitly reuse the OID, then SQLite will
        reallocate a new one.  We just need to search for the OID
        based on the fingerprint and email since they are unique.  */
-     "  (select oid from bindings where fingerprint = %Q and email = %Q),\n"
-     "  %Q, %Q, %Q, strftime('%%s','now'), %d);",
-     fingerprint, email, fingerprint, email, user_id, policy);
+     "  (select oid from bindings where fingerprint = ? and email = ?),\n"
+     "  ?, ?, ?, strftime('%s','now'), ?);",
+     SQLITE_ARG_STRING, fingerprint, SQLITE_ARG_STRING, email,
+     SQLITE_ARG_STRING, fingerprint, SQLITE_ARG_STRING, email,
+     SQLITE_ARG_STRING, user_id, SQLITE_ARG_INT, (int) policy,
+     SQLITE_ARG_END);
   if (rc)
     {
-      log_error (_("error updating TOFU binding database"
-                  " (inserting <%s, %s> = %s): %s\n"),
-                fingerprint, email, tofu_policy_str (policy),
-                err);
+      log_error (_("error updating TOFU database: %s\n"), err);
+      print_further_info (" insert bindings <%s, %s> = %s",
+                          fingerprint, email, tofu_policy_str (policy));
       sqlite3_free (err);
       goto out;
     }
@@ -897,60 +1287,59 @@ record_binding (struct db *dbs, const char *fingerprint, const char *email,
   if (db_key)
     /* We also need to update the key DB.  */
     {
-      assert (opt.tofu_db_format == TOFU_DB_SPLIT);
+      log_assert (opt.tofu_db_format == TOFU_DB_SPLIT);
 
-      rc = sqlite3_exec_printf
-       (db_key, NULL, NULL, &err,
+      rc = gpgsql_stepx
+       (db_key->db, &db_key->s.record_binding_update2, NULL, NULL, &err,
         "insert or replace into bindings\n"
         " (oid, fingerprint, email, user_id)\n"
         " values (\n"
         /* If we don't explicitly reuse the OID, then SQLite will
            reallocate a new one.  We just need to search for the OID
            based on the fingerprint and email since they are unique.  */
-        "  (select oid from bindings where fingerprint = %Q and email = %Q),\n"
-        "  %Q, %Q, %Q);",
-        fingerprint, email, fingerprint, email, user_id);
+        "  (select oid from bindings where fingerprint = ? and email = ?),\n"
+        "  ?, ?, ?);",
+        SQLITE_ARG_STRING, fingerprint, SQLITE_ARG_STRING, email,
+         SQLITE_ARG_STRING, fingerprint, SQLITE_ARG_STRING, email,
+         SQLITE_ARG_STRING, user_id, SQLITE_ARG_END);
       if (rc)
        {
-         log_error (_("error updating TOFU binding database"
-                      " (inserting <%s, %s>): %s\n"),
-                    fingerprint, email, err);
+         log_error (_("error updating TOFU database: %s\n"), err);
+          print_further_info ("insert bindings <%s, %s>",
+                              fingerprint, email);
          sqlite3_free (err);
          goto out;
        }
     }
   else
-    assert (opt.tofu_db_format == TOFU_DB_FLAT);
+    log_assert (opt.tofu_db_format == TOFU_DB_FLAT);
 
  out:
   if (opt.tofu_db_format == TOFU_DB_SPLIT)
     /* We only need a transaction for the split format.  */
     {
-      int rc2;
+      gpg_error_t rc2;
 
-      rc2 = sqlite3_exec_printf (db_key, NULL, NULL, &err,
-                                rc ? "rollback;" : "end transaction;");
+      if (rc)
+        rc2 = rollback_transaction (db_key);
+      else
+        rc2 = end_transaction (db_key, 0);
       if (rc2)
-       {
-         log_error (_("error ending transaction on TOFU database: %s\n"),
-                    err);
-         sqlite3_free (err);
-       }
+        sqlite3_free (err);
 
     out_revert_one:
-      rc2 = sqlite3_exec_printf (db_email, NULL, NULL, &err,
-                                rc ? "rollback;" : "end transaction;");
+      if (rc)
+        rc2 = rollback_transaction (db_email);
+      else
+        rc2 = end_transaction (db_email, 0);
       if (rc2)
-       {
-         log_error (_("error ending transaction on TOFU database: %s\n"),
-                    err);
-         sqlite3_free (err);
-       }
+        sqlite3_free (err);
     }
 
-  if (rc)
-    return gpg_error (GPG_ERR_GENERAL);
-  return 0;
+ leave:
+  xfree (fingerprint_pp);
+
+  return rc;
 }
 
 
@@ -985,6 +1374,15 @@ strings_collect_cb (void *cookie, int argc, char **argv, char **azColName)
   return 0;
 }
 
+static int
+strings_collect_cb2 (void *cookie, int argc, char **argv, char **azColName,
+                     sqlite3_stmt *stmt)
+{
+  (void) stmt;
+  return strings_collect_cb (cookie, argc, argv, azColName);
+
+}
+
 /* Auxiliary data structure to collect statistics about
    signatures.  */
 struct signature_stats
@@ -1040,45 +1438,31 @@ signature_stats_prepend (struct signature_stats **statsp,
      <fingerprint, policy, time ago, count>.  */
 static int
 signature_stats_collect_cb (void *cookie, int argc, char **argv,
-                           char **azColName)
+                           char **azColName, sqlite3_stmt *stmt)
 {
   struct signature_stats **statsp = cookie;
-  char *tail;
   int i = 0;
   enum tofu_policy policy;
   long time_ago;
   unsigned long count;
+  long along;
 
   (void) azColName;
+  (void) stmt;
 
   i ++;
 
-  tail = NULL;
-  errno = 0;
-  policy = strtol (argv[i], &tail, 0);
-  if (errno || ! (strcmp (tail, ".0") == 0 || *tail == '\0'))
-    {
-      /* Abort.  */
-      log_error ("%s: Error converting %s to an integer (tail = '%s')\n",
-                __func__, argv[i], tail);
-      return 1;
-    }
+  if (string_to_long (&along, argv[i], 0, __LINE__))
+    return 1;  /* Abort */
+  policy = along;
   i ++;
 
   if (! argv[i])
     time_ago = 0;
   else
     {
-      tail = NULL;
-      errno = 0;
-      time_ago = strtol (argv[i], &tail, 0);
-      if (errno || ! (strcmp (tail, ".0") == 0 || *tail == '\0'))
-        {
-          /* Abort.  */
-          log_error ("%s: Error converting %s to an integer (tail = '%s')\n",
-                     __func__, argv[i], tail);
-          return 1;
-        }
+      if (string_to_long (&time_ago, argv[i], 0, __LINE__))
+        return 1; /* Abort.  */
     }
   i ++;
 
@@ -1088,20 +1472,12 @@ signature_stats_collect_cb (void *cookie, int argc, char **argv,
     count = 0;
   else
     {
-      tail = NULL;
-      errno = 0;
-      count = strtoul (argv[i], &tail, 0);
-      if (errno || ! (strcmp (tail, ".0") == 0 || *tail == '\0'))
-        {
-          /* Abort.  */
-          log_error ("%s: Error converting %s to an integer (tail = '%s')\n",
-                     __func__, argv[i], tail);
-          return 1;
-        }
+      if (string_to_ulong (&count, argv[i], 0, __LINE__))
+        return 1; /* Abort */
     }
   i ++;
 
-  assert (argc == i);
+  log_assert (argc == i);
 
   signature_stats_prepend (statsp, argv[0], policy, time_ago, count);
 
@@ -1122,45 +1498,21 @@ time_ago_scale (signed long t)
   return t / TIME_AGO_UNIT_LARGE;
 }
 
-/* Return the appropriate unit (respecting whether it is plural or
-   singular).  */
-const char *
-time_ago_unit (signed long t)
-{
-  signed long t_scaled = time_ago_scale (t);
-
-  if (t < TIME_AGO_UNIT_MEDIUM)
-    {
-      if (t_scaled == 1)
-       return TIME_AGO_UNIT_SMALL_NAME;
-      return TIME_AGO_UNIT_SMALL_NAME_PLURAL;
-    }
-  if (t < TIME_AGO_UNIT_LARGE)
-    {
-      if (t_scaled == 1)
-       return TIME_AGO_UNIT_MEDIUM_NAME;
-      return TIME_AGO_UNIT_MEDIUM_NAME_PLURAL;
-    }
-  if (t_scaled == 1)
-    return TIME_AGO_UNIT_LARGE_NAME;
-  return TIME_AGO_UNIT_LARGE_NAME_PLURAL;
-}
-
 
 /* Return the policy for the binding <FINGERPRINT, EMAIL> (email has
    already been normalized) and any conflict information in *CONFLICT
    if CONFLICT is not NULL.  Returns _tofu_GET_POLICY_ERROR if an error
    occurs.  */
 static enum tofu_policy
-get_policy (struct db *dbs, const char *fingerprint, const char *email,
+get_policy (tofu_dbs_t dbs, const char *fingerprint, const char *email,
            char **conflict)
 {
-  sqlite3 *db;
+  struct db *db;
   int rc;
   char *err = NULL;
   strlist_t strlist = NULL;
-  char *tail = NULL;
   enum tofu_policy policy = _tofu_GET_POLICY_ERROR;
+  long along;
 
   db = getdb (dbs, email, DB_EMAIL);
   if (! db)
@@ -1170,106 +1522,517 @@ get_policy (struct db *dbs, const char *fingerprint, const char *email,
      (TOFU_POLICY_NONE cannot appear in the DB.  Thus, if POLICY is
      still TOFU_POLICY_NONE after executing the query, then the
      result set was empty.)  */
-  rc = sqlite3_exec_printf
-    (db, strings_collect_cb, &strlist, &err,
-     "select policy, conflict from bindings\n"
-     " where fingerprint = %Q and email = %Q",
-     fingerprint, email);
+  rc = gpgsql_stepx (db->db, &db->s.get_policy_select_policy_and_conflict,
+                      strings_collect_cb2, &strlist, &err,
+                      "select policy, conflict from bindings\n"
+                      " where fingerprint = ? and email = ?",
+                      SQLITE_ARG_STRING, fingerprint,
+                      SQLITE_ARG_STRING, email,
+                      SQLITE_ARG_END);
   if (rc)
     {
-      log_error (_("error reading from TOFU database"
-                  " (checking for existing bad bindings): %s\n"),
-                err);
+      log_error (_("error reading TOFU database: %s\n"), err);
+      print_further_info ("checking for existing bad bindings");
       sqlite3_free (err);
       goto out;
     }
 
-  if (strlist_length (strlist) == 0)
-    /* No results.  */
+  if (strlist_length (strlist) == 0)
+    /* No results.  */
+    {
+      policy = TOFU_POLICY_NONE;
+      goto out;
+    }
+  else if (strlist_length (strlist) != 2)
+    /* The result has the wrong form.  */
+    {
+      log_error (_("error reading TOFU database: %s\n"),
+                 gpg_strerror (GPG_ERR_BAD_DATA));
+      print_further_info ("checking for existing bad bindings:"
+                          " expected 2 results, got %d\n",
+                          strlist_length (strlist));
+      goto out;
+    }
+
+  /* The result has the right form.  */
+
+  if (string_to_long (&along, strlist->d, 0, __LINE__))
+    {
+      log_error (_("error reading TOFU database: %s\n"),
+                 gpg_strerror (GPG_ERR_BAD_DATA));
+      print_further_info ("bad value for policy: %s", strlist->d);
+      goto out;
+    }
+  policy = along;
+
+  if (! (policy == TOFU_POLICY_AUTO
+        || policy == TOFU_POLICY_GOOD
+        || policy == TOFU_POLICY_UNKNOWN
+        || policy == TOFU_POLICY_BAD
+        || policy == TOFU_POLICY_ASK))
+    {
+      log_error (_("error reading TOFU database: %s\n"),
+                 gpg_strerror (GPG_ERR_DB_CORRUPTED));
+      print_further_info ("invalid value for policy (%d)", policy);
+      policy = _tofu_GET_POLICY_ERROR;
+      goto out;
+    }
+
+
+  /* If CONFLICT is set, then policy should be TOFU_POLICY_ASK.  But,
+     just in case, we do the check again here and ignore the conflict
+     is POLICY is not TOFU_POLICY_ASK.  */
+  if (conflict)
+    {
+      if (policy == TOFU_POLICY_ASK && *strlist->next->d)
+       *conflict = xstrdup (strlist->next->d);
+      else
+       *conflict = NULL;
+    }
+
+ out:
+  log_assert (policy == _tofu_GET_POLICY_ERROR
+              || policy == TOFU_POLICY_NONE
+              || policy == TOFU_POLICY_AUTO
+              || policy == TOFU_POLICY_GOOD
+              || policy == TOFU_POLICY_UNKNOWN
+              || policy == TOFU_POLICY_BAD
+              || policy == TOFU_POLICY_ASK);
+
+  free_strlist (strlist);
+
+  return policy;
+}
+
+
+/* Format the first part of a conflict message and return that as a
+ * malloced string.  */
+static char *
+format_conflict_msg_part1 (int policy, const char *conflict,
+                           const char *fingerprint, const char *email)
+{
+  estream_t fp;
+  char *binding;
+  int binding_shown = 0;
+  char *tmpstr, *text;
+
+  binding = xasprintf ("<%s, %s>", fingerprint, email);
+
+  fp = es_fopenmem (0, "rw,samethread");
+  if (!fp)
+    log_fatal ("error creating memory stream: %s\n",
+               gpg_strerror (gpg_error_from_syserror()));
+
+  if (policy == TOFU_POLICY_NONE)
+    {
+      es_fprintf (fp, _("The binding %s is NOT known."), binding);
+      es_fputs ("  ", fp);
+      binding_shown = 1;
+    }
+  else if (policy == TOFU_POLICY_ASK
+           /* If there the conflict is with itself, then don't
+            * display this message.  */
+           && conflict && strcmp (conflict, fingerprint))
+    {
+      es_fprintf (fp,
+                  _("The key with fingerprint %s raised a conflict "
+                    "with the binding %s."
+                    "  Since this binding's policy was 'auto', it was "
+                    "changed to 'ask'."),
+                  conflict, binding);
+      es_fputs ("  ", fp);
+      binding_shown = 1;
+    }
+
+  /* TRANSLATORS: The %s%s is replaced by either a fingerprint and a
+     blank or by two empty strings.  */
+  es_fprintf (fp,
+              _("Please indicate whether you believe the binding %s%s"
+                "is legitimate (the key belongs to the stated owner) "
+                "or a forgery (bad)."),
+              binding_shown ? "" : binding,
+              binding_shown ? "" : " ");
+  es_fputc ('\n', fp);
+
+  xfree (binding);
+
+  es_fputc (0, fp);
+  if (es_fclose_snatch (fp, (void **)&tmpstr, NULL))
+    log_fatal ("error snatching memory stream\n");
+  text = format_text (tmpstr, 0, 72, 80);
+  es_free (tmpstr);
+
+  return text;
+}
+
+
+/* Ask the user about the binding.  There are three ways we could end
+ * up here:
+ *
+ *   - This is a new binding and there is a conflict
+ *     (policy == TOFU_POLICY_NONE && bindings_with_this_email_count > 0),
+ *
+ *   - This is a new binding and opt.tofu_default_policy is set to
+ *     ask.  (policy == TOFU_POLICY_NONE && opt.tofu_default_policy ==
+ *     TOFU_POLICY_ASK), or,
+ *
+ *   - The policy is ask (the user deferred last time) (policy ==
+ *     TOFU_POLICY_ASK).
+ */
+static void
+ask_about_binding (tofu_dbs_t dbs,
+                   struct db *db,
+                   enum tofu_policy *policy,
+                   int *trust_level,
+                   int bindings_with_this_email_count,
+                   strlist_t bindings_with_this_email,
+                   char *conflict,
+                   const char *fingerprint,
+                   const char *email,
+                   const char *user_id)
+{
+  char *sqerr = NULL;
+  int rc;
+  estream_t fp;
+  strlist_t other_user_ids = NULL;
+  struct signature_stats *stats = NULL;
+  struct signature_stats *stats_iter = NULL;
+  char *prompt;
+  char *choices;
+  struct db *db_key;
+
+  fp = es_fopenmem (0, "rw,samethread");
+  if (!fp)
+    log_fatal ("error creating memory stream: %s\n",
+               gpg_strerror (gpg_error_from_syserror()));
+
+  {
+    char *text = format_conflict_msg_part1 (*policy, conflict,
+                                            fingerprint, email);
+    es_fputs (text, fp);
+    es_fputc ('\n', fp);
+    xfree (text);
+  }
+
+  /* Find other user ids associated with this key and whether the
+   * bindings are marked as good or bad.  */
+  if (opt.tofu_db_format == TOFU_DB_SPLIT)
     {
-      policy = TOFU_POLICY_NONE;
-      goto out;
+      /* In the split format, we need to search in the fingerprint DB
+       * for all the emails associated with this key, not the email DB.  */
+      db_key = getdb (dbs, fingerprint, DB_KEY);
     }
-  else if (strlist_length (strlist) != 2)
-    /* The result has the wrong form.  */
+  else
+    db_key = db;
+
+  if (db_key)
     {
-      log_error (_("error reading from TOFU database"
-                  " (checking for existing bad bindings):"
-                  " expected 2 results, got %d\n"),
-                strlist_length (strlist));
-      goto out;
+      rc = gpgsql_stepx
+        (db_key->db, &db_key->s.get_trust_gather_other_user_ids,
+         strings_collect_cb2, &other_user_ids, &sqerr,
+         opt.tofu_db_format == TOFU_DB_SPLIT
+         ? "select user_id, email from bindings where fingerprint = ?;"
+         : "select user_id, policy from bindings where fingerprint = ?;",
+         SQLITE_ARG_STRING, fingerprint, SQLITE_ARG_END);
+      if (rc)
+        {
+          log_error (_("error gathering other user IDs: %s\n"), sqerr);
+          sqlite3_free (sqerr);
+          sqerr = NULL;
+        }
     }
 
-  /* The result has the right form.  */
+  if (other_user_ids)
+    {
+      strlist_t strlist_iter;
 
-  errno = 0;
-  policy = strtol (strlist->d, &tail, 0);
-  if (errno || *tail != '\0')
+      es_fprintf (fp, _("Known user IDs associated with this key:\n"));
+      for (strlist_iter = other_user_ids;
+           strlist_iter;
+           strlist_iter = strlist_iter->next)
+        {
+          char *other_user_id = strlist_iter->d;
+          char *other_thing;
+          enum tofu_policy other_policy;
+
+          log_assert (strlist_iter->next);
+          strlist_iter = strlist_iter->next;
+          other_thing = strlist_iter->d;
+
+          if (opt.tofu_db_format == TOFU_DB_SPLIT)
+            other_policy = get_policy (dbs, fingerprint, other_thing, NULL);
+          else
+            other_policy = atoi (other_thing);
+
+          es_fprintf (fp, "  %s (", other_user_id);
+          es_fprintf (fp, _("policy: %s"), tofu_policy_str (other_policy));
+          es_fprintf (fp, ")\n");
+        }
+      es_fprintf (fp, "\n");
+
+      free_strlist (other_user_ids);
+    }
+
+  /* Find other keys associated with this email address.  */
+  /* FIXME: When generating the statistics, do we want the time
+     embedded in the signature (column 'sig_time') or the time that
+     we first verified the signature (column 'time').  */
+  rc = gpgsql_stepx
+    (db->db, &db->s.get_trust_gather_other_keys,
+     signature_stats_collect_cb, &stats, &sqerr,
+     "select fingerprint, policy, time_ago, count(*)\n"
+     " from (select bindings.*,\n"
+     "        case\n"
+     /* From the future (but if its just a couple of hours in the
+      * future don't turn it into a warning)?  Or should we use
+      * small, medium or large units?  (Note: whatever we do, we
+      * keep the value in seconds.  Then when we group, everything
+      * that rounds to the same number of seconds is grouped.)  */
+     "         when delta < -("STRINGIFY (TIME_AGO_FUTURE_IGNORE)") then -1\n"
+     "         when delta < ("STRINGIFY (TIME_AGO_MEDIUM_THRESHOLD)")\n"
+     "          then max(0,\n"
+     "                   round(delta / ("STRINGIFY (TIME_AGO_UNIT_SMALL)"))\n"
+     "               * ("STRINGIFY (TIME_AGO_UNIT_SMALL)"))\n"
+     "         when delta < ("STRINGIFY (TIME_AGO_LARGE_THRESHOLD)")\n"
+     "          then round(delta / ("STRINGIFY (TIME_AGO_UNIT_MEDIUM)"))\n"
+     "               * ("STRINGIFY (TIME_AGO_UNIT_MEDIUM)")\n"
+     "         else round(delta / ("STRINGIFY (TIME_AGO_UNIT_LARGE)"))\n"
+     "              * ("STRINGIFY (TIME_AGO_UNIT_LARGE)")\n"
+     "        end time_ago,\n"
+     "        delta time_ago_raw\n"
+     "       from bindings\n"
+     "       left join\n"
+     "         (select *,\n"
+     "            cast(strftime('%s','now') - sig_time as real) delta\n"
+     "           from signatures) ss\n"
+     "        on ss.binding = bindings.oid)\n"
+     " where email = ?\n"
+     " group by fingerprint, time_ago\n"
+     /* Make sure the current key is first.  */
+     " order by fingerprint = ? asc, fingerprint desc, time_ago desc;\n",
+     SQLITE_ARG_STRING, email, SQLITE_ARG_STRING, fingerprint,
+     SQLITE_ARG_END);
+  if (rc)
     {
-      log_error (_("error reading from TOFU database: bad value for policy: %s\n"),
-                strlist->d);
-      goto out;
-    }
+      strlist_t strlist_iter;
 
-  if (! (policy == TOFU_POLICY_AUTO
-        || policy == TOFU_POLICY_GOOD
-        || policy == TOFU_POLICY_UNKNOWN
-        || policy == TOFU_POLICY_BAD
-        || policy == TOFU_POLICY_ASK))
+      log_error (_("error gathering signature stats: %s\n"), sqerr);
+      sqlite3_free (sqerr);
+      sqerr = NULL;
+
+      es_fprintf (fp, ngettext("The email address \"%s\" is"
+                               " associated with %d key:\n",
+                               "The email address \"%s\" is"
+                               " associated with %d keys:\n",
+                               bindings_with_this_email_count),
+                  email, bindings_with_this_email_count);
+      for (strlist_iter = bindings_with_this_email;
+           strlist_iter;
+           strlist_iter = strlist_iter->next)
+        es_fprintf (fp, "  %s\n", strlist_iter->d);
+    }
+  else
     {
-      log_error (_("TOFU DB is corrupted.  Invalid value for policy (%d).\n"),
-                policy);
-      policy = _tofu_GET_POLICY_ERROR;
-      goto out;
+      char *key = NULL;
+
+      if (! stats || strcmp (stats->fingerprint, fingerprint))
+        {
+          /* If we have already added this key to the DB, then it will
+           * be first (see the above select).  Since the first key on
+           * the list is not this key, we must not yet have verified any
+           * messages signed by this key.  Add a dummy entry.  */
+          signature_stats_prepend (&stats, fingerprint, TOFU_POLICY_AUTO, 0, 0);
+        }
+
+      es_fprintf (fp, _("Statistics for keys with the email address \"%s\":\n"),
+                  email);
+      for (stats_iter = stats; stats_iter; stats_iter = stats_iter->next)
+        {
+          if (! key || strcmp (key, stats_iter->fingerprint))
+            {
+              int this_key;
+              char *key_pp;
+
+              key = stats_iter->fingerprint;
+              this_key = strcmp (key, fingerprint) == 0;
+              key_pp = format_hexfingerprint (key, NULL, 0);
+              es_fprintf (fp, "  %s (", key_pp);
+              if (this_key)
+                es_fprintf (fp, _("this key"));
+              else
+                es_fprintf (fp, _("policy: %s"),
+                            tofu_policy_str (stats_iter->policy));
+              es_fputs ("):\n", fp);
+              xfree (key_pp);
+            }
+
+          es_fputs ("    ", fp);
+          if (stats_iter->time_ago == -1)
+            es_fprintf (fp, ngettext("%ld message signed in the future.",
+                                     "%ld messages signed in the future.",
+                                     stats_iter->count), stats_iter->count);
+          else
+            {
+              long t_scaled = time_ago_scale (stats_iter->time_ago);
+
+              /* TANSLATORS: This string is concatenated with one of
+               * the day/week/month strings to form one sentence.  */
+              es_fprintf (fp, ngettext("%ld message signed",
+                                       "%ld messages signed",
+                                       stats_iter->count), stats_iter->count);
+              if (!stats_iter->count)
+                es_fputs (".", fp);
+              else if (stats_iter->time_ago < TIME_AGO_UNIT_MEDIUM)
+                es_fprintf (fp, ngettext(" over the past %ld day.",
+                                         " over the past %ld days.",
+                                         t_scaled), t_scaled);
+              else if (stats_iter->time_ago < TIME_AGO_UNIT_LARGE)
+                es_fprintf (fp, ngettext(" over the past %ld week.",
+                                         " over the past %ld weeks.",
+                                         t_scaled), t_scaled);
+              else
+                es_fprintf (fp, ngettext(" over the past %ld month.",
+                                         " over the past %ld months.",
+                                         t_scaled), t_scaled);
+            }
+          es_fputs ("\n", fp);
+        }
     }
 
 
-  /* If CONFLICT is set, then policy should be TOFU_POLICY_ASK.  But,
-     just in case, we do the check again here and ignore the conflict
-     is POLICY is not TOFU_POLICY_ASK.  */
-  if (conflict)
+  if ((*policy == TOFU_POLICY_NONE && bindings_with_this_email_count > 0)
+      || (*policy == TOFU_POLICY_ASK && conflict))
     {
-      if (policy == TOFU_POLICY_ASK && *strlist->next->d)
-       *conflict = xstrdup (strlist->next->d);
-      else
-       *conflict = NULL;
-    }
+      /* This is a conflict.  */
 
- out:
-  assert (policy == _tofu_GET_POLICY_ERROR
-         || policy == TOFU_POLICY_NONE
-         || policy == TOFU_POLICY_AUTO
-         || policy == TOFU_POLICY_GOOD
-         || policy == TOFU_POLICY_UNKNOWN
-         || policy == TOFU_POLICY_BAD
-         || policy == TOFU_POLICY_ASK);
+      /* TRANSLATORS: Please translate the text found in the source
+       * file below.  We don't directly internationalize that text so
+       * that we can tweak it without breaking translations.  */
+      char *text = _("TOFU detected a binding conflict");
+      char *textbuf;
+      if (!strcmp (text, "TOFU detected a binding conflict"))
+        {
+          /* No translation.  Use the English text.  */
+          text =
+            "Normally, there is only a single key associated with an email "
+            "address.  However, people sometimes generate a new key if "
+            "their key is too old or they think it might be compromised.  "
+            "Alternatively, a new key may indicate a man-in-the-middle "
+            "attack!  Before accepting this key, you should talk to or "
+            "call the person to make sure this new key is legitimate.";
+        }
+      textbuf = format_text (text, 0, 72, 80);
+      es_fprintf (fp, "\n%s\n", text);
+      xfree (textbuf);
+    }
+
+  es_fputc ('\n', fp);
+
+  /* Add a NUL terminator.  */
+  es_fputc (0, fp);
+  if (es_fclose_snatch (fp, (void **) &prompt, NULL))
+    log_fatal ("error snatching memory stream\n");
+
+  /* I think showing the large message once is sufficient.  If we
+   * would move it right before the cpr_get many lines will scroll
+   * away and the user might not realize that he merely entered a
+   * wrong choise (because he does not see that either).  As a small
+   * benefit we allow C-L to redisplay everything.  */
+  tty_printf ("%s", prompt);
+  while (1)
+    {
+      char *response;
+
+      /* TRANSLATORS: Two letters (normally the lower and upper case
+       * version of the hotkey) for each of the five choices.  If
+       * there is only one choice in your language, repeat it.  */
+      choices = _("gG" "aA" "uU" "rR" "bB");
+      if (strlen (choices) != 10)
+        log_bug ("Bad TOFU conflict translation!  Please report.");
+
+      response = cpr_get
+        ("tofu.conflict",
+         _("(G)ood, (A)ccept once, (U)nknown, (R)eject once, (B)ad? "));
+      trim_spaces (response);
+      cpr_kill_prompt ();
+      if (*response == CONTROL_L)
+        tty_printf ("%s", prompt);
+      else if (strlen (response) == 1)
+        {
+          char *choice = strchr (choices, *response);
+          if (choice)
+            {
+              int c = ((size_t) choice - (size_t) choices) / 2;
+
+              switch (c)
+                {
+                case 0: /* Good.  */
+                  *policy = TOFU_POLICY_GOOD;
+                  *trust_level = tofu_policy_to_trust_level (*policy);
+                  break;
+                case 1: /* Accept once.  */
+                  *policy = TOFU_POLICY_ASK;
+                  *trust_level = tofu_policy_to_trust_level (TOFU_POLICY_GOOD);
+                  break;
+                case 2: /* Unknown.  */
+                  *policy = TOFU_POLICY_UNKNOWN;
+                  *trust_level = tofu_policy_to_trust_level (*policy);
+                  break;
+                case 3: /* Reject once.  */
+                  *policy = TOFU_POLICY_ASK;
+                  *trust_level = tofu_policy_to_trust_level (TOFU_POLICY_BAD);
+                  break;
+                case 4: /* Bad.  */
+                  *policy = TOFU_POLICY_BAD;
+                  *trust_level = tofu_policy_to_trust_level (*policy);
+                  break;
+                default:
+                  log_bug ("c should be between 0 and 4 but it is %d!", c);
+                }
+
+              if (record_binding (dbs, fingerprint, email, user_id,
+                                  *policy, 0))
+                {
+                  /* If there's an error registering the
+                   * binding, don't save the signature.  */
+                  *trust_level = _tofu_GET_TRUST_ERROR;
+                }
+              break;
+            }
+        }
+      xfree (response);
+    }
 
-  free_strlist (strlist);
+  xfree (prompt);
 
-  return policy;
+  signature_stats_free (stats);
 }
 
-/* Return the trust level (TRUST_NEVER, etc.) for the binding
-   <FINGERPRINT, EMAIL> (email is already normalized).  If no policy
-   is registered, returns TOFU_POLICY_NONE.  If an error occurs,
-   returns _tofu_GET_TRUST_ERROR.
-
-   USER_ID is the unadultered user id.
 
-   If MAY_ASK is set, then we may interact with the user.  This is
-   necessary if there is a conflict or the binding's policy is
-   TOFU_POLICY_ASK.  In the case of a conflict, we set the new
-   conflicting binding's policy to TOFU_POLICY_ASK.  In either case,
-   we return TRUST_UNDEFINED.  */
+/* Return the trust level (TRUST_NEVER, etc.) for the binding
+ * <FINGERPRINT, EMAIL> (email is already normalized).  If no policy
+ * is registered, returns TOFU_POLICY_NONE.  If an error occurs,
+ * returns _tofu_GET_TRUST_ERROR.
+ *
+ * PK is the public key object for FINGERPRINT.
+ *
+ * USER_ID is the unadulterated user id.
+ *
+ * If MAY_ASK is set, then we may interact with the user.  This is
+ * necessary if there is a conflict or the binding's policy is
+ * TOFU_POLICY_ASK.  In the case of a conflict, we set the new
+ * conflicting binding's policy to TOFU_POLICY_ASK.  In either case,
+ * we return TRUST_UNDEFINED.  */
 static enum tofu_policy
-get_trust (struct db *dbs, const char *fingerprint, const char *email,
+get_trust (tofu_dbs_t dbs, PKT_public_key *pk,
+           const char *fingerprint, const char *email,
           const char *user_id, int may_ask)
 {
-  sqlite3 *db;
+  struct db *db;
   enum tofu_policy policy;
   char *conflict = NULL;
   int rc;
-  char *err = NULL;
+  char *sqerr = NULL;
   strlist_t bindings_with_this_email = NULL;
   int bindings_with_this_email_count;
   int change_conflicting_to_ask = 0;
@@ -1280,19 +2043,44 @@ get_trust (struct db *dbs, const char *fingerprint, const char *email,
 
   /* Make sure _tofu_GET_TRUST_ERROR isn't equal to any of the trust
      levels.  */
-  assert (_tofu_GET_TRUST_ERROR != TRUST_UNKNOWN
-         && _tofu_GET_TRUST_ERROR != TRUST_EXPIRED
-         && _tofu_GET_TRUST_ERROR != TRUST_UNDEFINED
-         && _tofu_GET_TRUST_ERROR != TRUST_NEVER
-         && _tofu_GET_TRUST_ERROR != TRUST_MARGINAL
-         && _tofu_GET_TRUST_ERROR != TRUST_FULLY
-         && _tofu_GET_TRUST_ERROR != TRUST_ULTIMATE);
+  log_assert (_tofu_GET_TRUST_ERROR != TRUST_UNKNOWN
+              && _tofu_GET_TRUST_ERROR != TRUST_EXPIRED
+              && _tofu_GET_TRUST_ERROR != TRUST_UNDEFINED
+              && _tofu_GET_TRUST_ERROR != TRUST_NEVER
+              && _tofu_GET_TRUST_ERROR != TRUST_MARGINAL
+              && _tofu_GET_TRUST_ERROR != TRUST_FULLY
+              && _tofu_GET_TRUST_ERROR != TRUST_ULTIMATE);
 
   db = getdb (dbs, email, DB_EMAIL);
   if (! db)
     return _tofu_GET_TRUST_ERROR;
 
   policy = get_policy (dbs, fingerprint, email, &conflict);
+  if (policy == TOFU_POLICY_AUTO || policy == TOFU_POLICY_NONE)
+    { /* See if the key is ultimately trusted.  If so, we're done.  */
+      u32 kid[2];
+
+      keyid_from_pk (pk, kid);
+
+      if (tdb_keyid_is_utk (kid))
+        {
+          if (policy == TOFU_POLICY_NONE)
+            {
+              if (record_binding (dbs, fingerprint, email, user_id,
+                                  TOFU_POLICY_AUTO, 0) != 0)
+                {
+                  log_error (_("error setting TOFU binding's trust level"
+                               " to %s\n"), "auto");
+                  trust_level = _tofu_GET_TRUST_ERROR;
+                  goto out;
+                }
+            }
+
+          trust_level = TRUST_ULTIMATE;
+          goto out;
+        }
+    }
+
   if (policy == TOFU_POLICY_AUTO)
     {
       policy = opt.tofu_default_policy;
@@ -1308,7 +2096,7 @@ get_trust (struct db *dbs, const char *fingerprint, const char *email,
     case TOFU_POLICY_UNKNOWN:
     case TOFU_POLICY_BAD:
       /* The saved judgement is auto -> auto, good, unknown or bad.
-        We don't need to ask the user anything.  */
+       * We don't need to ask the user anything.  */
       if (DBG_TRUST)
        log_debug ("TOFU: Known binding <%s, %s>'s policy: %s\n",
                   fingerprint, email, tofu_policy_str (policy));
@@ -1327,7 +2115,7 @@ get_trust (struct db *dbs, const char *fingerprint, const char *email,
 
     case TOFU_POLICY_NONE:
       /* The binding is new, we need to check for conflicts.  Case #3
-        below.  */
+       * below.  */
       break;
 
     case _tofu_GET_POLICY_ERROR:
@@ -1340,52 +2128,54 @@ get_trust (struct db *dbs, const char *fingerprint, const char *email,
 
 
   /* We get here if:
-
-       1. The saved policy is auto and the default policy is ask
-          (get_policy() == TOFU_POLICY_AUTO
-           && opt.tofu_default_policy == TOFU_POLICY_ASK)
-
-       2. The saved policy is ask (either last time the user selected
-          accept once or reject once or there was a conflict and this
-          binding's policy was changed from auto to ask)
-         (policy == TOFU_POLICY_ASK), or,
-
-       3. We don't have a saved policy (policy == TOFU_POLICY_NONE)
-          (need to check for a conflict).
+   *
+   *   1. The saved policy is auto and the default policy is ask
+   *      (get_policy() == TOFU_POLICY_AUTO
+   *       && opt.tofu_default_policy == TOFU_POLICY_ASK)
+   *
+   *   2. The saved policy is ask (either last time the user selected
+   *      accept once or reject once or there was a conflict and this
+   *      binding's policy was changed from auto to ask)
+   *      (policy == TOFU_POLICY_ASK), or,
+   *
+   *   3. We don't have a saved policy (policy == TOFU_POLICY_NONE)
+   *      (need to check for a conflict).
    */
 
-  /* Look for conflicts.  This is need in all 3 cases.
-
-     Get the fingerprints of any bindings that share the email
-     address.  Note: if the binding in question is in the DB, it will
-     also be returned.  Thus, if the result set is empty, then this is
-     a new binding.  */
-  rc = sqlite3_exec_printf
-    (db, strings_collect_cb, &bindings_with_this_email, &err,
-     "select distinct fingerprint from bindings where email = %Q;",
-     email);
+  /* Look for conflicts.  This is needed in all 3 cases.
+   *
+   * Get the fingerprints of any bindings that share the email
+   * address.  Note: if the binding in question is in the DB, it will
+   * also be returned.  Thus, if the result set is empty, then this is
+   * a new binding.  */
+  rc = gpgsql_stepx
+    (db->db, &db->s.get_trust_bindings_with_this_email,
+     strings_collect_cb2, &bindings_with_this_email, &sqerr,
+     "select distinct fingerprint from bindings where email = ?;",
+     SQLITE_ARG_STRING, email, SQLITE_ARG_END);
   if (rc)
     {
-      log_error (_("error reading from TOFU database"
-                  " (listing fingerprints): %s\n"),
-                err);
-      sqlite3_free (err);
+      log_error (_("error reading TOFU database: %s\n"), sqerr);
+      print_further_info ("listing fingerprints");
+      sqlite3_free (sqerr);
       goto out;
     }
 
   bindings_with_this_email_count = strlist_length (bindings_with_this_email);
   if (bindings_with_this_email_count == 0
       && opt.tofu_default_policy != TOFU_POLICY_ASK)
-    /* New binding with no conflict and a concrete default policy.
-
-       We've never observed a binding with this email address
-       (BINDINGS_WITH_THIS_EMAIL_COUNT is 0 and the above query would return
-       the current binding if it were in the DB) and we have a default
-       policy, which is not to ask the user.  */
     {
+      /* New binding with no conflict and a concrete default policy.
+       *
+       * We've never observed a binding with this email address
+       * BINDINGS_WITH_THIS_EMAIL_COUNT is 0 and the above query would
+       * return the current binding if it were in the DB) and we have
+       * a default policy, which is not to ask the user.
+       */
+
       /* If we've seen this binding, then we've seen this email and
         policy couldn't possibly be TOFU_POLICY_NONE.  */
-      assert (policy == TOFU_POLICY_NONE);
+      log_assert (policy == TOFU_POLICY_NONE);
 
       if (DBG_TRUST)
        log_debug ("TOFU: New binding <%s, %s>, no conflict.\n",
@@ -1405,19 +2195,21 @@ get_trust (struct db *dbs, const char *fingerprint, const char *email,
     }
 
   if (policy == TOFU_POLICY_NONE)
-    /* This is a new binding and we have a conflict.  Mark any
-       conflicting bindings that have an automatic policy as now
-       requiring confirmation.  Note: we delay this until after we ask
-       for confirmation so that when the current policy is printed, it
-       is correct.  */
-    change_conflicting_to_ask = 1;
+    {
+      /* This is a new binding and we have a conflict.  Mark any
+       * conflicting bindings that have an automatic policy as now
+       * requiring confirmation.  Note: we delay this until after we
+       * ask for confirmation so that when the current policy is
+       * printed, it is correct.  */
+      change_conflicting_to_ask = 1;
+    }
 
   if (! may_ask)
-    /* We can only get here in the third case (no saved policy) and if
-       there is a conflict.  (If the policy was ask (cases #1 and #2)
-       and we weren't allowed to ask, we'd have already exited).  */
     {
-      assert (policy == TOFU_POLICY_NONE);
+      /* We can only get here in the third case (no saved policy) and
+       * if there is a conflict.  (If the policy was ask (cases #1 and
+       * #2) and we weren't allowed to ask, we'd have already exited).  */
+      log_assert (policy == TOFU_POLICY_NONE);
 
       if (record_binding (dbs, fingerprint, email, user_id,
                          TOFU_POLICY_ASK, 0) != 0)
@@ -1428,354 +2220,233 @@ get_trust (struct db *dbs, const char *fingerprint, const char *email,
       goto out;
     }
 
-  /* If we get here, we need to ask the user about the binding.  There
-     are three ways we could end up here:
-
-       - This is a new binding and there is a conflict
-         (policy == TOFU_POLICY_NONE && bindings_with_this_email_count > 0),
-
-       - This is a new binding and opt.tofu_default_policy is set to
-         ask.  (policy == TOFU_POLICY_NONE && opt.tofu_default_policy ==
-         TOFU_POLICY_ASK), or,
-
-       - The policy is ask (the user deferred last time) (policy ==
-         TOFU_POLICY_ASK).
-   */
-  {
-    int is_conflict =
-      ((policy == TOFU_POLICY_NONE && bindings_with_this_email_count > 0)
-       || (policy == TOFU_POLICY_ASK && conflict));
-    estream_t fp;
-    char *binding;
-    int binding_shown;
-    strlist_t other_user_ids = NULL;
-    struct signature_stats *stats = NULL;
-    struct signature_stats *stats_iter = NULL;
-    char *prompt;
-    char *choices;
-
-    fp = es_fopenmem (0, "rw,samethread");
-    if (! fp)
-      log_fatal ("Error creating memory stream\n");
-
-    binding = xasprintf ("<%s, %s>", fingerprint, email);
-    binding_shown = 0;
-
-    if (policy == TOFU_POLICY_NONE)
-      {
-       es_fprintf (fp, _("The binding %s is NOT known.  "), binding);
-       binding_shown = 1;
-      }
-    else if (policy == TOFU_POLICY_ASK
-            /* If there the conflict is with itself, then don't
-               display this message.  */
-            && conflict && strcmp (conflict, fingerprint) != 0)
-      {
-       es_fprintf (fp,
-                   _("The key %s raised a conflict with this binding (%s)."
-                      "  Since this binding's policy was 'auto', it was"
-                      "changed to 'ask'.  "),
-                   conflict, binding);
-       binding_shown = 1;
-      }
-    es_fprintf (fp,
-               _("Please indicate whether you believe the binding %s%s"
-                 "is legitimate (the key belongs to the stated owner) "
-                 "or a forgery (bad).\n\n"),
-               binding_shown ? "" : binding,
-               binding_shown ? "" : " ");
-
-    xfree (binding);
+  /* If we get here, we need to ask the user about the binding.  */
+  ask_about_binding (dbs, db,
+                     &policy,
+                     &trust_level,
+                     bindings_with_this_email_count,
+                     bindings_with_this_email,
+                     conflict,
+                     fingerprint,
+                     email,
+                     user_id);
 
-    /* Find other user ids associated with this key and whether the
-       bindings are marked as good or bad.  */
+ out:
+  if (change_conflicting_to_ask)
     {
-      sqlite3 *db_key;
-
-      if (opt.tofu_db_format == TOFU_DB_SPLIT)
-       /* In the split format, we need to search in the fingerprint
-          DB for all the emails associated with this key, not the
-          email DB.  */
-       db_key = getdb (dbs, fingerprint, DB_KEY);
+      if (! may_ask)
+        {
+          /* If we weren't allowed to ask, also update this key as
+             conflicting with itself.  */
+          rc = gpgsql_exec_printf
+            (db->db, NULL, NULL, &sqerr,
+             "update bindings set policy = %d, conflict = %Q"
+             " where email = %Q"
+             "  and (policy = %d or (policy = %d and fingerprint = %Q));",
+             TOFU_POLICY_ASK, fingerprint, email, TOFU_POLICY_AUTO,
+             TOFU_POLICY_ASK, fingerprint);
+        }
       else
-       db_key = db;
+        {
+          rc = gpgsql_exec_printf
+            (db->db, NULL, NULL, &sqerr,
+             "update bindings set policy = %d, conflict = %Q"
+             " where email = %Q and fingerprint != %Q and policy = %d;",
+             TOFU_POLICY_ASK, fingerprint, email, fingerprint,
+             TOFU_POLICY_AUTO);
+        }
 
-      if (db_key)
+      if (rc)
        {
-         rc = sqlite3_exec_printf
-           (db_key, strings_collect_cb, &other_user_ids, &err,
-            "select user_id, %s from bindings where fingerprint = %Q;",
-            opt.tofu_db_format == TOFU_DB_SPLIT ? "email" : "policy",
-            fingerprint);
-         if (rc)
-           {
-             log_error (_("error gathering other user ids: %s.\n"), err);
-             sqlite3_free (err);
-             err = NULL;
-           }
+         log_error (_("error changing TOFU policy: %s\n"), sqerr);
+         sqlite3_free (sqerr);
+          sqerr = NULL;
        }
     }
 
-    if (other_user_ids)
-      {
-       strlist_t strlist_iter;
-
-       es_fprintf (fp, _("Known user ids associated with this key:\n"));
-       for (strlist_iter = other_user_ids;
-            strlist_iter;
-            strlist_iter = strlist_iter->next)
-         {
-           char *other_user_id = strlist_iter->d;
-           char *other_thing;
-           enum tofu_policy other_policy;
-
-           assert (strlist_iter->next);
-           strlist_iter = strlist_iter->next;
-           other_thing = strlist_iter->d;
-
-           if (opt.tofu_db_format == TOFU_DB_SPLIT)
-             other_policy = get_policy (dbs, fingerprint, other_thing, NULL);
-           else
-             other_policy = atoi (other_thing);
-
-           es_fprintf (fp, _("  %s (policy: %s)\n"),
-                       other_user_id,
-                       tofu_policy_str (other_policy));
-         }
-       es_fprintf (fp, "\n");
-
-       free_strlist (other_user_ids);
-      }
+  xfree (conflict);
+  free_strlist (bindings_with_this_email);
 
-    /* Find other keys associated with this email address.  */
-    /* XXX: When generating the statistics, do we want the time
-       embedded in the signature (column 'sig_time') or the time that
-       we first verified the signature (column 'time').  */
-    rc = sqlite3_exec_printf
-      (db, signature_stats_collect_cb, &stats, &err,
-       "select fingerprint, policy, time_ago, count(*)\n"
-       " from (select bindings.*,\n"
-       "        case\n"
-       /* From the future (but if its just a couple of hours in the
-         future don't turn it into a warning)?  Or should we use
-         small, medium or large units?  (Note: whatever we do, we
-         keep the value in seconds.  Then when we group, everything
-         that rounds to the same number of seconds is grouped.)  */
-       "         when delta < -%d then -1\n"
-       "         when delta < %d then max(0, round(delta / %d) * %d)\n"
-       "         when delta < %d then round(delta / %d) * %d\n"
-       "         else round(delta / %d) * %d\n"
-       "        end time_ago,\n"
-       "        delta time_ago_raw\n"
-       "       from bindings\n"
-       "       left join\n"
-       "         (select *,\n"
-       "            cast(strftime('%%s','now') - sig_time as real) delta\n"
-       "           from signatures) ss\n"
-       "        on ss.binding = bindings.oid)\n"
-       " where email = %Q\n"
-       " group by fingerprint, time_ago\n"
-       /* Make sure the current key is first.  */
-       " order by fingerprint = %Q asc, fingerprint desc, time_ago desc;\n",
-       TIME_AGO_FUTURE_IGNORE,
-       TIME_AGO_MEDIUM_THRESHOLD, TIME_AGO_UNIT_SMALL, TIME_AGO_UNIT_SMALL,
-       TIME_AGO_LARGE_THRESHOLD, TIME_AGO_UNIT_MEDIUM, TIME_AGO_UNIT_MEDIUM,
-       TIME_AGO_UNIT_LARGE, TIME_AGO_UNIT_LARGE,
-       email, fingerprint);
-    if (rc)
-      {
-       strlist_t strlist_iter;
-
-       log_error (_("error gathering signature stats: %s.\n"),
-                  err);
-       sqlite3_free (err);
-       err = NULL;
-
-       es_fprintf
-         (fp, _("The email address (%s) is associated with %d keys:\n"),
-          email, bindings_with_this_email_count);
-       for (strlist_iter = bindings_with_this_email;
-            strlist_iter;
-            strlist_iter = strlist_iter->next)
-         es_fprintf (fp, _("  %s\n"), strlist_iter->d);
-      }
-    else
-      {
-       char *key = NULL;
-
-       if (! stats || strcmp (stats->fingerprint, fingerprint) != 0)
-         /* If we have already added this key to the DB, then it will
-            be first (see the above select).  Since the first key on
-            the list is not this key, we must not yet have verified
-            any messages signed by this key.  Add a dummy entry.  */
-         signature_stats_prepend (&stats, fingerprint, TOFU_POLICY_AUTO, 0, 0);
-
-       es_fprintf (fp, _("Statistics for keys with the email '%s':\n"),
-                   email);
-       for (stats_iter = stats; stats_iter; stats_iter = stats_iter->next)
-         {
-           if (! key || strcmp (key, stats_iter->fingerprint) != 0)
-             {
-               int this_key;
-               key = stats_iter->fingerprint;
-               this_key = strcmp (key, fingerprint) == 0;
-               if (this_key)
-                 es_fprintf (fp, _("  %s (this key):"), key);
-               else
-                 es_fprintf (fp, _("  %s (policy: %s):"),
-                             key, tofu_policy_str (stats_iter->policy));
-               es_fprintf (fp, "\n");
-             }
-
-           if (stats_iter->time_ago == -1)
-             es_fprintf (fp, _("    %ld %s signed in the future.\n"),
-                         stats_iter->count,
-                         stats_iter->count == 1
-                         ? _("message") : _("messages"));
-           else if (stats_iter->count == 0)
-             es_fprintf (fp, _("    0 signed messages.\n"));
-           else
-             es_fprintf (fp, _("    %ld %s signed over the past %ld %s.\n"),
-                         stats_iter->count,
-                         stats_iter->count == 1
-                         ? _("message") : _("messages"),
-                         time_ago_scale (stats_iter->time_ago),
-                         time_ago_unit (stats_iter->time_ago));
-         }
-      }
+  return trust_level;
+}
 
-    if (is_conflict)
-      {
-       /* TRANSLATORS: translate the below text.  We don't directly
-          internationalize that text so that we can tweak it without
-          breaking translations.  */
-       char *text = _("TOFU detected a binding conflict");
-       if (strcmp (text, "TOFU detected a binding conflict") == 0)
-         /* No translation.  Use the English text.  */
-         text =
-           "Normally, there is only a single key associated with an email "
-           "address.  However, people sometimes generate a new key if "
-           "their key is too old or they think it might be compromised.  "
-           "Alternatively, a new key may indicate a man-in-the-middle"
-           "attack!  Before accepting this key, you should talk to or "
-           "call the person to make sure this new key is legitimate.";
-       es_fprintf (fp, "\n%s\n", text);
-      }
 
-    es_fputc ('\n', fp);
-    /* TRANSLATORS: Two letters (normally the lower and upper case
-       version of the hotkey) for each of the five choices.  If there
-       is only one choice in your language, repeat it.  */
-    choices = _("gG" "aA" "uU" "rR" "bB");
-    es_fprintf (fp, _("(G)ood/(A)ccept once/(U)nknown/(R)eject once/(B)ad? "));
-
-    /* Add a NUL terminator.  */
-    es_fputc (0, fp);
-    if (es_fclose_snatch (fp, (void **) &prompt, NULL))
-      log_fatal ("error snatching memory stream\n");
-
-    while (1)
-      {
-       char *response;
-
-       if (strlen (choices) != 10)
-         log_bug ("Bad TOFU conflict translation!  Please report.");
-
-       response = cpr_get ("tofu conflict", prompt);
-       trim_spaces (response);
-       cpr_kill_prompt ();
-       if (strlen (response) == 1)
-         {
-           char *choice = strchr (choices, *response);
-           if (choice)
-             {
-               int c = ((size_t) choice - (size_t) choices) / 2;
-               assert (0 <= c && c <= 4);
-
-               switch (c)
-                 {
-                 case 0: /* Good.  */
-                   policy = TOFU_POLICY_GOOD;
-                   trust_level = tofu_policy_to_trust_level (policy);
-                   break;
-                 case 1: /* Accept once.  */
-                   policy = TOFU_POLICY_ASK;
-                   trust_level =
-                     tofu_policy_to_trust_level (TOFU_POLICY_GOOD);
-                   break;
-                 case 2: /* Unknown.  */
-                   policy = TOFU_POLICY_UNKNOWN;
-                   trust_level = tofu_policy_to_trust_level (policy);
-                   break;
-                 case 3: /* Reject once.  */
-                   policy = TOFU_POLICY_ASK;
-                   trust_level =
-                     tofu_policy_to_trust_level (TOFU_POLICY_BAD);
-                   break;
-                 case 4: /* Bad.  */
-                   policy = TOFU_POLICY_BAD;
-                   trust_level = tofu_policy_to_trust_level (policy);
-                   break;
-                 default:
-                   log_bug ("c should be between 0 and 4 but it is %d!", c);
-                 }
-
-               if (record_binding (dbs, fingerprint, email, user_id,
-                                   policy, 0) != 0)
-                 /* If there's an error registering the
-                    binding, don't save the signature.  */
-                 trust_level = _tofu_GET_TRUST_ERROR;
-
-               break;
-             }
-         }
-       xfree (response);
-      }
+/* Return a malloced string of the form
+ *    "7 months, 1 day, 5 minutes, 0 seconds"
+ * The caller should replace all '~' in the returned string by a space
+ * and also free the returned string.
+ *
+ * This is actually a bad hack which may not work correctly with all
+ * languages.
+ */
+static char *
+time_ago_str (long long int t)
+{
+  estream_t fp;
+  int years = 0;
+  int months = 0;
+  int days = 0;
+  int hours = 0;
+  int minutes = 0;
+  int seconds = 0;
+
+  /* The number of units that we've printed so far.  */
+  int count = 0;
+  /* The first unit that we printed (year = 0, month = 1,
+     etc.).  */
+  int first = -1;
+  /* The current unit.  */
+  int i = 0;
 
-    xfree (prompt);
+  char *str;
 
-    signature_stats_free (stats);
-  }
+  /* It would be nice to use a macro to do this, but gettext
+     works on the unpreprocessed code.  */
+#define MIN_SECS (60)
+#define HOUR_SECS (60 * MIN_SECS)
+#define DAY_SECS (24 * HOUR_SECS)
+#define MONTH_SECS (30 * DAY_SECS)
+#define YEAR_SECS (365 * DAY_SECS)
 
- out:
-  if (change_conflicting_to_ask)
+  if (t > YEAR_SECS)
     {
-      if (! may_ask)
-       /* If we weren't allowed to ask, also update this key as
-          conflicting with itself.  */
-       rc = sqlite3_exec_printf
-         (db, NULL, NULL, &err,
-          "update bindings set policy = %d, conflict = %Q"
-          " where email = %Q"
-          "  and (policy = %d or (policy = %d and fingerprint = %Q));",
-          TOFU_POLICY_ASK, fingerprint, email, TOFU_POLICY_AUTO,
-          TOFU_POLICY_ASK, fingerprint);
-      else
-       rc = sqlite3_exec_printf
-         (db, NULL, NULL, &err,
-          "update bindings set policy = %d, conflict = %Q"
-          " where email = %Q and fingerprint != %Q and policy = %d;",
-          TOFU_POLICY_ASK, fingerprint, email, fingerprint, TOFU_POLICY_AUTO);
-      if (rc)
-       {
-         log_error (_("error changing TOFU policy: %s\n"), err);
-         sqlite3_free (err);
-         goto out;
-       }
+      years = t / YEAR_SECS;
+      t -= years * YEAR_SECS;
     }
+  if (t > MONTH_SECS)
+    {
+      months = t / MONTH_SECS;
+      t -= months * MONTH_SECS;
+    }
+  if (t > DAY_SECS)
+    {
+      days = t / DAY_SECS;
+      t -= days * DAY_SECS;
+    }
+  if (t > HOUR_SECS)
+    {
+      hours = t / HOUR_SECS;
+      t -= hours * HOUR_SECS;
+    }
+  if (t > MIN_SECS)
+    {
+      minutes = t / MIN_SECS;
+      t -= minutes * MIN_SECS;
+    }
+  seconds = t;
 
-  xfree (conflict);
-  free_strlist (bindings_with_this_email);
+#undef MIN_SECS
+#undef HOUR_SECS
+#undef DAY_SECS
+#undef MONTH_SECS
+#undef YEAR_SECS
 
-  return trust_level;
+  fp = es_fopenmem (0, "rw,samethread");
+  if (! fp)
+    log_fatal ("error creating memory stream: %s\n",
+               gpg_strerror (gpg_error_from_syserror()));
+
+  if (years)
+    {
+      /* TRANSLATORS: The tilde ('~') is used here to indicate a
+       * non-breakable space  */
+      es_fprintf (fp, ngettext("%d~year", "%d~years", years), years);
+      count ++;
+      first = i;
+    }
+  i ++;
+  if ((first == -1 || i - first <= 3) && months)
+    {
+      if (count)
+        es_fprintf (fp, ", ");
+      es_fprintf (fp, ngettext("%d~month", "%d~months", months), months);
+      count ++;
+      first = i;
+    }
+  i ++;
+  if ((first == -1 || i - first <= 3) && count < 2 && days)
+    {
+      if (count)
+        es_fprintf (fp, ", ");
+      es_fprintf (fp, ngettext("%d~day", "%d~days", days), days);
+      count ++;
+      first = i;
+    }
+  i ++;
+  if ((first == -1 || i - first <= 3) && count < 2 && hours)
+    {
+      if (count)
+        es_fprintf (fp, ", ");
+      es_fprintf (fp, ngettext("%d~hour", "%d~hours", hours), hours);
+      count ++;
+      first = i;
+    }
+  i ++;
+  if ((first == -1 || i - first <= 3) && count < 2 && minutes)
+    {
+      if (count)
+        es_fprintf (fp, ", ");
+      es_fprintf (fp, ngettext("%d~minute", "%d~minutes", minutes), minutes);
+      count ++;
+      first = i;
+    }
+  i ++;
+  if ((first == -1 || i - first <= 3) && count < 2)
+    {
+      if (count)
+        es_fprintf (fp, ", ");
+      es_fprintf (fp, ngettext("%d~second", "%d~seconds", seconds), seconds);
+    }
+
+  es_fputc (0, fp);
+  if (es_fclose_snatch (fp, (void **) &str, NULL))
+    log_fatal ("error snatching memory stream\n");
+
+  return str;
+}
+
+
+/* Write TOFU_STATS status line.  */
+static void
+write_stats_status (long messages, enum tofu_policy policy,
+                    long first_seen_ago, long most_recent_seen_ago)
+{
+  char numbuf1[35];
+  char numbuf2[35];
+  char numbuf3[35];
+  const char *validity;
+
+  if (messages < 1)
+    validity = "1"; /* Key without history.  */
+  else if (messages < BASIC_TRUST_THRESHOLD)
+    validity = "2"; /* Key with too little history.  */
+  else if (messages < FULL_TRUST_THRESHOLD)
+    validity = "3"; /* Key with enough history for basic trust.  */
+  else
+    validity = "4"; /* Key with a lot of history.  */
+
+  snprintf (numbuf1, sizeof numbuf1, " %ld", messages);
+  *numbuf2 = *numbuf3 = 0;
+  if (first_seen_ago >= 0 && most_recent_seen_ago >= 0)
+    {
+      snprintf (numbuf2, sizeof numbuf2, " %ld", first_seen_ago);
+      snprintf (numbuf3, sizeof numbuf3, " %ld", most_recent_seen_ago);
+    }
+
+  write_status_strings (STATUS_TOFU_STATS,
+                        validity, numbuf1, " 0",
+                        " ", tofu_policy_str (policy),
+                        numbuf2, numbuf3,
+                        NULL);
 }
 
 static void
-show_statistics (struct db *dbs, const char *fingerprint,
+show_statistics (tofu_dbs_t dbs, const char *fingerprint,
                 const char *email, const char *user_id,
                 const char *sig_exclude)
 {
-  sqlite3 *db;
+  struct db *db;
+  char *fingerprint_pp;
   int rc;
   strlist_t strlist = NULL;
   char *err = NULL;
@@ -1784,9 +2455,12 @@ show_statistics (struct db *dbs, const char *fingerprint,
   if (! db)
     return;
 
-  rc = sqlite3_exec_printf
-    (db, strings_collect_cb, &strlist, &err,
-     "select count (*), strftime('%%s','now') - min (signatures.time)\n"
+  fingerprint_pp = format_hexfingerprint (fingerprint, NULL, 0);
+
+  rc = gpgsql_exec_printf
+    (db->db, strings_collect_cb, &strlist, &err,
+     "select count (*), strftime('%%s','now') - min (signatures.time),\n"
+     "  strftime('%%s','now') - max (signatures.time)\n"
      " from signatures\n"
      " left join bindings on signatures.binding = bindings.oid\n"
      " where fingerprint = %Q and email = %Q and sig_digest %s%s%s;",
@@ -1798,248 +2472,174 @@ show_statistics (struct db *dbs, const char *fingerprint,
      sig_exclude ? "'" : "");
   if (rc)
     {
-      log_error (_("error reading from TOFU database"
-                  " (getting statistics): %s\n"),
-                err);
+      log_error (_("error reading TOFU database: %s\n"), err);
+      print_further_info ("getting statistics");
       sqlite3_free (err);
       goto out;
     }
 
+  write_status_text_and_buffer (STATUS_TOFU_USER, fingerprint,
+                                email, strlen (email), 0);
+
   if (! strlist)
-    log_info (_("Have never verified a message signed by key %s!\n"),
-             fingerprint);
+    {
+      log_info (_("Have never verified a message signed by key %s!\n"),
+                fingerprint_pp);
+      write_stats_status (0,  TOFU_POLICY_NONE, -1, -1);
+    }
   else
     {
-      char *tail = NULL;
       signed long messages;
       signed long first_seen_ago;
+      signed long most_recent_seen_ago;
 
-      assert (strlist_length (strlist) == 2);
+      log_assert (strlist_length (strlist) == 3);
 
-      errno = 0;
-      messages = strtol (strlist->d, &tail, 0);
-      if (errno || *tail != '\0')
-       /* Abort.  */
-       {
-         log_debug ("%s:%d: Couldn't convert %s (messages) to an int: %s.\n",
-                    __func__, __LINE__, strlist->d, strerror (errno));
-         messages = -1;
-       }
+      string_to_long (&messages, strlist->d, -1, __LINE__);
 
       if (messages == 0 && *strlist->next->d == '\0')
-       /* min(NULL) => NULL => "".  */
-       first_seen_ago = -1;
+        { /* min(NULL) => NULL => "".  */
+          first_seen_ago = -1;
+          most_recent_seen_ago = -1;
+        }
       else
        {
-         errno = 0;
-         first_seen_ago = strtol (strlist->next->d, &tail, 0);
-         if (errno || *tail != '\0')
-           /* Abort.  */
-           {
-             log_debug ("%s:%d: Cound't convert %s (first_seen) to an int: %s.\n",
-                        __func__, __LINE__,
-                        strlist->next->d, strerror (errno));
-             first_seen_ago = 0;
-           }
+          string_to_long (&first_seen_ago, strlist->next->d, -1, __LINE__);
+         string_to_long (&most_recent_seen_ago, strlist->next->next->d, -1,
+                          __LINE__);
        }
 
-      if (messages == -1 || first_seen_ago == 0)
-       log_info (_("Failed to collect signature statistics for \"%s\" (key %s)\n"),
-                 user_id, fingerprint);
+      if (messages == -1 || first_seen_ago == -1)
+        {
+          write_stats_status (0, TOFU_POLICY_NONE, -1, -1);
+          log_info (_("Failed to collect signature statistics for \"%s\"\n"
+                      "(key %s)\n"),
+                    user_id, fingerprint_pp);
+        }
       else
        {
          enum tofu_policy policy = get_policy (dbs, fingerprint, email, NULL);
          estream_t fp;
          char *msg;
 
+          write_stats_status (messages, policy,
+                              first_seen_ago, most_recent_seen_ago);
+
          fp = es_fopenmem (0, "rw,samethread");
          if (! fp)
-           log_fatal ("error creating memory stream\n");
+            log_fatal ("error creating memory stream: %s\n",
+                       gpg_strerror (gpg_error_from_syserror()));
 
          if (messages == 0)
-           es_fprintf (fp,
-                       _("Verified 0 messages signed by \"%s\""
-                         " (key: %s, policy %s)."),
-                       user_id, fingerprint, tofu_policy_str (policy));
+            {
+              es_fprintf (fp, _("Verified %ld messages signed by \"%s\"."),
+                          0L, user_id);
+              es_fputc ('\n', fp);
+            }
          else
            {
-             int years = 0;
-             int months = 0;
-             int days = 0;
-             int hours = 0;
-             int minutes = 0;
-             int seconds = 0;
-
-             /* The number of units that we've printed so far.  */
-             int count = 0;
-             /* The first unit that we printed (year = 0, month = 1,
-                etc.).  */
-             int first = -1;
-             /* The current unit.  */
-             int i = 0;
+              char *first_seen_ago_str = time_ago_str (first_seen_ago);
 
+              /* TRANSLATORS: The final %s is replaced by a string like
+                 "7 months, 1 day, 5 minutes, 0 seconds". */
              es_fprintf (fp,
-                         _("Verified %ld messages signed by \"%s\""
-                           " (key: %s, policy: %s) in the past "),
-                         messages, user_id,
-                         fingerprint, tofu_policy_str (policy));
-
-             /* It would be nice to use a macro to do this, but gettext
-                works on the unpreprocessed code.  */
-#define MIN_SECS (60)
-#define HOUR_SECS (60 * MIN_SECS)
-#define DAY_SECS (24 * HOUR_SECS)
-#define MONTH_SECS (30 * DAY_SECS)
-#define YEAR_SECS (365 * DAY_SECS)
-
-             if (first_seen_ago > YEAR_SECS)
-               {
-                 years = first_seen_ago / YEAR_SECS;
-                 first_seen_ago -= years * YEAR_SECS;
-               }
-             if (first_seen_ago > MONTH_SECS)
-               {
-                 months = first_seen_ago / MONTH_SECS;
-                 first_seen_ago -= months * MONTH_SECS;
-               }
-             if (first_seen_ago > DAY_SECS)
-               {
-                 days = first_seen_ago / DAY_SECS;
-                 first_seen_ago -= days * DAY_SECS;
-               }
-             if (first_seen_ago > HOUR_SECS)
-               {
-                 hours = first_seen_ago / HOUR_SECS;
-                 first_seen_ago -= hours * HOUR_SECS;
-               }
-             if (first_seen_ago > MIN_SECS)
-               {
-                 minutes = first_seen_ago / MIN_SECS;
-                 first_seen_ago -= minutes * MIN_SECS;
-               }
-             seconds = first_seen_ago;
-
-#undef MIN_SECS
-#undef HOUR_SECS
-#undef DAY_SECS
-#undef MONTH_SECS
-#undef YEAR_SECS
-
-             if (years)
-               {
-                 if (years > 1)
-                   es_fprintf (fp, _("%d years"), years);
-                 else
-                   es_fprintf (fp, _("%d year"), years);
-                 count ++;
-                 first = i;
-               }
-             i ++;
-             if ((first == -1 || i - first <= 3) && months)
-               {
-                 if (count)
-                   es_fprintf (fp, _(", "));
-
-                 if (months > 1)
-                   es_fprintf (fp, _("%d months"), months);
-                 else
-                   es_fprintf (fp, _("%d month"), months);
-                 count ++;
-                 first = i;
-               }
-             i ++;
-             if ((first == -1 || i - first <= 3) && count < 2 && days)
-               {
-                 if (count)
-                   es_fprintf (fp, _(", "));
-
-                 if (days > 1)
-                   es_fprintf (fp, _("%d days"), days);
-                 else
-                   es_fprintf (fp, _("%d day"), days);
-                 count ++;
-                 first = i;
-               }
-             i ++;
-             if ((first == -1 || i - first <= 3) && count < 2 && hours)
-               {
-                 if (count)
-                   es_fprintf (fp, _(", "));
-
-                 if (hours > 1)
-                   es_fprintf (fp, _("%d hours"), hours);
-                 else
-                   es_fprintf (fp, _("%d hour"), hours);
-                 count ++;
-                 first = i;
-               }
-             i ++;
-             if ((first == -1 || i - first <= 3) && count < 2 && minutes)
-               {
-                 if (count)
-                   es_fprintf (fp, _(", "));
-
-                 if (minutes > 1)
-                   es_fprintf (fp, _("%d minutes"), minutes);
-                 else
-                   es_fprintf (fp, _("%d minute"), minutes);
-                 count ++;
-                 first = i;
-               }
-             i ++;
-             if ((first == -1 || i - first <= 3) && count < 2)
-               {
-                 if (count)
-                   es_fprintf (fp, _(", "));
-
-                 if (seconds > 1)
-                   es_fprintf (fp, _("%d seconds"), seconds);
-                 else
-                   es_fprintf (fp, _("%d second"), seconds);
-               }
-
-             es_fprintf (fp, _("."));
-           }
-
-         es_fputc (0, fp);
-         if (es_fclose_snatch (fp, (void **) &msg, NULL))
-           log_fatal ("error snatching memory stream\n");
-
-         log_info ("%s\n", msg);
-
-         if (policy == TOFU_POLICY_AUTO && messages < 10)
+                          ngettext("Verified %ld message signed by \"%s\"\n"
+                                   "in the past %s.",
+                                   "Verified %ld messages signed by \"%s\"\n"
+                                   "in the past %s.",
+                                   messages),
+                         messages, user_id, first_seen_ago_str);
+
+              if (messages > 1)
+                {
+                  char *tmpstr = time_ago_str (most_recent_seen_ago);
+                  es_fputs ("  ", fp);
+                  es_fprintf (fp, _("The most recent message was"
+                                    " verified %s ago."), tmpstr);
+                  xfree (tmpstr);
+                }
+              xfree (first_seen_ago_str);
+
+              if (opt.verbose)
+                {
+                  es_fputs ("  ", fp);
+                  es_fputc ('(', fp);
+                  es_fprintf (fp, _("policy: %s"), tofu_policy_str (policy));
+                  es_fputs (")\n", fp);
+                }
+              else
+                es_fputs ("\n", fp);
+            }
+
+          {
+            char *tmpmsg, *p;
+            es_fputc (0, fp);
+            if (es_fclose_snatch (fp, (void **) &tmpmsg, NULL))
+              log_fatal ("error snatching memory stream\n");
+            msg = format_text (tmpmsg, 0, 72, 80);
+            es_free (tmpmsg);
+
+            /* Print a status line but suppress the trailing LF.
+             * Spaces are not percent escaped. */
+            if (*msg)
+              write_status_buffer (STATUS_TOFU_STATS_LONG,
+                                   msg, strlen (msg)-1, -1);
+
+            /* Remove the non-breaking space markers.  */
+            for (p=msg; *p; p++)
+              if (*p == '~')
+                *p = ' ';
+
+          }
+
+         log_string (GPGRT_LOG_INFO, msg);
+          xfree (msg);
+
+         if (policy == TOFU_POLICY_AUTO && messages < BASIC_TRUST_THRESHOLD)
            {
              char *set_policy_command;
-             const char *text;
+             char *text;
+              char *tmpmsg;
 
              if (messages == 0)
-               log_info (_("Warning: we've have yet to see a message signed by this key!\n"));
+               log_info (_("Warning: we've have yet to see"
+                            " a message signed by this key!\n"));
              else if (messages == 1)
-               log_info (_("Warning: we've only seen a single message signed by this key!\n"));
+               log_info (_("Warning: we've only seen a"
+                            " single message signed by this key!\n"));
 
              set_policy_command =
-               xasprintf ("gpg --tofu-policy bad \"%s\"", fingerprint);
-             /* TRANSLATORS: translate the below text.  We don't
-                directly internationalize that text so that we can
-                tweak it without breaking translations.  */
-             text = _("TOFU: few signatures %d %s %s");
-             if (strcmp (text, "TOFU: few signatures %d %s %s") == 0)
-               text =
-                 "Warning: if you think you've seen more than %d %s "
-                 "signed by this key, then this key might be a forgery!  "
-                 "Carefully examine the email address for small variations "
-                 "(e.g., additional white space).  If the key is suspect, "
-                 "then use '%s' to mark it as being bad.\n";
-             log_info (text,
-                       messages, messages == 1 ? _("message") : _("message"),
-                       set_policy_command);
-             free (set_policy_command);
+               xasprintf ("gpg --tofu-policy bad %s", fingerprint);
+
+              tmpmsg = xasprintf
+                (ngettext
+                 ("Warning: if you think you've seen more than %ld message "
+                  "signed by this key, then this key might be a forgery!  "
+                  "Carefully examine the email address for small "
+                  "variations.  If the key is suspect, then use\n"
+                  "  %s\n"
+                  "to mark it as being bad.\n",
+                  "Warning: if you think you've seen more than %ld messages "
+                  "signed by this key, then this key might be a forgery!  "
+                      "Carefully examine the email address for small "
+                  "variations.  If the key is suspect, then use\n"
+                  "  %s\n"
+                  "to mark it as being bad.\n",
+                  messages),
+                  messages, set_policy_command);
+              text = format_text (tmpmsg, 0, 72, 80);
+              xfree (tmpmsg);
+             log_string (GPGRT_LOG_INFO, text);
+              xfree (text);
+
+             es_free (set_policy_command);
            }
        }
     }
 
  out:
   free_strlist (strlist);
+  xfree (fingerprint_pp);
 
   return;
 }
@@ -2052,52 +2652,18 @@ email_from_user_id (const char *user_id)
 {
   char *email = mailbox_from_userid (user_id);
   if (! email)
-    /* Hmm, no email address was provided.  Just take the lower-case
-       version of the whole user id.  It could be a hostname, for
-       instance.  */
-    email = ascii_strlwr (xstrdup (user_id));
-
-  return email;
-}
-
-/* Pretty print a MAX_FINGERPRINT_LEN-byte binary fingerprint into a
-   malloc'd string.  */
-static char *
-fingerprint_pp (const byte *fingerprint_bin)
-{
-  char fingerprint[MAX_FINGERPRINT_LEN * 2 + 1];
-  char *fingerprint_pretty;
-  int space = (/* The characters and the NUL.  */
-              sizeof (fingerprint)
-              /* After every fourth character, we add a space (except
-                 the last).  */
-              + (sizeof (fingerprint) - 1) / 4 - 1
-              /* Half way through we add a second space.  */
-              + 1);
-  int i;
-  int j;
-
-  bin2hex (fingerprint_bin, MAX_FINGERPRINT_LEN, fingerprint);
-
-  fingerprint_pretty = xmalloc (space);
-
-  for (i = 0, j = 0; i < MAX_FINGERPRINT_LEN * 2; i ++)
     {
-      if (i && i % 4 == 0)
-       fingerprint_pretty[j ++] = ' ';
-      if (i == MAX_FINGERPRINT_LEN * 2 / 2)
-       fingerprint_pretty[j ++] = ' ';
-
-      fingerprint_pretty[j ++] = fingerprint[i];
+      /* Hmm, no email address was provided or we are out of core.  Just
+         take the lower-case version of the whole user id.  It could be
+         a hostname, for instance.  */
+      email = ascii_strlwr (xstrdup (user_id));
     }
-  fingerprint_pretty[j ++] = 0;
-  assert (j == space);
 
-  return fingerprint_pretty;
+  return email;
 }
 
-/* Register the signature with the binding <FINGERPRINT_BIN, USER_ID>.
-   FINGERPRINT must be MAX_FINGERPRINT_LEN bytes long.
+/* Register the signature with the binding <fingerprint, USER_ID>.
+   The fingerprint is taken from the primary key packet PK.
 
    SIG_DIGEST_BIN is the binary representation of the message's
    digest.  SIG_DIGEST_BIN_LEN is its length.
@@ -2116,12 +2682,12 @@ fingerprint_pp (const byte *fingerprint_bin)
    This function returns the binding's trust level on return.  If an
    error occurs, this function returns TRUST_UNKNOWN.  */
 int
-tofu_register (const byte *fingerprint_bin, const char *user_id,
+tofu_register (ctrl_t ctrl, PKT_public_key *pk, const char *user_id,
               const byte *sig_digest_bin, int sig_digest_bin_len,
               time_t sig_time, const char *origin, int may_ask)
 {
-  struct db *dbs;
-  sqlite3 *db;
+  tofu_dbs_t dbs;
+  struct db *db;
   char *fingerprint = NULL;
   char *email = NULL;
   char *err = NULL;
@@ -2133,14 +2699,15 @@ tofu_register (const byte *fingerprint_bin, const char *user_id,
 
   sig_digest = make_radix64_string (sig_digest_bin, sig_digest_bin_len);
 
-  dbs = opendbs ();
+  dbs = opendbs (ctrl);
   if (! dbs)
     {
-      log_error (_("error opening TOFU DB.\n"));
+      log_error (_("error opening TOFU database: %s\n"),
+                 gpg_strerror (GPG_ERR_GENERAL));
       goto die;
     }
 
-  fingerprint = fingerprint_pp (fingerprint_bin);
+  fingerprint = hexfingerprint (pk, NULL, 0);
 
   if (! *user_id)
     {
@@ -2156,7 +2723,7 @@ tofu_register (const byte *fingerprint_bin, const char *user_id,
 
   /* It's necessary to get the trust so that we are certain that the
      binding has been registered.  */
-  trust_level = get_trust (dbs, fingerprint, email, user_id, may_ask);
+  trust_level = get_trust (dbs, pk, fingerprint, email, user_id, may_ask);
   if (trust_level == _tofu_GET_TRUST_ERROR)
     /* An error.  */
     {
@@ -2168,35 +2735,35 @@ tofu_register (const byte *fingerprint_bin, const char *user_id,
   db = getdb (dbs, email, DB_EMAIL);
   if (! db)
     {
-      log_error (_("error opening TOFU DB.\n"));
+      log_error (_("error opening TOFU database: %s\n"),
+                 gpg_strerror (GPG_ERR_GENERAL));
       goto die;
     }
 
   /* We do a query and then an insert.  Make sure they are atomic
      by wrapping them in a transaction.  */
-  rc = sqlite3_exec (db, "begin transaction;", NULL, NULL, &err);
+  rc = begin_transaction (db, 0);
   if (rc)
-    {
-      log_error (_("error beginning transaction on TOFU database: %s\n"), err);
-      sqlite3_free (err);
-      goto die;
-    }
+    goto die;
 
   /* If we've already seen this signature before, then don't add
      it again.  */
-  rc = sqlite3_exec_printf
-    (db, get_single_unsigned_long_cb, &c, &err,
+  rc = gpgsql_stepx
+    (db->db, &db->s.register_already_seen,
+     get_single_unsigned_long_cb2, &c, &err,
      "select count (*)\n"
      " from signatures left join bindings\n"
      "  on signatures.binding = bindings.oid\n"
-     " where fingerprint = %Q and email = %Q and sig_time = 0x%lx\n"
-     "  and sig_digest = %Q",
-     fingerprint, email, (unsigned long) sig_time, sig_digest);
+     " where fingerprint = ? and email = ? and sig_time = ?\n"
+     "  and sig_digest = ?",
+     SQLITE_ARG_STRING, fingerprint, SQLITE_ARG_STRING, email,
+     SQLITE_ARG_LONG_LONG, (long long) sig_time,
+     SQLITE_ARG_STRING, sig_digest,
+     SQLITE_ARG_END);
   if (rc)
     {
-      log_error (_("error reading from signatures database"
-                  " (checking existence): %s\n"),
-                err);
+      log_error (_("error reading TOFU database: %s\n"), err);
+      print_further_info ("checking existence");
       sqlite3_free (err);
     }
   else if (c > 1)
@@ -2204,7 +2771,7 @@ tofu_register (const byte *fingerprint_bin, const char *user_id,
        because <fingerprint, email, sig_time, sig_digest> is the
        primary key!  */
     log_debug ("SIGNATURES DB contains duplicate records"
-              " <key: %s, %s, time: 0x%lx, sig: %s, %s>."
+              " <%s, %s, 0x%lx, %s, %s>."
               "  Please report.\n",
               fingerprint, email, (unsigned long) sig_time,
               sig_digest, origin);
@@ -2213,10 +2780,14 @@ tofu_register (const byte *fingerprint_bin, const char *user_id,
       already_verified = 1;
       if (DBG_TRUST)
        log_debug ("Already observed the signature"
-                  " <key: %s, %s, time: 0x%lx, sig: %s, %s>\n",
+                  " <%s, %s, 0x%lx, %s, %s>\n",
                   fingerprint, email, (unsigned long) sig_time,
                   sig_digest, origin);
     }
+  else if (opt.dry_run)
+    {
+      log_info ("TOFU database update skipped due to --dry-run\n");
+    }
   else
     /* This is the first time that we've seen this signature.
        Record it.  */
@@ -2225,22 +2796,24 @@ tofu_register (const byte *fingerprint_bin, const char *user_id,
        log_debug ("TOFU: Saving signature <%s, %s, %s>\n",
                   fingerprint, email, sig_digest);
 
-      assert (c == 0);
+      log_assert (c == 0);
 
-      rc = sqlite3_exec_printf
-       (db, NULL, NULL, &err,
+      rc = gpgsql_stepx
+       (db->db, &db->s.register_insert, NULL, NULL, &err,
         "insert into signatures\n"
         " (binding, sig_digest, origin, sig_time, time)\n"
         " values\n"
         " ((select oid from bindings\n"
-        "    where fingerprint = %Q and email = %Q),\n"
-        "  %Q, %Q, 0x%lx, strftime('%%s', 'now'));",
-        fingerprint, email, sig_digest, origin, (unsigned long) sig_time);
+        "    where fingerprint = ? and email = ?),\n"
+        "  ?, ?, ?, strftime('%s', 'now'));",
+        SQLITE_ARG_STRING, fingerprint, SQLITE_ARG_STRING, email,
+         SQLITE_ARG_STRING, sig_digest, SQLITE_ARG_STRING, origin,
+         SQLITE_ARG_LONG_LONG, (long long) sig_time,
+         SQLITE_ARG_END);
       if (rc)
        {
-         log_error (_("error updating TOFU DB"
-                      " (inserting into signatures table): %s\n"),
-                    err);
+         log_error (_("error updating TOFU database: %s\n"), err);
+          print_further_info ("insert signatures");
          sqlite3_free (err);
        }
     }
@@ -2248,18 +2821,17 @@ tofu_register (const byte *fingerprint_bin, const char *user_id,
   /* It only matters whether we abort or commit the transaction
      (so long as we do something) if we execute the insert.  */
   if (rc)
-    rc = sqlite3_exec (db, "rollback;", NULL, NULL, &err);
+    rc = rollback_transaction (db);
   else
-    rc = sqlite3_exec (db, "commit transaction;", NULL, NULL, &err);
+    rc = end_transaction (db, 0);
   if (rc)
     {
-      log_error (_("error ending transaction on TOFU database: %s\n"), err);
       sqlite3_free (err);
       goto die;
     }
 
  die:
-  if (may_ask)
+  if (may_ask && trust_level != TRUST_ULTIMATE)
     /* It's only appropriate to show the statistics in an interactive
        context.  */
     show_statistics (dbs, fingerprint, email, user_id,
@@ -2267,8 +2839,6 @@ tofu_register (const byte *fingerprint_bin, const char *user_id,
 
   xfree (email);
   xfree (fingerprint);
-  if (dbs)
-    closedbs (dbs);
   xfree (sig_digest);
 
   return trust_level;
@@ -2287,20 +2857,20 @@ tofu_wot_trust_combine (int tofu_base, int wot_base)
   int wot = wot_base & TRUST_MASK;
   int upper = (tofu_base & ~TRUST_MASK) | (wot_base & ~TRUST_MASK);
 
-  assert (tofu == TRUST_UNKNOWN
-         || tofu == TRUST_EXPIRED
-         || tofu == TRUST_UNDEFINED
-         || tofu == TRUST_NEVER
-         || tofu == TRUST_MARGINAL
-         || tofu == TRUST_FULLY
-         || tofu == TRUST_ULTIMATE);
-  assert (wot == TRUST_UNKNOWN
-         || wot == TRUST_EXPIRED
-         || wot == TRUST_UNDEFINED
-         || wot == TRUST_NEVER
-         || wot == TRUST_MARGINAL
-         || wot == TRUST_FULLY
-         || wot == TRUST_ULTIMATE);
+  log_assert (tofu == TRUST_UNKNOWN
+              || tofu == TRUST_EXPIRED
+              || tofu == TRUST_UNDEFINED
+              || tofu == TRUST_NEVER
+              || tofu == TRUST_MARGINAL
+              || tofu == TRUST_FULLY
+              || tofu == TRUST_ULTIMATE);
+  log_assert (wot == TRUST_UNKNOWN
+              || wot == TRUST_EXPIRED
+              || wot == TRUST_UNDEFINED
+              || wot == TRUST_NEVER
+              || wot == TRUST_MARGINAL
+              || wot == TRUST_FULLY
+              || wot == TRUST_ULTIMATE);
 
   /* We first consider negative trust policys.  These trump positive
      trust policies.  */
@@ -2313,21 +2883,34 @@ tofu_wot_trust_combine (int tofu_base, int wot_base)
 
   /* Now we only have positive or neutral trust policies.  We take
      the max.  */
-  if (tofu == TRUST_ULTIMATE || wot == TRUST_ULTIMATE)
+  if (tofu == TRUST_ULTIMATE)
+    return upper | TRUST_ULTIMATE | TRUST_FLAG_TOFU_BASED;
+  if (wot == TRUST_ULTIMATE)
     return upper | TRUST_ULTIMATE;
-  if (tofu == TRUST_FULLY || wot == TRUST_FULLY)
+
+  if (tofu == TRUST_FULLY)
+    return upper | TRUST_FULLY | TRUST_FLAG_TOFU_BASED;
+  if (wot == TRUST_FULLY)
     return upper | TRUST_FULLY;
-  if (tofu == TRUST_MARGINAL || wot == TRUST_MARGINAL)
+
+  if (tofu == TRUST_MARGINAL)
+    return upper | TRUST_MARGINAL | TRUST_FLAG_TOFU_BASED;
+  if (wot == TRUST_MARGINAL)
     return upper | TRUST_MARGINAL;
-  if (tofu == TRUST_UNDEFINED || wot == TRUST_UNDEFINED)
+
+  if (tofu == TRUST_UNDEFINED)
+    return upper | TRUST_UNDEFINED | TRUST_FLAG_TOFU_BASED;
+  if (wot == TRUST_UNDEFINED)
     return upper | TRUST_UNDEFINED;
+
   return upper | TRUST_UNKNOWN;
 }
 
+
 /* Return the validity (TRUST_NEVER, etc.) of the binding
    <FINGERPRINT, USER_ID>.
 
-   FINGERPRINT must be a MAX_FINGERPRINT_LEN-byte fingerprint.
+   PK is the primary key packet.
 
    If MAY_ASK is 1 and the policy is TOFU_POLICY_ASK, then the user
    will be prompted to choose a different policy.  If MAY_ASK is 0 and
@@ -2335,45 +2918,44 @@ tofu_wot_trust_combine (int tofu_base, int wot_base)
 
    Returns TRUST_UNDEFINED if an error occurs.  */
 int
-tofu_get_validity (const byte *fingerprint_bin, const char *user_id,
+tofu_get_validity (ctrl_t ctrl, PKT_public_key *pk, const char *user_id,
                   int may_ask)
 {
-  struct db *dbs;
+  tofu_dbs_t dbs;
   char *fingerprint = NULL;
   char *email = NULL;
   int trust_level = TRUST_UNDEFINED;
 
-  dbs = opendbs ();
+  dbs = opendbs (ctrl);
   if (! dbs)
     {
-      log_error (_("error opening TOFU DB.\n"));
+      log_error (_("error opening TOFU database: %s\n"),
+                 gpg_strerror (GPG_ERR_GENERAL));
       goto die;
     }
 
-  fingerprint = fingerprint_pp (fingerprint_bin);
+  fingerprint = hexfingerprint (pk, NULL, 0);
 
   if (! *user_id)
     {
-      log_debug ("user id is empty.  Can't get TOFU validity for this binding.\n");
+      log_debug ("user id is empty."
+                 "  Can't get TOFU validity for this binding.\n");
       goto die;
     }
 
   email = email_from_user_id (user_id);
 
-  trust_level = get_trust (dbs, fingerprint, email, user_id, may_ask);
+  trust_level = get_trust (dbs, pk, fingerprint, email, user_id, may_ask);
   if (trust_level == _tofu_GET_TRUST_ERROR)
     /* An error.  */
     trust_level = TRUST_UNDEFINED;
 
-  if (may_ask)
+  if (may_ask && trust_level != TRUST_ULTIMATE)
     show_statistics (dbs, fingerprint, email, user_id, NULL);
 
  die:
   xfree (email);
   xfree (fingerprint);
-  if (dbs)
-    closedbs (dbs);
-
   return trust_level;
 }
 
@@ -2385,21 +2967,20 @@ tofu_get_validity (const byte *fingerprint_bin, const char *user_id,
 
    Returns 0 on success and an error code otherwise.  */
 gpg_error_t
-tofu_set_policy (kbnode_t kb, enum tofu_policy policy)
+tofu_set_policy (ctrl_t ctrl, kbnode_t kb, enum tofu_policy policy)
 {
-  struct db *dbs;
+  tofu_dbs_t dbs;
   PKT_public_key *pk;
-  char fingerprint_bin[MAX_FINGERPRINT_LEN];
-  size_t fingerprint_bin_len = sizeof (fingerprint_bin);
   char *fingerprint = NULL;
 
-  assert (kb->pkt->pkttype == PKT_PUBLIC_KEY);
+  log_assert (kb->pkt->pkttype == PKT_PUBLIC_KEY);
   pk = kb->pkt->pkt.public_key;
 
-  dbs = opendbs ();
+  dbs = opendbs (ctrl);
   if (! dbs)
     {
-      log_error (_("error opening TOFU DB.\n"));
+      log_error (_("error opening TOFU database: %s\n"),
+                 gpg_strerror (GPG_ERR_GENERAL));
       return gpg_error (GPG_ERR_GENERAL);
     }
 
@@ -2410,10 +2991,7 @@ tofu_set_policy (kbnode_t kb, enum tofu_policy policy)
         && pk->main_keyid[1] == pk->keyid[1]))
     log_bug ("%s: Passed a subkey, but expecting a primary key.\n", __func__);
 
-  fingerprint_from_pk (pk, fingerprint_bin, &fingerprint_bin_len);
-  assert (fingerprint_bin_len == sizeof (fingerprint_bin));
-
-  fingerprint = fingerprint_pp (fingerprint_bin);
+  fingerprint = hexfingerprint (pk, NULL, 0);
 
   for (; kb; kb = kb->next)
     {
@@ -2437,8 +3015,6 @@ tofu_set_policy (kbnode_t kb, enum tofu_policy policy)
     }
 
   xfree (fingerprint);
-  closedbs (dbs);
-
   return 0;
 }
 
@@ -2450,13 +3026,13 @@ tofu_set_policy (kbnode_t kb, enum tofu_policy policy)
 
    Returns 0 on success and an error code otherwise.  */
 gpg_error_t
-tofu_set_policy_by_keyid (u32 *keyid, enum tofu_policy policy)
+tofu_set_policy_by_keyid (ctrl_t ctrl, u32 *keyid, enum tofu_policy policy)
 {
   kbnode_t keyblock = get_pubkeyblock (keyid);
   if (! keyblock)
     return gpg_error (GPG_ERR_NO_PUBKEY);
 
-  return tofu_set_policy (keyblock, policy);
+  return tofu_set_policy (ctrl, keyblock, policy);
 }
 
 /* Return the TOFU policy for the specified binding in *POLICY.  If no
@@ -2467,30 +3043,26 @@ tofu_set_policy_by_keyid (u32 *keyid, enum tofu_policy policy)
 
    Returns 0 on success and an error code otherwise.  */
 gpg_error_t
-tofu_get_policy (PKT_public_key *pk, PKT_user_id *user_id,
+tofu_get_policy (ctrl_t ctrl, PKT_public_key *pk, PKT_user_id *user_id,
                 enum tofu_policy *policy)
 {
-  struct db *dbs;
-  char fingerprint_bin[MAX_FINGERPRINT_LEN];
-  size_t fingerprint_bin_len = sizeof (fingerprint_bin);
+  tofu_dbs_t dbs;
   char *fingerprint;
   char *email;
 
   /* Make sure PK is a primary key.  */
-  assert (pk->main_keyid[0] == pk->keyid[0]
-         && pk->main_keyid[1] == pk->keyid[1]);
+  log_assert (pk->main_keyid[0] == pk->keyid[0]
+              && pk->main_keyid[1] == pk->keyid[1]);
 
-  dbs = opendbs ();
+  dbs = opendbs (ctrl);
   if (! dbs)
     {
-      log_error (_("error opening TOFU DB.\n"));
+      log_error (_("error opening TOFU database: %s\n"),
+                 gpg_strerror (GPG_ERR_GENERAL));
       return gpg_error (GPG_ERR_GENERAL);
     }
 
-  fingerprint_from_pk (pk, fingerprint_bin, &fingerprint_bin_len);
-  assert (fingerprint_bin_len == sizeof (fingerprint_bin));
-
-  fingerprint = fingerprint_pp (fingerprint_bin);
+  fingerprint = hexfingerprint (pk, NULL, 0);
 
   email = email_from_user_id (user_id->name);
 
@@ -2498,8 +3070,6 @@ tofu_get_policy (PKT_public_key *pk, PKT_user_id *user_id,
 
   xfree (email);
   xfree (fingerprint);
-  closedbs (dbs);
-
   if (*policy == _tofu_GET_POLICY_ERROR)
     return gpg_error (GPG_ERR_GENERAL);
   return 0;