Mercurial > hg > nginx-tests
annotate js_fetch_verify.t @ 1851:0351dee227a8
Tests: unbreak tests with dynamic certificates on stable.
In 74cffa9d4c43, ticket based session reuse is enabled in addition to
using a shared SSL session cache. This changed how a session can be
resumed in a different server:
- for a session ID based resumption, it is resumed in the same context
- when using session tickets, a key name is also checked for matching
- with a ticket callback, this is skipped in favor of callback's logic
This makes 'session id context match' tests fail with session tickets
on stable since ticket key names are unique in distinct SSL contexts.
On the other hand, tests pass on 1.23.2+ due to automatic ticket keys
rotation that installs ticket callback, and using a common shared SSL
session cache.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Tue, 28 Mar 2023 01:36:32 +0400 |
parents | ae8e68cb2231 |
children |
rev | line source |
---|---|
1755
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
1 #!/usr/bin/perl |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
2 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
3 # (C) Sergey Kandaurov |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
4 # (C) Nginx, Inc. |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
5 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
6 # Tests for http njs module, fetch method, backend certificate verification. |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
7 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
8 ############################################################################### |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
9 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
10 use warnings; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
11 use strict; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
12 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
13 use Test::More; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
14 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
15 BEGIN { use FindBin; chdir($FindBin::Bin); } |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
16 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
17 use lib 'lib'; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
18 use Test::Nginx; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
19 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
20 ############################################################################### |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
21 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
22 select STDERR; $| = 1; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
23 select STDOUT; $| = 1; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
24 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
25 my $t = Test::Nginx->new()->has(qw/http http_ssl/) |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
26 ->write_file_expand('nginx.conf', <<'EOF'); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
27 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
28 %%TEST_GLOBALS%% |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
29 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
30 daemon off; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
31 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
32 events { |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
33 } |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
34 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
35 http { |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
36 %%TEST_GLOBALS_HTTP%% |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
37 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
38 js_import test.js; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
39 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
40 server { |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
41 listen 127.0.0.1:8080; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
42 server_name localhost; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
43 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
44 resolver 127.0.0.1:%%PORT_8981_UDP%%; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
45 resolver_timeout 1s; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
46 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
47 location /njs { |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
48 js_content test.njs; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
49 } |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
50 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
51 location /https { |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
52 js_content test.https; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
53 } |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
54 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
55 location /https.verify_off { |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
56 js_content test.https; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
57 js_fetch_verify off; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
58 } |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
59 } |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
60 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
61 server { |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
62 listen 127.0.0.1:8081 ssl; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
63 server_name localhost; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
64 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
65 ssl_certificate localhost.crt; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
66 ssl_certificate_key localhost.key; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
67 } |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
68 } |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
69 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
70 EOF |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
71 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
72 my $p1 = port(8081); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
73 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
74 $t->write_file('test.js', <<EOF); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
75 function test_njs(r) { |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
76 r.return(200, njs.version); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
77 } |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
78 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
79 function https(r) { |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
80 ngx.fetch(`https://example.com:$p1/loc`) |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
81 .then(reply => reply.text()) |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
82 .then(body => r.return(200, body)) |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
83 .catch(e => r.return(501, e.message)); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
84 } |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
85 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
86 export default {njs: test_njs, https}; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
87 EOF |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
88 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
89 $t->write_file('openssl.conf', <<EOF); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
90 [ req ] |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
91 default_bits = 2048 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
92 encrypt_key = no |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
93 distinguished_name = req_distinguished_name |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
94 [ req_distinguished_name ] |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
95 EOF |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
96 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
97 my $d = $t->testdir(); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
98 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
99 foreach my $name ('localhost') { |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
100 system('openssl req -x509 -new ' |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
101 . "-config $d/openssl.conf -subj /CN=$name/ " |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
102 . "-out $d/$name.crt -keyout $d/$name.key " |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
103 . ">>$d/openssl.out 2>&1") == 0 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
104 or die "Can't create certificate for $name: $!\n"; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
105 } |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
106 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
107 $t->try_run('no js_fetch_verify')->plan(2); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
108 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
109 $t->run_daemon(\&dns_daemon, port(8981), $t); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
110 $t->waitforfile($t->testdir . '/' . port(8981)); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
111 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
112 ############################################################################### |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
113 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
114 like(http_get('/https'), qr/connect failed/, 'fetch verify error'); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
115 like(http_get('/https.verify_off'), qr/200 OK/, 'fetch verify off'); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
116 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
117 ############################################################################### |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
118 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
119 sub reply_handler { |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
120 my ($recv_data, $port, %extra) = @_; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
121 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
122 my (@name, @rdata); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
123 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
124 use constant NOERROR => 0; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
125 use constant A => 1; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
126 use constant IN => 1; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
127 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
128 # default values |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
129 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
130 my ($hdr, $rcode, $ttl) = (0x8180, NOERROR, 3600); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
131 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
132 # decode name |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
133 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
134 my ($len, $offset) = (undef, 12); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
135 while (1) { |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
136 $len = unpack("\@$offset C", $recv_data); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
137 last if $len == 0; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
138 $offset++; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
139 push @name, unpack("\@$offset A$len", $recv_data); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
140 $offset += $len; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
141 } |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
142 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
143 $offset -= 1; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
144 my ($id, $type, $class) = unpack("n x$offset n2", $recv_data); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
145 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
146 my $name = join('.', @name); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
147 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
148 if ($type == A) { |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
149 push @rdata, rd_addr($ttl, '127.0.0.1'); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
150 } |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
151 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
152 $len = @name; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
153 pack("n6 (C/a*)$len x n2", $id, $hdr | $rcode, 1, scalar @rdata, |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
154 0, 0, @name, $type, $class) . join('', @rdata); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
155 } |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
156 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
157 sub rd_addr { |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
158 my ($ttl, $addr) = @_; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
159 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
160 my $code = 'split(/\./, $addr)'; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
161 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
162 return pack 'n3N', 0xc00c, A, IN, $ttl if $addr eq ''; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
163 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
164 pack 'n3N nC4', 0xc00c, A, IN, $ttl, eval "scalar $code", eval($code); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
165 } |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
166 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
167 sub dns_daemon { |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
168 my ($port, $t) = @_; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
169 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
170 my ($data, $recv_data); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
171 my $socket = IO::Socket::INET->new( |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
172 LocalAddr => '127.0.0.1', |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
173 LocalPort => $port, |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
174 Proto => 'udp', |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
175 ) |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
176 or die "Can't create listening socket: $!\n"; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
177 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
178 local $SIG{PIPE} = 'IGNORE'; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
179 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
180 # signal we are ready |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
181 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
182 open my $fh, '>', $t->testdir() . '/' . $port; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
183 close $fh; |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
184 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
185 while (1) { |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
186 $socket->recv($recv_data, 65536); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
187 $data = reply_handler($recv_data, $port); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
188 $socket->send($data); |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
189 } |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
190 } |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
191 |
ae8e68cb2231
Tests: added js fetch verify tests.
Sergey Kandaurov <pluknet@nginx.com>
parents:
diff
changeset
|
192 ############################################################################### |