| #!perl | |
| #test internal redirects | |
| my %loc = ( | |
| internal => "/test.html", | |
| remote => "http://perl.apache.org/", | |
| content => "/content.html", | |
| ); | |
| my $ix = $ENV{QUERY_STRING} || "internal"; | |
| print "Content-type: text/plain\n"; | |
| print "Location: $loc{$ix}\n\n"; | |
| print "shouldn't see this"; | |