From 5280f0b733625d553fa935252fc4036640f780c0 Mon Sep 17 00:00:00 2001
From: Edward Hervey <edward@centricular.com>
Date: Wed, 20 Mar 2024 08:44:31 +0100
Subject: [PATCH] adaptivedemux2: Add libsoup tracing debug

Provides more information for debugging

Part-of: <https://gitlab.freedesktop.org/gstreamer/gstreamer/-/merge_requests/6409>
---
 .../ext/adaptivedemux2/downloadhelper.c       | 49 +++++++++++++++++++
 1 file changed, 49 insertions(+)

diff --git a/subprojects/gst-plugins-good/ext/adaptivedemux2/downloadhelper.c b/subprojects/gst-plugins-good/ext/adaptivedemux2/downloadhelper.c
index ebf9dc0783..6bae9a44e6 100644
--- a/subprojects/gst-plugins-good/ext/adaptivedemux2/downloadhelper.c
+++ b/subprojects/gst-plugins-good/ext/adaptivedemux2/downloadhelper.c
@@ -603,6 +603,44 @@ finish_transfer_error:
   g_object_unref (in);
 }
 
+static inline gchar
+gst_soup_util_log_make_level_tag (SoupLoggerLogLevel level)
+{
+  gchar c;
+
+  if (G_UNLIKELY ((gint) level > 9))
+    return '?';
+
+  switch (level) {
+    case SOUP_LOGGER_LOG_MINIMAL:
+      c = 'M';
+      break;
+    case SOUP_LOGGER_LOG_HEADERS:
+      c = 'H';
+      break;
+    case SOUP_LOGGER_LOG_BODY:
+      c = 'B';
+      break;
+    default:
+      /* Unknown level. If this is hit libsoup likely added a new
+       * log level to SoupLoggerLogLevel and it should be added
+       * as a case */
+      c = level + '0';
+      break;
+  }
+  return c;
+}
+
+static void
+gst_soup_util_log_printer_cb (SoupLogger G_GNUC_UNUSED * logger,
+    SoupLoggerLogLevel level, char direction, const char *data,
+    gpointer user_data)
+{
+  gchar c;
+  c = gst_soup_util_log_make_level_tag (level);
+  GST_TRACE ("HTTP_SESSION(%c): %c %s", c, direction, data);
+}
+
 DownloadHelper *
 downloadhelper_new (GstAdaptiveDemuxClock * clock)
 {
@@ -631,6 +669,17 @@ downloadhelper_new (GstAdaptiveDemuxClock * clock)
    * an attempt to reuse an already closed connection */
   dh->session = _soup_session_new_with_options ("timeout", 10, NULL);
 
+  /* Setup soup header debugging if we are at GST_LEVEL_TRACE */
+  if (gst_debug_category_get_threshold (GST_CAT_DEFAULT) >= GST_LEVEL_TRACE) {
+    /* Create a new logger and set body_size_limit to -1 (no limit) */
+    SoupLogger *logger = _soup_logger_new (SOUP_LOGGER_LOG_HEADERS);
+
+    _soup_logger_set_printer (logger, gst_soup_util_log_printer_cb, NULL, NULL);
+
+    /* Attach logger to session */
+    _soup_session_add_feature (dh->session, (SoupSessionFeature *) logger);
+    g_object_unref (logger);
+  }
   g_main_context_pop_thread_default (dh->transfer_context);
 
   return dh;