- add a peer debug function

3 files changed, 52 insertions, 2 deletions

diff --git a/src/cadet/gnunet-service-cadet_local.c b/src/cadet/gnunet-service-cadet_local.c
index b7ac11c5e..b1c9a8bab 100644
--- a/src/cadet/gnunet-service-cadet_local.c
+++ b/src/cadet/gnunet-service-cadet_local.c
@@ -630,8 +630,7 @@ show_peer_iterator (void *cls,
   struct CadetPeer *p = value;
   struct CadetTunnel *t;
 
-  LOG (GNUNET_ERROR_TYPE_ERROR, "Peer %s\n", GCP_2s (p));
-  LOG (GNUNET_ERROR_TYPE_ERROR, " %u paths\n", GCP_count_paths (p));
+  GCP_debug (p, GNUNET_ERROR_TYPE_ERROR);
 
   t = GCP_get_tunnel (p);
   if (NULL != t)
diff --git a/src/cadet/gnunet-service-cadet_peer.c b/src/cadet/gnunet-service-cadet_peer.c
index 582124d4f..07d54b9da 100644
--- a/src/cadet/gnunet-service-cadet_peer.c
+++ b/src/cadet/gnunet-service-cadet_peer.c
@@ -2224,3 +2224,46 @@ GCP_2s (const struct CadetPeer *peer)
     return "(NULL)";
   return GNUNET_i2s (GNUNET_PEER_resolve2 (peer->id));
 }
+
+
+/**
+ * Log all kinds of info about a peer.
+ *
+ * @param peer Peer.
+ */
+void
+GCP_debug (const struct CadetPeer *p, enum GNUNET_ErrorType level)
+{
+  struct CadetPeerPath *path;
+  struct CadetPeerQueue *q;
+  unsigned int conns;
+
+  if (NULL == p)
+  {
+    LOG (level, "PPP DEBUG PEER NULL\n");
+    return;
+  }
+
+  LOG (level, "PPP DEBUG PEER %s\n", GCP_2s (p));
+  for (path = p->path_head; NULL != path; path = path->next)
+  {
+    char *s;
+
+    s = path_2s (path);
+    LOG (level, "PPP path: %s\n", s);
+    GNUNET_free (s);
+  }
+
+  LOG (level, "PPP core transmit handle %p\n", p->core_transmit);
+  conns = GNUNET_CONTAINER_multihashmap_size (p->connections);
+  LOG (level, "PPP # connections over link to peer: %u\n", conns);
+  LOG (level, "PPP queue length: %u\n", p->queue_n);
+  for (q = p->queue_head; NULL != q; q = q->next)
+  {
+    LOG (level, "PPP - %s [payload %s, %u] on connection %s, %u bytes\n",
+         GC_m2s (q->type), GC_m2s (q->payload_type), q->payload_id,
+         GCC_2s (q->c), q->size);
+  }
+  LOG (level, "PPP DEBUG END\n");
+
+}
diff --git a/src/cadet/gnunet-service-cadet_peer.h b/src/cadet/gnunet-service-cadet_peer.h
index 71e85d7ee..240e70526 100644
--- a/src/cadet/gnunet-service-cadet_peer.h
+++ b/src/cadet/gnunet-service-cadet_peer.h
@@ -405,6 +405,14 @@ GCP_iterate_all (GNUNET_CONTAINER_PeerMapIterator iter, void *cls);
 const char *
 GCP_2s (const struct CadetPeer *peer);
 
+/**
+ * Log all kinds of info about a peer.
+ *
+ * @param peer Peer.
+ */
+void
+GCP_debug (const struct CadetPeer *p, enum GNUNET_ErrorType level);
+
 
 #if 0                           /* keep Emacsens' auto-indent happy */
 {