diff options
Diffstat (limited to 'data/lighttpd/lighttpd-1.4.53/tests/docroot/www/404.pl')
-rwxr-xr-x | data/lighttpd/lighttpd-1.4.53/tests/docroot/www/404.pl | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/data/lighttpd/lighttpd-1.4.53/tests/docroot/www/404.pl b/data/lighttpd/lighttpd-1.4.53/tests/docroot/www/404.pl new file mode 100755 index 000000000..5b5672cf1 --- /dev/null +++ b/data/lighttpd/lighttpd-1.4.53/tests/docroot/www/404.pl @@ -0,0 +1,42 @@ +#!/usr/bin/env perl + +my $request_uri = $ENV{'REQUEST_URI'}; + +if ($request_uri =~ m/^\/dynamic\/200\// ) { + print "Status: 200\n", + "Content-Type: text/plain\n", + "\n", + "found here\n"; +} +elsif ($request_uri =~ m|^/dynamic/302/| ) { + print "Status: 302\n", + "Location: http://www.example.org/\n", + "\n"; +} +elsif ($request_uri =~ m/^\/dynamic\/404\// ) { + print "Status: 404\n", + "Content-Type: text/plain\n", + "\n", + "Not found here\n"; +} +elsif ($request_uri =~ m/^\/send404\.pl/ ) { + print "Status: 404\n", + "Content-Type: text/plain\n", + "\n", + "Not found here (send404)\n"; +} +elsif ($request_uri =~ m/^\/dynamic\/nostatus\// ) { + print ("found here\n"); +} +elsif ($request_uri =~ m/^\/dynamic\/redirect_status\// ) { + print "Status: $ENV{'REDIRECT_STATUS'}\n", + "Content-Type: text/plain\n", + "\n", + "REDIRECT_STATUS\n"; +} +else { + print "Status: 500\n", + "Content-Type: text/plain\n", + "\n", + "huh\n"; +}; |