| #!/usr/bin/perl |
| # Copyright 2011 The Go Authors. All rights reserved. |
| # Use of this source code is governed by a BSD-style |
| # license that can be found in the LICENSE file. |
| # |
| # Test script run as a child process under cgi_test.go |
| |
| use strict; |
| use CGI; |
| |
| my $q = CGI->new; |
| my $params = $q->Vars; |
| |
| my $NL = "\r\n"; |
| $NL = "\n" if $params->{mode} eq "NL"; |
| |
| my $p = sub { |
| print "$_[0]$NL"; |
| }; |
| |
| # With carriage returns |
| $p->("Content-Type: text/html"); |
| $p->("X-Test-Header: X-Test-Value"); |
| $p->(""); |
| |
| print "test=Hello CGI\n"; |
| |
| foreach my $k (sort keys %$params) { |
| print "param-$k=$params->{$k}\n"; |
| } |
| |
| foreach my $k (sort keys %ENV) { |
| my $clean_env = $ENV{$k}; |
| $clean_env =~ s/[\n\r]//g; |
| print "env-$k=$clean_env\n"; |
| } |
