lighttpd 1.4.x
https://www.lighttpd.net/
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
42 lines
1.0 KiB
42 lines
1.0 KiB
#!/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"; |
|
};
|
|
|