data/lighttpd/lighttpd-1.4.53/tests/docroot/www/cgi.pl


1
2
3
4
5
6
7
8
9
10
11
12

#!/usr/bin/env perl

if ($ENV{"QUERY_STRING"} eq "internal-redir") {
    print "Location: /cgi-pathinfo.pl/foo\r\n\r\n";
    exit 0;
}

print "Content-Type: text/html\r\n\r\n";

print $ENV{"SCRIPT_NAME"};

0;