dirmngr: Print a brief list of URLs with LISTCRLS.

* dirmngr/crlcache.c (crl_cache_list): Print a summary of URLs.

* sm/call-dirmngr.c (gpgsm_dirmngr_run_command): Print a notice to
stdout if the dirmngr has been disabled.
--

GnuPG-bug-id: 7337

3 files changed, 10 insertions, 0 deletions

diff --git a/NEWS b/NEWS
index 973c6fdbf..b5bcf6526 100644
--- a/NEWS
+++ b/NEWS
@@ -27,6 +27,9 @@ Noteworthy changes in version 2.2.45 (unreleased)
   * agent: Fix KEYTOCARD for the use case with loopback pinentry.
     [T7283]
 
+  * dirmngr: A list of used URLs for loaded CRLs is printed first in
+    the output of the LISTCRL command.  [T7337]
+
   * gpgconf: Allow listing of options --trusted-key,
     add-desig-revoker, and default-new-key-adsk.  [T6882]
 
diff --git a/dirmngr/crlcache.c b/dirmngr/crlcache.c
index cc5300df7..8c2ffc030 100644
--- a/dirmngr/crlcache.c
+++ b/dirmngr/crlcache.c
@@ -2638,6 +2638,11 @@ crl_cache_list (estream_t fp)
   gpg_error_t err = 0;
 
   for (entry = cache->entries;
+       entry && !entry->deleted;
+       entry = entry->next )
+      es_fprintf (fp, "URL: %s\n", entry->url );
+
+  for (entry = cache->entries;
        entry && !entry->deleted && !err;
        entry = entry->next )
     err = list_one_crl_entry (cache, entry, fp);
diff --git a/sm/call-dirmngr.c b/sm/call-dirmngr.c
index 0bd805e1b..e454c52d5 100644
--- a/sm/call-dirmngr.c
+++ b/sm/call-dirmngr.c
@@ -1080,6 +1080,8 @@ gpgsm_dirmngr_run_command (ctrl_t ctrl, const char *command,
   keydb_close_all_files ();
 
   rc = start_dirmngr (ctrl);
+  if (gpg_err_code (rc) == GPG_ERR_NO_DIRMNGR)
+    fputs (_("no dirmngr running in this session\n"), stdout);
   if (rc)
     return rc;