From 3e25f825b7e1e6f54ebcc8fc47e424f67d1e861f Mon Sep 17 00:00:00 2001
From: Norman Walsh <ndw@nwalsh.com>
Date: Thu, 26 Dec 2024 08:59:00 +0000
Subject: [PATCH] Add service to test #389

---
 docker/apache2/service/slow | 19 +++++++++++++++++++
 docker/docker-compose.yml   |  2 --
 2 files changed, 19 insertions(+), 2 deletions(-)
 create mode 100755 docker/apache2/service/slow

diff --git a/docker/apache2/service/slow b/docker/apache2/service/slow
new file mode 100755
index 000000000..462dc7a1d
--- /dev/null
+++ b/docker/apache2/service/slow
@@ -0,0 +1,19 @@
+#!/usr/bin/perl -- # -*- Perl -*-
+
+use strict;
+use English;
+use CGI::Carp qw(fatalsToBrowser);
+
+# To satisfy Apache, always read the input
+if ($ENV{'REQUEST_METHOD'} eq 'POST') {
+    read(STDIN, $_, $ENV{'CONTENT_LENGTH'});
+}
+
+sleep(10);
+
+print "Content-type: application/xml\n\n";
+print "<doc><title>Sample document</title>\n";
+print "<p>“Hello, world,” he said, slowly.</p>\n";
+print "</doc>\n";
+
+exit(0);
diff --git a/docker/docker-compose.yml b/docker/docker-compose.yml
index bda3518ef..66361b1d8 100644
--- a/docker/docker-compose.yml
+++ b/docker/docker-compose.yml
@@ -1,5 +1,3 @@
-version: '3.3'
-
 services:
     xtserver:
       image: ghcr.io/ndw/3.0-test-suite/xproctest:0.9.0