diff options
Diffstat (limited to 'tests/docroot')
-rwxr-xr-x | tests/docroot/www/404.pl | 11 | ||||
-rwxr-xr-x | tests/docroot/www/send404.pl | 5 |
2 files changed, 15 insertions, 1 deletions
diff --git a/tests/docroot/www/404.pl b/tests/docroot/www/404.pl index 7c6d29bc..0f743d03 100755 --- a/tests/docroot/www/404.pl +++ b/tests/docroot/www/404.pl @@ -3,6 +3,7 @@ use CGI qw/:standard/; my $cgi = new CGI; my $request_uri = $ENV{'REQUEST_URI'}; print (STDERR "REQUEST_URI: $request_uri\n"); + if ($request_uri =~ m/^\/dynamic\/200\// ) { print header ( -status => 200, -type => 'text/plain' ); @@ -17,8 +18,16 @@ elsif ($request_uri =~ m/^\/dynamic\/404\// ) { -type => 'text/plain' ); print ("Not found here\n"); } +elsif ($request_uri =~ m/^\/send404\.pl/ ) { + print header ( -status => 404 + -type => 'text/plain' ); + print ("Not found here (send404)\n"); +} +elsif ($request_uri =~ m/^\/dynamic\/nostatus\// ) { + print ("found here\n"); +} else { - print header ( -status => 404, + print header ( -status => 500, -type => 'text/plain'); print ("huh\n"); }; diff --git a/tests/docroot/www/send404.pl b/tests/docroot/www/send404.pl new file mode 100755 index 00000000..a92dfa6c --- /dev/null +++ b/tests/docroot/www/send404.pl @@ -0,0 +1,5 @@ +#!/usr/bin/perl +use CGI qw/:standard/; +print header ( -status => 404 + -type => 'text/plain' ); +print ("send404\n"); |