Test Perl-powered rewites (see #36)

Author: macbre

.github/workflows/dockerimage.yml

@@ -63,6 +63,13 @@ jobs:
         grep --fixed-strings '<p>It works!</p>' /tmp/out
 
 
+        curl -v --compressed localhost:8888/FooBar 2>&1 | tee /tmp/out
+
+        grep --fixed-strings 'HTTP/1.1 301 Moved Permanently' /tmp/out
+        grep --fixed-strings '< x-rewrite: 1' /tmp/out
+        grep --fixed-strings '< Location: http://localhost/foobar' /tmp/out
+
+
         curl -v --compressed https://localhost:8889 2>&1 | tee /tmp/h2
 
         grep --fixed-strings '< HTTP/2 200' /tmp/h2

run-docker.sh

@@ -5,6 +5,7 @@ docker run --rm \
   -p 0.0.0.0:8889:443/udp \
   -v "$PWD/tests":/static:ro \
   -v "$PWD/tests/modules.conf":/etc/nginx/main.d/modules.conf:ro \
+  -v "$PWD/tests/perl_rewrite.conf":/etc/nginx/conf.d/perl_rewrite.conf:ro \
   -v "$PWD/tests/static.conf":/etc/nginx/conf.d/static.conf:ro \
   -v "$PWD/tests/https.conf":/etc/nginx/conf.d/https.conf:ro \
   -v "$PWD/tests/localhost.crt":/etc/nginx/ssl/localhost.crt:ro \

tests/perl_rewrite.conf

@@ -0,0 +1,7 @@
+# https://www.rewriteguide.com/nginx-enforce-lower-case-urls/
+perl_set $uri_lowercase 'sub {
+	my $r = shift;
+	my $uri = $r->uri;
+	$uri = lc($uri);
+	return $uri;
+}';

tests/static.conf

@@ -10,4 +10,9 @@ server {
 
         expires 1d;
     }
+
+    location ~ [A-Z] {
+        add_header x-rewrite 1;
+        rewrite ^(.*)$ $scheme://$host$uri_lowercase permanent;
+    }
 }