From c9cf025fadfe043f0f2f679e10d1207d8a158bb6 Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Sun, 7 Apr 2024 17:01:31 +0200
Subject: Adding debian version 2.4.57-2.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 .../c-modules/list_modules/mod_list_modules.c      | 38 ++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 debian/perl-framework/c-modules/list_modules/mod_list_modules.c

(limited to 'debian/perl-framework/c-modules/list_modules/mod_list_modules.c')

diff --git a/debian/perl-framework/c-modules/list_modules/mod_list_modules.c b/debian/perl-framework/c-modules/list_modules/mod_list_modules.c
new file mode 100644
index 0000000..40738a1
--- /dev/null
+++ b/debian/perl-framework/c-modules/list_modules/mod_list_modules.c
@@ -0,0 +1,38 @@
+#if CONFIG_FOR_HTTPD_TEST
+
+<Location /list_modules>
+   SetHandler list_modules
+</Location>
+
+#endif
+
+#define APACHE_HTTPD_TEST_HANDLER list_modules_handler
+
+#define CORE_PRIVATE /* for ap_top_module */
+#include "apache_httpd_test.h"
+
+static int list_modules_handler(request_rec *r)
+{
+    module *modp;
+
+    if (strcmp(r->handler, "list_modules")) {
+        return DECLINED;
+    }
+    if (r->method_number != M_GET) {
+        return DECLINED;
+    }
+
+#ifdef APACHE1
+#define ap_top_module top_module
+    ap_send_http_header(r);
+#endif
+
+    for (modp = ap_top_module; modp; modp = modp->next) {
+        ap_rvputs(r, modp->name, "\n", NULL);
+    }
+
+    return OK;
+}
+
+APACHE_HTTPD_TEST_MODULE(list_modules);
+
-- 
cgit v1.2.3