tests/docroot/www/cgi.pl

   1 #!/usr/bin/env perl
   2
   3 if ($ENV{"QUERY_STRING"} eq "internal-redir") {
   4     print "Location: /cgi-pathinfo.pl/foo\r\n\r\n";
   5     exit 0;
   6 }
   7
   8 print "Content-Type: text/html\r\n\r\n";
   9
  10 print $ENV{"SCRIPT_NAME"};
  11
  12 0;