Mercurial > hg > nginx-tests
annotate fastcgi_header_params.t @ 1912:f61d1b4ac638
Tests: unbreak quic_ciphers.t with AEAD_AES_128_CCM enabled.
Although CCM ciphers are disabled in a stock OpenSSL as rarely used,
"to reduce ClientHello bloat", AEAD_AES_128_CCM is apparently turned
back in certain distributions such as RHEL. Previously, this caused
testing connections to fail as the CCM cipher being negotiated isn't
supported yet in nginx. Now the test is skipped instead on failure.
While here, fixed nearby style.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Wed, 14 Jun 2023 16:57:01 +0400 |
parents | b7d0e595e927 |
children | a095b971fbcc |
rev | line source |
---|---|
153
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
1 #!/usr/bin/perl |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
2 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
3 # (C) Maxim Dounin |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
4 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
5 # Test for fastcgi header params. |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
6 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
7 ############################################################################### |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
8 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
9 use warnings; |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
10 use strict; |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
11 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
12 use Test::More; |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
13 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
14 BEGIN { use FindBin; chdir($FindBin::Bin); } |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
15 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
16 use lib 'lib'; |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
17 use Test::Nginx; |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
18 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
19 ############################################################################### |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
20 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
21 select STDERR; $| = 1; |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
22 select STDOUT; $| = 1; |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
23 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
24 eval { require FCGI; }; |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
25 plan(skip_all => 'FCGI not installed') if $@; |
221
8d2c6358d830
Tests: avoid using FCGI on win32.
Maxim Dounin <mdounin@mdounin.ru>
parents:
166
diff
changeset
|
26 plan(skip_all => 'win32') if $^O eq 'MSWin32'; |
153
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
27 |
1763
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
28 my $t = Test::Nginx->new()->has(qw/http fastcgi/)->plan(4) |
153
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
29 ->write_file_expand('nginx.conf', <<'EOF'); |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
30 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
31 %%TEST_GLOBALS%% |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
32 |
249
6a0d934950bc
Tests: remove extra spaces in "daemon off".
Maxim Dounin <mdounin@mdounin.ru>
parents:
241
diff
changeset
|
33 daemon off; |
153
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
34 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
35 events { |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
36 } |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
37 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
38 http { |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
39 %%TEST_GLOBALS_HTTP%% |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
40 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
41 server { |
974
882267679006
Tests: simplified parallel modifications in tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
952
diff
changeset
|
42 listen 127.0.0.1:8080; |
153
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
43 server_name localhost; |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
44 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
45 location / { |
974
882267679006
Tests: simplified parallel modifications in tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
952
diff
changeset
|
46 fastcgi_pass 127.0.0.1:8081; |
153
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
47 fastcgi_param HTTP_X_BLAH "blah"; |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
48 } |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
49 } |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
50 } |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
51 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
52 EOF |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
53 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
54 $t->run_daemon(\&fastcgi_daemon); |
974
882267679006
Tests: simplified parallel modifications in tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
952
diff
changeset
|
55 $t->run()->waitforsocket('127.0.0.1:' . port(8081)); |
153
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
56 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
57 ############################################################################### |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
58 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
59 like(http_get_headers('/'), qr/SEE-THIS/, |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
60 'fastcgi request with many ignored headers'); |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
61 |
1763
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
62 TODO: { |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
63 local $TODO = 'not yet' unless $t->has_version('1.23.0'); |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
64 |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
65 my $r; |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
66 |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
67 $r = http(<<EOF); |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
68 GET / HTTP/1.0 |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
69 Host: localhost |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
70 X-Forwarded-For: foo |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
71 X-Forwarded-For: bar |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
72 X-Forwarded-For: bazz |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
73 Cookie: foo |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
74 Cookie: bar |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
75 Cookie: bazz |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
76 Foo: foo |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
77 Foo: bar |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
78 Foo: bazz |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
79 |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
80 EOF |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
81 |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
82 like($r, qr/X-Forwarded-For: foo, bar, bazz/, |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
83 'fastcgi with multiple X-Forwarded-For headers'); |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
84 |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
85 like($r, qr/X-Cookie: foo; bar; bazz/, |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
86 'fastcgi with multiple Cookie headers'); |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
87 |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
88 like($r, qr/X-Foo: foo, bar, bazz/, |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
89 'fastcgi with multiple unknown headers'); |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
90 |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
91 } |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
92 |
153
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
93 ############################################################################### |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
94 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
95 sub http_get_headers { |
589
a9569f57da98
Tests: whitespaces fix.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
295
diff
changeset
|
96 my ($url, %extra) = @_; |
a9569f57da98
Tests: whitespaces fix.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
295
diff
changeset
|
97 return http(<<EOF, %extra); |
153
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
98 GET $url HTTP/1.0 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
99 Host: localhost |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
100 X-Blah: ignored header |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
101 X-Blah: ignored header |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
102 X-Blah: ignored header |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
103 X-Blah: ignored header |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
104 X-Blah: ignored header |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
105 X-Blah: ignored header |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
106 X-Blah: ignored header |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
107 X-Blah: ignored header |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
108 X-Blah: ignored header |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
109 X-Blah: ignored header |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
110 X-Blah: ignored header |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
111 X-Blah: ignored header |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
112 X-Blah: ignored header |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
113 X-Blah: ignored header |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
114 X-Blah: ignored header |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
115 X-Blah: ignored header |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
116 X-Blah: ignored header |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
117 X-Blah: ignored header |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
118 X-Blah: ignored header |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
119 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
120 EOF |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
121 } |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
122 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
123 ############################################################################### |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
124 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
125 sub fastcgi_daemon { |
974
882267679006
Tests: simplified parallel modifications in tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
952
diff
changeset
|
126 my $socket = FCGI::OpenSocket('127.0.0.1:' . port(8081), 5); |
153
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
127 my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV, |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
128 $socket); |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
129 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
130 my $count; |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
131 while( $request->Accept() >= 0 ) { |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
132 $count++; |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
133 |
1763
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
134 my $xfwd = $ENV{HTTP_X_FORWARDED_FOR} || ''; |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
135 my $cookie = $ENV{HTTP_COOKIE} || ''; |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
136 my $foo = $ENV{HTTP_FOO} || ''; |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
137 |
153
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
138 print <<EOF; |
952
e9064d691790
Tests: converted tests to run in parallel.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
589
diff
changeset
|
139 Location: http://localhost/redirect |
153
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
140 Content-Type: text/html |
1763
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
141 X-Forwarded-For: $xfwd |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
142 X-Cookie: $cookie |
b7d0e595e927
Tests: fastcgi tests for combining headers.
Maxim Dounin <mdounin@mdounin.ru>
parents:
974
diff
changeset
|
143 X-Foo: $foo |
153
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
144 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
145 SEE-THIS |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
146 $count |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
147 EOF |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
148 } |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
149 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
150 FCGI::CloseSocket($socket); |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
151 } |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
152 |
26cf61c5ac35
Tests: fastcgi header params test.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
153 ############################################################################### |