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