nginx-tests: lib/Test/Nginx/HTTP2.pm annotate

annotate lib/Test/Nginx/HTTP2.pm @ 1677:f13ead27f89c

Tests: improved stop() to send TERM after QUIT. It is possible that graceful stop as initiated by SIGQUIT will take very long time, such as when waiting for proxy_timeout in mail proxy (defaults to 24h). To make sure in such cases nginx is stopped after some reasonable time, we now send SIGTERM after waiting for 90 seconds. Note that win32 version previously used "-s stop", which is equivalent to SIGTERM rather than SIGQUIT. This seems accidental error during introduction of initial win32 support in tests (ce2e23daa1da), so it is changed to follow the same logic.

author	Maxim Dounin <mdounin@mdounin.ru>
date	Wed, 19 May 2021 04:32:55 +0300
parents	3fe652bc9dae
children	e306bd77321d

rev	line source
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1 package Test::Nginx::HTTP2;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	2
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	3 # (C) Sergey Kandaurov
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	4 # (C) Nginx, Inc.
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	5
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	6 # Module for nginx HTTP/2 tests.
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	7
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	8 ###############################################################################
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	9
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	10 use warnings;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	11 use strict;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	12
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	13 use Test::More qw//;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	14 use IO::Select;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	15 use IO::Socket;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	16 use Socket qw/ CRLF /;
911 2668f30181eb Tests: HTTP/2 server frames logging. Sergey Kandaurov <pluknet@nginx.com> parents: 896 diff changeset	17 use Data::Dumper;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	18
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	19 use Test::Nginx;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	20
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	21 my %cframe = (
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	22 0 => { name => 'DATA', value => \&data },
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	23 1 => { name => 'HEADERS', value => \&headers },
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	24 # 2 => { name => 'PRIORITY', value => \&priority },
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	25 3 => { name => 'RST_STREAM', value => \&rst_stream },
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	26 4 => { name => 'SETTINGS', value => \&settings },
1274 0f0ad7acb314 Tests: basic HTTP/2 PUSH_PROMISE support. Sergey Kandaurov <pluknet@nginx.com> parents: 1218 diff changeset	27 5 => { name => 'PUSH_PROMISE', value => \&push_promise },
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	28 6 => { name => 'PING', value => \&ping },
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	29 7 => { name => 'GOAWAY', value => \&goaway },
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	30 8 => { name => 'WINDOW_UPDATE', value => \&window_update },
1089 eedb96f717ff Tests: reset headers context when parsing HEADERS frame. Sergey Kandaurov <pluknet@nginx.com> parents: 1051 diff changeset	31 9 => { name => 'CONTINUATION', value => \&continuation },
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	32 );
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	33
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	34 sub new {
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	35 my $class = shift;
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	36 my ($port, %extra) = @_;
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	37
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	38 my $s = $extra{socket} \|\| new_socket($port, %extra);
1298 84a661563eae Tests: allow to set empty HTTP/2 connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 1278 diff changeset	39 my $preface = defined $extra{preface} ? $extra{preface}
84a661563eae Tests: allow to set empty HTTP/2 connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 1278 diff changeset	40 : 'PRI * HTTP/2.0' . CRLF . CRLF . 'SM' . CRLF . CRLF;
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	41
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	42 my $self = bless {
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	43 socket => $s, last_stream => -1,
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	44 dynamic_encode => [ static_table() ],
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	45 dynamic_decode => [ static_table() ],
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	46 static_table_size => scalar @{[static_table()]},
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	47 iws => 65535, conn_window => 65535, streams => {}
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	48 }, $class;
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	49
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	50 if ($extra{proxy}) {
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	51 $self->raw_write($extra{proxy});
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	52 }
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	53
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	54 # preface
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	55
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	56 $self->raw_write($preface);
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	57
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	58 return $self if $extra{pure};
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	59
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	60 # update windows, if any
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	61
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	62 my $frames = $self->read(all => [
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	63 { type => 'WINDOW_UPDATE' },
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	64 { type => 'SETTINGS'}
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	65 ]);
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	66
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	67 # 6.5.3. Settings Synchronization
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	68
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	69 if (grep { $_->{type} eq "SETTINGS" && $_->{flags} == 0 } @$frames) {
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	70 $self->h2_settings(1);
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	71 }
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	72
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	73 return $self;
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	74 }
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	75
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	76 sub h2_ping {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	77 my ($self, $payload) = @_;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	78
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	79 $self->raw_write(pack("x2C2x5a8", 8, 0x6, $payload));
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	80 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	81
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	82 sub h2_rst {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	83 my ($self, $stream, $error) = @_;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	84
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	85 $self->raw_write(pack("x2C2xNN", 4, 0x3, $stream, $error));
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	86 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	87
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	88 sub h2_goaway {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	89 my ($self, $stream, $lstream, $err, $debug, %extra) = @_;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	90 $debug = '' unless defined $debug;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	91 my $len = defined $extra{len} ? $extra{len} : 8 + length($debug);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	92 my $buf = pack("x2C2xN3A*", $len, 0x7, $stream, $lstream, $err, $debug);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	93
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	94 my @bufs = map {
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	95 $self->raw_write(substr $buf, 0, $_, "");
945 d73bef563aea Tests: speed up HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 943 diff changeset	96 select undef, undef, undef, 0.2;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	97 } @{$extra{split}};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	98
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	99 $self->raw_write($buf);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	100 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	101
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	102 sub h2_priority {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	103 my ($self, $w, $stream, $dep, %extra) = @_;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	104
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	105 $stream = 0 unless defined $stream;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	106 $dep = 0 unless defined $dep;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	107 $dep \|= $extra{excl} << 31 if exists $extra{excl};
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	108 $self->raw_write(pack("x2C2xNNC", 5, 0x2, $stream, $dep, $w));
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	109 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	110
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	111 sub h2_window {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	112 my ($self, $win, $stream) = @_;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	113
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	114 $stream = 0 unless defined $stream;
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	115 $self->raw_write(pack("x2C2xNN", 4, 0x8, $stream, $win));
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	116 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	117
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	118 sub h2_settings {
1181 eb813f7e0bfa Tests: adjusted HTTP2.pm to send SETTINGS params in a given order. Sergey Kandaurov <pluknet@nginx.com> parents: 1089 diff changeset	119 my ($self, $ack, @pairs) = @_;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	120
1181 eb813f7e0bfa Tests: adjusted HTTP2.pm to send SETTINGS params in a given order. Sergey Kandaurov <pluknet@nginx.com> parents: 1089 diff changeset	121 my $len = 6 * @pairs / 2;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	122 my $buf = pack_length($len) . pack "CCx4", 0x4, $ack ? 0x1 : 0x0;
1181 eb813f7e0bfa Tests: adjusted HTTP2.pm to send SETTINGS params in a given order. Sergey Kandaurov <pluknet@nginx.com> parents: 1089 diff changeset	123 $buf .= pack "nN", splice @pairs, 0, 2 while @pairs;
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	124 $self->raw_write($buf);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	125 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	126
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	127 sub h2_unknown {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	128 my ($self, $payload) = @_;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	129
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	130 my $buf = pack_length(length($payload)) . pack("Cx5a*", 0xa, $payload);
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	131 $self->raw_write($buf);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	132 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	133
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	134 sub h2_continue {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	135 my ($ctx, $stream, $uri) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	136
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	137 $uri->{h2_continue} = 1;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	138 return new_stream($ctx, $uri, $stream);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	139 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	140
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	141 sub h2_body {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	142 my ($self, $body, $extra) = @_;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	143 $extra = {} unless defined $extra;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	144
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	145 my $len = length $body;
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	146 my $sid = $self->{last_stream};
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	147
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	148 if ($len > $self->{conn_window} \|\| $len > $self->{streams}{$sid}) {
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	149 $self->read(all => [{ type => 'WINDOW_UPDATE' }]);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	150 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	151
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	152 if ($len > $self->{conn_window} \|\| $len > $self->{streams}{$sid}) {
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	153 return;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	154 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	155
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	156 $self->{conn_window} -= $len;
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	157 $self->{streams}{$sid} -= $len;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	158
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	159 my $buf;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	160
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	161 my $split = ref $extra->{body_split} && $extra->{body_split} \|\| [];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	162 for (@$split) {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	163 $buf .= pack_body($self, substr($body, 0, $_, ""), 0x0, $extra);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	164 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	165
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	166 $buf .= pack_body($self, $body, 0x1, $extra) if defined $body;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	167
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	168 $split = ref $extra->{split} && $extra->{split} \|\| [];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	169 for (@$split) {
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	170 $self->raw_write(substr($buf, 0, $_, ""));
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	171 return if $extra->{abort};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	172 select undef, undef, undef, ($extra->{split_delay} \|\| 0.2);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	173 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	174
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	175 $self->raw_write($buf);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	176 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	177
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	178 sub new_stream {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	179 my ($self, $uri, $stream) = @_;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	180 my ($input, $buf);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	181 my ($d, $status);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	182
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	183 $self->{headers} = '';
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	184
943 0d4536093b39 Tests: changed default HTTP2 host header to localhost. Andrey Zelenkov <zelenkov@nginx.com> parents: 937 diff changeset	185 my $host = $uri->{host} \|\| 'localhost';
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	186 my $method = $uri->{method} \|\| 'GET';
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	187 my $scheme = $uri->{scheme} \|\| 'http';
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	188 my $path = $uri->{path} \|\| '/';
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	189 my $headers = $uri->{headers};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	190 my $body = $uri->{body};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	191 my $prio = $uri->{prio};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	192 my $dep = $uri->{dep};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	193
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	194 my $pad = defined $uri->{padding} ? $uri->{padding} : 0;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	195 my $padlen = defined $uri->{padding} ? 1 : 0;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	196
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	197 my $type = defined $uri->{h2_continue} ? 0x9 : 0x1;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	198 my $flags = defined $uri->{continuation} ? 0x0 : 0x4;
1299 28e5f1fa80e1 Tests: do not set undefined flag 0x1 for HTTP/2 CONTINUATION frame. Sergey Kandaurov <pluknet@nginx.com> parents: 1298 diff changeset	199 $flags \|= 0x1 unless defined $body \|\| defined $uri->{body_more}
28e5f1fa80e1 Tests: do not set undefined flag 0x1 for HTTP/2 CONTINUATION frame. Sergey Kandaurov <pluknet@nginx.com> parents: 1298 diff changeset	200 \|\| defined $uri->{h2_continue};
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	201 $flags \|= 0x8 if $padlen;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	202 $flags \|= 0x20 if defined $dep \|\| defined $prio;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	203
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	204 if ($stream) {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	205 $self->{last_stream} = $stream;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	206 } else {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	207 $self->{last_stream} += 2;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	208 }
1300 940e04c58a79 Tests: fixed initial window size for HTTP/2 streams with given ID. Sergey Kandaurov <pluknet@nginx.com> parents: 1299 diff changeset	209 $self->{streams}{$self->{last_stream}} = $self->{iws};
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	210
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	211 $buf = pack("xxx"); # Length stub
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	212 $buf .= pack("CC", $type, $flags); # END_HEADERS
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	213 $buf .= pack("N", $self->{last_stream}); # Stream-ID
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	214
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	215 $dep = 0 if defined $prio and not defined $dep;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	216 $prio = 16 if defined $dep and not defined $prio;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	217
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	218 unless ($headers) {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	219 $input = hpack($self, ":method", $method);
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	220 $input .= hpack($self, ":scheme", $scheme);
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	221 $input .= hpack($self, ":path", $path);
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	222 $input .= hpack($self, ":authority", $host);
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	223 $input .= hpack($self, "content-length", length($body))
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	224 if $body;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	225
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	226 } else {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	227 $input = join '', map {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	228 hpack($self, $_->{name}, $_->{value},
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	229 mode => $_->{mode}, huff => $_->{huff})
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	230 } @$headers if $headers;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	231 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	232
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	233 $input = pack("B*", '001' . ipack(5, $uri->{table_size})) . $input
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	234 if defined $uri->{table_size};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	235
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	236 my $split = ref $uri->{continuation} && $uri->{continuation} \|\| [];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	237 my @input = map { substr $input, 0, $_, "" } @$split;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	238 push @input, $input;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	239
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	240 # set length, attach headers, padding, priority
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	241
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	242 my $hlen = length($input[0]) + $pad + $padlen;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	243 $hlen += 5 if $flags & 0x20;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	244 $buf \|= pack_length($hlen);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	245
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	246 $buf .= pack 'C', $pad if $padlen; # Pad Length?
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	247 $buf .= pack 'NC', $dep, $prio if $flags & 0x20;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	248 $buf .= $input[0];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	249 $buf .= (pack 'C', 0) x $pad if $padlen; # Padding
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	250
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	251 shift @input;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	252
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	253 while (@input) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	254 $input = shift @input;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	255 $flags = @input ? 0x0 : 0x4;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	256 $buf .= pack_length(length($input));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	257 $buf .= pack("CC", 0x9, $flags);
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	258 $buf .= pack("N", $self->{last_stream});
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	259 $buf .= $input;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	260 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	261
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	262 $split = ref $uri->{body_split} && $uri->{body_split} \|\| [];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	263 for (@$split) {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	264 $buf .= pack_body($self, substr($body, 0, $_, ""), 0x0, $uri);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	265 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	266
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	267 $buf .= pack_body($self, $body, 0x1, $uri) if defined $body;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	268
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	269 $split = ref $uri->{split} && $uri->{split} \|\| [];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	270 for (@$split) {
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	271 $self->raw_write(substr($buf, 0, $_, ""));
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	272 goto done if $uri->{abort};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	273 select undef, undef, undef, ($uri->{split_delay} \|\| 0.2);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	274 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	275
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	276 $self->raw_write($buf);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	277 done:
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	278 return $self->{last_stream};
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	279 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	280
948 4dc302d8e04f Tests: changed HTTP2 package to act as a class. Sergey Kandaurov <pluknet@nginx.com> parents: 945 diff changeset	281 sub read {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	282 my ($self, %extra) = @_;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	283 my (@got);
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	284 my $s = $self->{socket};
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	285 my $buf = '';
945 d73bef563aea Tests: speed up HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 943 diff changeset	286 my $wait = $extra{wait};
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	287
911 2668f30181eb Tests: HTTP/2 server frames logging. Sergey Kandaurov <pluknet@nginx.com> parents: 896 diff changeset	288 local $Data::Dumper::Terse = 1;
2668f30181eb Tests: HTTP/2 server frames logging. Sergey Kandaurov <pluknet@nginx.com> parents: 896 diff changeset	289
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	290 while (1) {
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	291 $buf = $self->raw_read($buf, 9, $wait);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	292 last if length $buf < 9;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	293
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	294 my $length = unpack_length($buf);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	295 my $type = unpack('x3C', $buf);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	296 my $flags = unpack('x4C', $buf);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	297
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	298 my $stream = unpack "x5 B32", $buf;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	299 substr($stream, 0, 1) = 0;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	300 $stream = unpack("N", pack("B32", $stream));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	301
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	302 $buf = $self->raw_read($buf, $length + 9, $wait);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	303 last if length($buf) < $length + 9;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	304
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	305 $buf = substr($buf, 9);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	306
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	307 my $frame = $cframe{$type}{value}($self, $buf, $length, $flags,
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	308 $stream);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	309 $frame->{length} = $length;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	310 $frame->{type} = $cframe{$type}{name};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	311 $frame->{flags} = $flags;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	312 $frame->{sid} = $stream;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	313 push @got, $frame;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	314
911 2668f30181eb Tests: HTTP/2 server frames logging. Sergey Kandaurov <pluknet@nginx.com> parents: 896 diff changeset	315 Test::Nginx::log_core('\|\|', $_) for split "\n", Dumper $frame;
2668f30181eb Tests: HTTP/2 server frames logging. Sergey Kandaurov <pluknet@nginx.com> parents: 896 diff changeset	316
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	317 $buf = substr($buf, $length);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	318
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	319 last unless $extra{all} && test_fin($got[-1], $extra{all});
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	320 };
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	321 return \@got;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	322 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	323
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	324 sub raw_read {
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	325 my ($self, $buf, $len, $timo) = @_;
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	326 $timo = 8 unless $timo;
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	327 my $got = '';
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	328 my $s = $self->{socket};
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	329
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	330 while (length($buf) < $len && IO::Select->new($s)->can_read($timo)) {
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	331 $s->sysread($got, 16384) or last;
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	332 log_in($got);
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	333 $buf .= $got;
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	334 }
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	335 return $buf;
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	336 }
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	337
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	338 sub raw_write {
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	339 my ($self, $message) = @_;
1623 3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	340
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	341 if ($self->{chaining}) {
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	342 return add_chain($self, $message);
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	343 }
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	344
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	345 my $s = $self->{socket};
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	346
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	347 local $SIG{PIPE} = 'IGNORE';
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	348
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	349 while (IO::Select->new($s)->can_write(0.4)) {
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	350 log_out($message);
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	351 my $n = $s->syswrite($message);
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	352 last unless $n;
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	353 $message = substr($message, $n);
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	354 last unless length $message;
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	355 }
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	356 }
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	357
1623 3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	358 sub start_chain {
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	359 my ($self) = @_;
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	360
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	361 $self->{chaining} = 1;
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	362 }
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	363
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	364 sub add_chain {
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	365 my ($self, $buf) = @_;
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	366
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	367 if ($self->{chained_buf}) {
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	368 $self->{chained_buf} .= $buf;
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	369 } else {
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	370 $self->{chained_buf} = $buf;
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	371 }
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	372 }
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	373
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	374 sub send_chain {
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	375 my ($self) = @_;
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	376
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	377 undef $self->{chaining};
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	378 $self->raw_write($self->{chained_buf}) if $self->{chained_buf};
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	379 undef $self->{chained_buf};
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	380 }
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	381
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	382 ###############################################################################
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	383
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	384 sub pack_body {
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	385 my ($ctx, $body, $flags, $extra) = @_;
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	386
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	387 my $pad = defined $extra->{body_padding} ? $extra->{body_padding} : 0;
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	388 my $padlen = defined $extra->{body_padding} ? 1 : 0;
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	389
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	390 my $buf = pack_length(length($body) + $pad + $padlen);
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	391 $flags \|= 0x8 if $padlen;
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	392 vec($flags, 0, 1) = 0 if $extra->{body_more};
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	393 $buf .= pack 'CC', 0x0, $flags; # DATA, END_STREAM
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	394 $buf .= pack 'N', $ctx->{last_stream};
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	395 $buf .= pack 'C', $pad if $padlen; # DATA Pad Length?
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	396 $buf .= $body;
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	397 $buf .= pack "x$pad" if $padlen; # DATA Padding
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	398 return $buf;
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	399 }
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	400
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	401 sub test_fin {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	402 my ($frame, $all) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	403 my @test = @{$all};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	404
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	405 # wait for the specified DATA length
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	406
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	407 for (@test) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	408 if ($_->{length} && $frame->{type} eq 'DATA') {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	409 # check also for StreamID if needed
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	410
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	411 if (!$_->{sid} \|\| $_->{sid} == $frame->{sid}) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	412 $_->{length} -= $frame->{length};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	413 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	414 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	415 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	416 @test = grep { !(defined $_->{length} && $_->{length} == 0) } @test;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	417
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	418 # wait for the fin flag
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	419
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	420 @test = grep { !(defined $_->{fin}
1301 d6382e557fc0 Tests: allow to wait reading unspecified HTTP/2 stream ID. Sergey Kandaurov <pluknet@nginx.com> parents: 1300 diff changeset	421 && (!defined $_->{sid} \|\| $_->{sid} == $frame->{sid})
d6382e557fc0 Tests: allow to wait reading unspecified HTTP/2 stream ID. Sergey Kandaurov <pluknet@nginx.com> parents: 1300 diff changeset	422 && $_->{fin} & $frame->{flags})
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	423 } @test if defined $frame->{flags};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	424
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	425 # wait for the specified frame
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	426
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	427 @test = grep { !($_->{type} && $_->{type} eq $frame->{type}) } @test;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	428
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	429 @{$all} = @test;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	430 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	431
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	432 sub headers {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	433 my ($ctx, $buf, $len, $flags) = @_;
1089 eedb96f717ff Tests: reset headers context when parsing HEADERS frame. Sergey Kandaurov <pluknet@nginx.com> parents: 1051 diff changeset	434 $ctx->{headers} = substr($buf, 0, $len);
eedb96f717ff Tests: reset headers context when parsing HEADERS frame. Sergey Kandaurov <pluknet@nginx.com> parents: 1051 diff changeset	435 return unless $flags & 0x4;
eedb96f717ff Tests: reset headers context when parsing HEADERS frame. Sergey Kandaurov <pluknet@nginx.com> parents: 1051 diff changeset	436 { headers => hunpack($ctx, $buf, $len) };
eedb96f717ff Tests: reset headers context when parsing HEADERS frame. Sergey Kandaurov <pluknet@nginx.com> parents: 1051 diff changeset	437 }
eedb96f717ff Tests: reset headers context when parsing HEADERS frame. Sergey Kandaurov <pluknet@nginx.com> parents: 1051 diff changeset	438
eedb96f717ff Tests: reset headers context when parsing HEADERS frame. Sergey Kandaurov <pluknet@nginx.com> parents: 1051 diff changeset	439 sub continuation {
eedb96f717ff Tests: reset headers context when parsing HEADERS frame. Sergey Kandaurov <pluknet@nginx.com> parents: 1051 diff changeset	440 my ($ctx, $buf, $len, $flags) = @_;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	441 $ctx->{headers} .= substr($buf, 0, $len);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	442 return unless $flags & 0x4;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	443 { headers => hunpack($ctx, $ctx->{headers}, length($ctx->{headers})) };
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	444 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	445
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	446 sub data {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	447 my ($ctx, $buf, $len) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	448 return { data => substr($buf, 0, $len) };
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	449 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	450
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	451 sub settings {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	452 my ($ctx, $buf, $len) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	453 my %payload;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	454 my $skip = 0;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	455
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	456 for (1 .. $len / 6) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	457 my $id = hex unpack "\@$skip n", $buf; $skip += 2;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	458 $payload{$id} = unpack "\@$skip N", $buf; $skip += 4;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	459
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	460 $ctx->{iws} = $payload{$id} if $id == 4;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	461 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	462 return \%payload;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	463 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	464
1274 0f0ad7acb314 Tests: basic HTTP/2 PUSH_PROMISE support. Sergey Kandaurov <pluknet@nginx.com> parents: 1218 diff changeset	465 sub push_promise {
0f0ad7acb314 Tests: basic HTTP/2 PUSH_PROMISE support. Sergey Kandaurov <pluknet@nginx.com> parents: 1218 diff changeset	466 my ($ctx, $buf, $len, $flags) = @_;
1278 6d065c9a3b1f Tests: fixed HTTP/2 PUSH_PROMISE frame parsing. Sergey Kandaurov <pluknet@nginx.com> parents: 1274 diff changeset	467 $len -= 4;
1274 0f0ad7acb314 Tests: basic HTTP/2 PUSH_PROMISE support. Sergey Kandaurov <pluknet@nginx.com> parents: 1218 diff changeset	468
0f0ad7acb314 Tests: basic HTTP/2 PUSH_PROMISE support. Sergey Kandaurov <pluknet@nginx.com> parents: 1218 diff changeset	469 { promised => unpack("N", $buf),
0f0ad7acb314 Tests: basic HTTP/2 PUSH_PROMISE support. Sergey Kandaurov <pluknet@nginx.com> parents: 1218 diff changeset	470 headers => hunpack($ctx, substr($buf, 4, $len), $len) };
0f0ad7acb314 Tests: basic HTTP/2 PUSH_PROMISE support. Sergey Kandaurov <pluknet@nginx.com> parents: 1218 diff changeset	471 }
0f0ad7acb314 Tests: basic HTTP/2 PUSH_PROMISE support. Sergey Kandaurov <pluknet@nginx.com> parents: 1218 diff changeset	472
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	473 sub ping {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	474 my ($ctx, $buf, $len) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	475 return { value => unpack "A$len", $buf };
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	476 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	477
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	478 sub rst_stream {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	479 my ($ctx, $buf, $len) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	480 return { code => unpack "N", $buf };
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	481 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	482
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	483 sub goaway {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	484 my ($ctx, $buf, $len) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	485 my %payload;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	486
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	487 my $stream = unpack "B32", $buf;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	488 substr($stream, 0, 1) = 0;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	489 $stream = unpack("N", pack("B32", $stream));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	490 $payload{last_sid} = $stream;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	491
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	492 $len -= 4;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	493 $payload{code} = unpack "x4 N", $buf;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	494 $payload{debug} = unpack "x8 A$len", $buf;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	495 return \%payload;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	496 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	497
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	498 sub window_update {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	499 my ($ctx, $buf, $len, $flags, $sid) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	500 my $value = unpack "B32", $buf;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	501 substr($value, 0, 1) = 0;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	502 $value = unpack("N", pack("B32", $value));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	503
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	504 unless ($sid) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	505 $ctx->{conn_window} += $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	506
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	507 } else {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	508 $ctx->{streams}{$sid} = $ctx->{iws}
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	509 unless defined $ctx->{streams}{$sid};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	510 $ctx->{streams}{$sid} += $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	511 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	512
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	513 return { wdelta => $value };
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	514 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	515
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	516 sub pack_length {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	517 pack 'c3', unpack 'xc3', pack 'N', $_[0];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	518 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	519
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	520 sub unpack_length {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	521 unpack 'N', pack 'xc3', unpack 'c3', $_[0];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	522 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	523
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	524 sub new_socket {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	525 my ($port, %extra) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	526 my $npn = $extra{'npn'};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	527 my $alpn = $extra{'alpn'};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	528 my $s;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	529
969 1edb092149e2 Tests: simplified parallel tests. Maxim Dounin <mdounin@mdounin.ru> parents: 951 diff changeset	530 $port \|\|= port(8080);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	531
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	532 eval {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	533 local $SIG{ALRM} = sub { die "timeout\n" };
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	534 local $SIG{PIPE} = sub { die "sigpipe\n" };
1421 4e48bf51714f Tests: aligned various generic read timeouts to http_end(). Sergey Kandaurov <pluknet@nginx.com> parents: 1406 diff changeset	535 alarm(8);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	536 $s = IO::Socket::INET->new(
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	537 Proto => 'tcp',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	538 PeerAddr => "127.0.0.1:$port",
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	539 );
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	540 require IO::Socket::SSL if $extra{'SSL'};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	541 IO::Socket::SSL->start_SSL($s,
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	542 SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE(),
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	543 SSL_npn_protocols => $npn ? [ $npn ] : undef,
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	544 SSL_alpn_protocols => $alpn ? [ $alpn ] : undef,
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	545 SSL_error_trap => sub { die $_[1] }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	546 ) if $extra{'SSL'};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	547 alarm(0);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	548 };
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	549 alarm(0);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	550
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	551 if ($@) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	552 log_in("died: $@");
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	553 return undef;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	554 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	555
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	556 return $s;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	557 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	558
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	559 sub static_table {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	560 [ '', '' ], # unused
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	561 [ ':authority', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	562 [ ':method', 'GET' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	563 [ ':method', 'POST' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	564 [ ':path', '/' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	565 [ ':path', '/index.html' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	566 [ ':scheme', 'http' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	567 [ ':scheme', 'https' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	568 [ ':status', '200' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	569 [ ':status', '204' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	570 [ ':status', '206' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	571 [ ':status', '304' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	572 [ ':status', '400' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	573 [ ':status', '404' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	574 [ ':status', '500' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	575 [ 'accept-charset', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	576 [ 'accept-encoding', 'gzip, deflate' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	577 [ 'accept-language', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	578 [ 'accept-ranges', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	579 [ 'accept', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	580 [ 'access-control-allow-origin',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	581 '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	582 [ 'age', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	583 [ 'allow', '' ],
937 b1fa8e0cc27b Tests: whitespaces fix. Andrey Zelenkov <zelenkov@nginx.com> parents: 932 diff changeset	584 [ 'authorization', '' ],
b1fa8e0cc27b Tests: whitespaces fix. Andrey Zelenkov <zelenkov@nginx.com> parents: 932 diff changeset	585 [ 'cache-control', '' ],
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	586 [ 'content-disposition',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	587 '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	588 [ 'content-encoding', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	589 [ 'content-language', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	590 [ 'content-length', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	591 [ 'content-location', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	592 [ 'content-range', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	593 [ 'content-type', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	594 [ 'cookie', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	595 [ 'date', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	596 [ 'etag', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	597 [ 'expect', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	598 [ 'expires', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	599 [ 'from', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	600 [ 'host', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	601 [ 'if-match', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	602 [ 'if-modified-since', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	603 [ 'if-none-match', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	604 [ 'if-range', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	605 [ 'if-unmodified-since',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	606 '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	607 [ 'last-modified', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	608 [ 'link', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	609 [ 'location', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	610 [ 'max-forwards', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	611 [ 'proxy-authenticate', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	612 [ 'proxy-authorization',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	613 '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	614 [ 'range', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	615 [ 'referer', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	616 [ 'refresh', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	617 [ 'retry-after', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	618 [ 'server', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	619 [ 'set-cookie', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	620 [ 'strict-transport-security',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	621 '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	622 [ 'transfer-encoding', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	623 [ 'user-agent', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	624 [ 'vary', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	625 [ 'via', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	626 [ 'www-authenticate', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	627 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	628
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	629 # RFC 7541, 5.1. Integer Representation
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	630
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	631 sub ipack {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	632 my ($base, $d) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	633 return sprintf("%.b", $base, $d) if $d < 2*$base - 1;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	634
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	635 my $o = sprintf("%${base}b", 2**$base - 1);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	636 $d -= 2**$base - 1;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	637 while ($d >= 128) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	638 $o .= sprintf("%8b", $d % 128 + 128);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	639 $d /= 128;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	640 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	641 $o .= sprintf("%08b", $d);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	642 return $o;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	643 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	644
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	645 sub iunpack {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	646 my ($base, $b, $s) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	647
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	648 my $len = unpack("\@$s B8", $b); $s++;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	649 my $prefix = substr($len, 0, 8 - $base);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	650 $len = '0' x (8 - $base) . substr($len, 8 - $base);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	651 $len = unpack("C", pack("B8", $len));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	652
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	653 return ($len, $s, $prefix) if $len < 2**$base - 1;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	654
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	655 my $m = 0;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	656 my $d;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	657
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	658 do {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	659 $d = unpack("\@$s C", $b); $s++;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	660 $len += ($d & 127) * 2**$m;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	661 $m += $base;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	662 } while (($d & 128) == 128);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	663
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	664 return ($len, $s, $prefix);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	665 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	666
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	667 sub hpack {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	668 my ($ctx, $name, $value, %extra) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	669 my $table = $ctx->{dynamic_encode};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	670 my $mode = defined $extra{mode} ? $extra{mode} : 1;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	671 my $huff = $extra{huff};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	672
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	673 my ($index, $buf) = 0;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	674
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	675 # 6.1. Indexed Header Field Representation
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	676
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	677 if ($mode == 0) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	678 ++$index until $index > $#$table
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	679 or $table->[$index][0] eq $name
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	680 and $table->[$index][1] eq $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	681 $buf = pack('B*', '1' . ipack(7, $index));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	682 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	683
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	684 # 6.2.1. Literal Header Field with Incremental Indexing
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	685
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	686 if ($mode == 1) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	687 splice @$table, $ctx->{static_table_size}, 0, [ $name, $value ];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	688
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	689 ++$index until $index > $#$table
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	690 or $table->[$index][0] eq $name;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	691 my $value = $huff ? huff($value) : $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	692
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	693 $buf = pack('B*', '01' . ipack(6, $index)
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	694 . ($huff ? '1' : '0') . ipack(7, length($value)));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	695 $buf .= $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	696 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	697
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	698 # 6.2.1. Literal Header Field with Incremental Indexing -- New Name
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	699
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	700 if ($mode == 2) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	701 splice @$table, $ctx->{static_table_size}, 0, [ $name, $value ];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	702
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	703 my $name = $huff ? huff($name) : $name;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	704 my $value = $huff ? huff($value) : $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	705 my $hbit = ($huff ? '1' : '0');
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	706
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	707 $buf = pack('B*', '01000000');
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	708 $buf .= pack('B*', $hbit . ipack(7, length($name)));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	709 $buf .= $name;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	710 $buf .= pack('B*', $hbit . ipack(7, length($value)));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	711 $buf .= $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	712 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	713
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	714 # 6.2.2. Literal Header Field without Indexing
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	715
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	716 if ($mode == 3) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	717 ++$index until $index > $#$table
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	718 or $table->[$index][0] eq $name;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	719 my $value = $huff ? huff($value) : $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	720
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	721 $buf = pack('B*', '0000' . ipack(4, $index)
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	722 . ($huff ? '1' : '0') . ipack(7, length($value)));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	723 $buf .= $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	724 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	725
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	726 # 6.2.2. Literal Header Field without Indexing -- New Name
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	727
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	728 if ($mode == 4) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	729 my $name = $huff ? huff($name) : $name;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	730 my $value = $huff ? huff($value) : $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	731 my $hbit = ($huff ? '1' : '0');
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	732
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	733 $buf = pack('B*', '00000000');
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	734 $buf .= pack('B*', $hbit . ipack(7, length($name)));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	735 $buf .= $name;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	736 $buf .= pack('B*', $hbit . ipack(7, length($value)));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	737 $buf .= $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	738 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	739
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	740 # 6.2.3. Literal Header Field Never Indexed
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	741
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	742 if ($mode == 5) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	743 ++$index until $index > $#$table
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	744 or $table->[$index][0] eq $name;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	745 my $value = $huff ? huff($value) : $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	746
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	747 $buf = pack('B*', '0001' . ipack(4, $index)
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	748 . ($huff ? '1' : '0') . ipack(7, length($value)));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	749 $buf .= $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	750 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	751
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	752 # 6.2.3. Literal Header Field Never Indexed -- New Name
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	753
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	754 if ($mode == 6) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	755 my $name = $huff ? huff($name) : $name;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	756 my $value = $huff ? huff($value) : $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	757 my $hbit = ($huff ? '1' : '0');
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	758
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	759 $buf = pack('B*', '00010000');
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	760 $buf .= pack('B*', $hbit . ipack(7, length($name)));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	761 $buf .= $name;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	762 $buf .= pack('B*', $hbit . ipack(7, length($value)));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	763 $buf .= $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	764 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	765
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	766 return $buf;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	767 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	768
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	769 sub hunpack {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	770 my ($ctx, $data, $length) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	771 my $table = $ctx->{dynamic_decode};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	772 my %headers;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	773 my $skip = 0;
1218 24e175025ad8 Tests: minimal handling of HTTP/2 dynamic table size update. Maxim Dounin <mdounin@mdounin.ru> parents: 1181 diff changeset	774 my ($index, $name, $value, $size);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	775
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	776 my $field = sub {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	777 my ($b) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	778 my ($len, $s, $huff) = iunpack(7, @_);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	779
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	780 my $field = substr($b, $s, $len);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	781 $field = $huff ? dehuff($field) : $field;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	782 $s += $len;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	783 return ($field, $s);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	784 };
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	785
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	786 my $add = sub {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	787 my ($h, $n, $v) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	788 return $h->{$n} = $v unless exists $h->{$n};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	789 $h->{$n} = [ $h->{$n} ] unless ref $h->{$n};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	790 push @{$h->{$n}}, $v;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	791 };
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	792
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	793 while ($skip < $length) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	794 my $ib = unpack("\@$skip B8", $data);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	795
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	796 if (substr($ib, 0, 1) eq '1') {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	797 ($index, $skip) = iunpack(7, $data, $skip);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	798 $add->(\%headers,
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	799 $table->[$index][0], $table->[$index][1]);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	800 next;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	801 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	802
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	803 if (substr($ib, 0, 2) eq '01') {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	804 ($index, $skip) = iunpack(6, $data, $skip);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	805 $name = $table->[$index][0];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	806
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	807 ($name, $skip) = $field->($data, $skip) unless $name;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	808 ($value, $skip) = $field->($data, $skip);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	809
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	810 splice @$table,
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	811 $ctx->{static_table_size}, 0, [ $name, $value ];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	812 $add->(\%headers, $name, $value);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	813 next;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	814 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	815
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	816 if (substr($ib, 0, 4) eq '0000') {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	817 ($index, $skip) = iunpack(4, $data, $skip);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	818 $name = $table->[$index][0];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	819
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	820 ($name, $skip) = $field->($data, $skip) unless $name;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	821 ($value, $skip) = $field->($data, $skip);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	822
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	823 $add->(\%headers, $name, $value);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	824 next;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	825 }
1218 24e175025ad8 Tests: minimal handling of HTTP/2 dynamic table size update. Maxim Dounin <mdounin@mdounin.ru> parents: 1181 diff changeset	826
24e175025ad8 Tests: minimal handling of HTTP/2 dynamic table size update. Maxim Dounin <mdounin@mdounin.ru> parents: 1181 diff changeset	827 if (substr($ib, 0, 3) eq '001') {
24e175025ad8 Tests: minimal handling of HTTP/2 dynamic table size update. Maxim Dounin <mdounin@mdounin.ru> parents: 1181 diff changeset	828 ($size, $skip) = iunpack(5, $data, $skip);
24e175025ad8 Tests: minimal handling of HTTP/2 dynamic table size update. Maxim Dounin <mdounin@mdounin.ru> parents: 1181 diff changeset	829
24e175025ad8 Tests: minimal handling of HTTP/2 dynamic table size update. Maxim Dounin <mdounin@mdounin.ru> parents: 1181 diff changeset	830 # TODO: handle dynamic table size update
24e175025ad8 Tests: minimal handling of HTTP/2 dynamic table size update. Maxim Dounin <mdounin@mdounin.ru> parents: 1181 diff changeset	831
24e175025ad8 Tests: minimal handling of HTTP/2 dynamic table size update. Maxim Dounin <mdounin@mdounin.ru> parents: 1181 diff changeset	832 next;
24e175025ad8 Tests: minimal handling of HTTP/2 dynamic table size update. Maxim Dounin <mdounin@mdounin.ru> parents: 1181 diff changeset	833 }
24e175025ad8 Tests: minimal handling of HTTP/2 dynamic table size update. Maxim Dounin <mdounin@mdounin.ru> parents: 1181 diff changeset	834
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	835 last;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	836 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	837
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	838 return \%headers;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	839 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	840
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	841 sub huff_code { scalar {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	842 pack('C', 0) => '1111111111000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	843 pack('C', 1) => '11111111111111111011000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	844 pack('C', 2) => '1111111111111111111111100010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	845 pack('C', 3) => '1111111111111111111111100011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	846 pack('C', 4) => '1111111111111111111111100100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	847 pack('C', 5) => '1111111111111111111111100101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	848 pack('C', 6) => '1111111111111111111111100110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	849 pack('C', 7) => '1111111111111111111111100111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	850 pack('C', 8) => '1111111111111111111111101000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	851 pack('C', 9) => '111111111111111111101010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	852 pack('C', 10) => '111111111111111111111111111100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	853 pack('C', 11) => '1111111111111111111111101001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	854 pack('C', 12) => '1111111111111111111111101010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	855 pack('C', 13) => '111111111111111111111111111101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	856 pack('C', 14) => '1111111111111111111111101011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	857 pack('C', 15) => '1111111111111111111111101100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	858 pack('C', 16) => '1111111111111111111111101101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	859 pack('C', 17) => '1111111111111111111111101110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	860 pack('C', 18) => '1111111111111111111111101111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	861 pack('C', 19) => '1111111111111111111111110000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	862 pack('C', 20) => '1111111111111111111111110001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	863 pack('C', 21) => '1111111111111111111111110010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	864 pack('C', 22) => '111111111111111111111111111110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	865 pack('C', 23) => '1111111111111111111111110011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	866 pack('C', 24) => '1111111111111111111111110100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	867 pack('C', 25) => '1111111111111111111111110101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	868 pack('C', 26) => '1111111111111111111111110110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	869 pack('C', 27) => '1111111111111111111111110111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	870 pack('C', 28) => '1111111111111111111111111000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	871 pack('C', 29) => '1111111111111111111111111001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	872 pack('C', 30) => '1111111111111111111111111010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	873 pack('C', 31) => '1111111111111111111111111011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	874 pack('C', 32) => '010100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	875 pack('C', 33) => '1111111000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	876 pack('C', 34) => '1111111001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	877 pack('C', 35) => '111111111010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	878 pack('C', 36) => '1111111111001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	879 pack('C', 37) => '010101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	880 pack('C', 38) => '11111000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	881 pack('C', 39) => '11111111010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	882 pack('C', 40) => '1111111010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	883 pack('C', 41) => '1111111011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	884 pack('C', 42) => '11111001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	885 pack('C', 43) => '11111111011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	886 pack('C', 44) => '11111010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	887 pack('C', 45) => '010110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	888 pack('C', 46) => '010111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	889 pack('C', 47) => '011000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	890 pack('C', 48) => '00000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	891 pack('C', 49) => '00001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	892 pack('C', 50) => '00010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	893 pack('C', 51) => '011001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	894 pack('C', 52) => '011010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	895 pack('C', 53) => '011011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	896 pack('C', 54) => '011100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	897 pack('C', 55) => '011101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	898 pack('C', 56) => '011110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	899 pack('C', 57) => '011111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	900 pack('C', 58) => '1011100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	901 pack('C', 59) => '11111011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	902 pack('C', 60) => '111111111111100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	903 pack('C', 61) => '100000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	904 pack('C', 62) => '111111111011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	905 pack('C', 63) => '1111111100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	906 pack('C', 64) => '1111111111010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	907 pack('C', 65) => '100001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	908 pack('C', 66) => '1011101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	909 pack('C', 67) => '1011110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	910 pack('C', 68) => '1011111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	911 pack('C', 69) => '1100000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	912 pack('C', 70) => '1100001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	913 pack('C', 71) => '1100010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	914 pack('C', 72) => '1100011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	915 pack('C', 73) => '1100100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	916 pack('C', 74) => '1100101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	917 pack('C', 75) => '1100110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	918 pack('C', 76) => '1100111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	919 pack('C', 77) => '1101000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	920 pack('C', 78) => '1101001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	921 pack('C', 79) => '1101010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	922 pack('C', 80) => '1101011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	923 pack('C', 81) => '1101100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	924 pack('C', 82) => '1101101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	925 pack('C', 83) => '1101110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	926 pack('C', 84) => '1101111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	927 pack('C', 85) => '1110000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	928 pack('C', 86) => '1110001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	929 pack('C', 87) => '1110010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	930 pack('C', 88) => '11111100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	931 pack('C', 89) => '1110011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	932 pack('C', 90) => '11111101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	933 pack('C', 91) => '1111111111011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	934 pack('C', 92) => '1111111111111110000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	935 pack('C', 93) => '1111111111100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	936 pack('C', 94) => '11111111111100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	937 pack('C', 95) => '100010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	938 pack('C', 96) => '111111111111101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	939 pack('C', 97) => '00011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	940 pack('C', 98) => '100011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	941 pack('C', 99) => '00100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	942 pack('C', 100) => '100100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	943 pack('C', 101) => '00101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	944 pack('C', 102) => '100101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	945 pack('C', 103) => '100110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	946 pack('C', 104) => '100111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	947 pack('C', 105) => '00110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	948 pack('C', 106) => '1110100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	949 pack('C', 107) => '1110101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	950 pack('C', 108) => '101000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	951 pack('C', 109) => '101001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	952 pack('C', 110) => '101010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	953 pack('C', 111) => '00111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	954 pack('C', 112) => '101011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	955 pack('C', 113) => '1110110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	956 pack('C', 114) => '101100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	957 pack('C', 115) => '01000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	958 pack('C', 116) => '01001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	959 pack('C', 117) => '101101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	960 pack('C', 118) => '1110111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	961 pack('C', 119) => '1111000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	962 pack('C', 120) => '1111001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	963 pack('C', 121) => '1111010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	964 pack('C', 122) => '1111011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	965 pack('C', 123) => '111111111111110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	966 pack('C', 124) => '11111111100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	967 pack('C', 125) => '11111111111101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	968 pack('C', 126) => '1111111111101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	969 pack('C', 127) => '1111111111111111111111111100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	970 pack('C', 128) => '11111111111111100110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	971 pack('C', 129) => '1111111111111111010010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	972 pack('C', 130) => '11111111111111100111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	973 pack('C', 131) => '11111111111111101000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	974 pack('C', 132) => '1111111111111111010011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	975 pack('C', 133) => '1111111111111111010100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	976 pack('C', 134) => '1111111111111111010101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	977 pack('C', 135) => '11111111111111111011001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	978 pack('C', 136) => '1111111111111111010110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	979 pack('C', 137) => '11111111111111111011010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	980 pack('C', 138) => '11111111111111111011011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	981 pack('C', 139) => '11111111111111111011100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	982 pack('C', 140) => '11111111111111111011101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	983 pack('C', 141) => '11111111111111111011110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	984 pack('C', 142) => '111111111111111111101011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	985 pack('C', 143) => '11111111111111111011111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	986 pack('C', 144) => '111111111111111111101100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	987 pack('C', 145) => '111111111111111111101101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	988 pack('C', 146) => '1111111111111111010111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	989 pack('C', 147) => '11111111111111111100000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	990 pack('C', 148) => '111111111111111111101110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	991 pack('C', 149) => '11111111111111111100001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	992 pack('C', 150) => '11111111111111111100010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	993 pack('C', 151) => '11111111111111111100011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	994 pack('C', 152) => '11111111111111111100100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	995 pack('C', 153) => '111111111111111011100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	996 pack('C', 154) => '1111111111111111011000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	997 pack('C', 155) => '11111111111111111100101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	998 pack('C', 156) => '1111111111111111011001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	999 pack('C', 157) => '11111111111111111100110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1000 pack('C', 158) => '11111111111111111100111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1001 pack('C', 159) => '111111111111111111101111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1002 pack('C', 160) => '1111111111111111011010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1003 pack('C', 161) => '111111111111111011101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1004 pack('C', 162) => '11111111111111101001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1005 pack('C', 163) => '1111111111111111011011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1006 pack('C', 164) => '1111111111111111011100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1007 pack('C', 165) => '11111111111111111101000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1008 pack('C', 166) => '11111111111111111101001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1009 pack('C', 167) => '111111111111111011110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1010 pack('C', 168) => '11111111111111111101010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1011 pack('C', 169) => '1111111111111111011101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1012 pack('C', 170) => '1111111111111111011110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1013 pack('C', 171) => '111111111111111111110000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1014 pack('C', 172) => '111111111111111011111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1015 pack('C', 173) => '1111111111111111011111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1016 pack('C', 174) => '11111111111111111101011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1017 pack('C', 175) => '11111111111111111101100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1018 pack('C', 176) => '111111111111111100000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1019 pack('C', 177) => '111111111111111100001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1020 pack('C', 178) => '1111111111111111100000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1021 pack('C', 179) => '111111111111111100010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1022 pack('C', 180) => '11111111111111111101101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1023 pack('C', 181) => '1111111111111111100001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1024 pack('C', 182) => '11111111111111111101110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1025 pack('C', 183) => '11111111111111111101111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1026 pack('C', 184) => '11111111111111101010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1027 pack('C', 185) => '1111111111111111100010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1028 pack('C', 186) => '1111111111111111100011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1029 pack('C', 187) => '1111111111111111100100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1030 pack('C', 188) => '11111111111111111110000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1031 pack('C', 189) => '1111111111111111100101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1032 pack('C', 190) => '1111111111111111100110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1033 pack('C', 191) => '11111111111111111110001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1034 pack('C', 192) => '11111111111111111111100000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1035 pack('C', 193) => '11111111111111111111100001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1036 pack('C', 194) => '11111111111111101011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1037 pack('C', 195) => '1111111111111110001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1038 pack('C', 196) => '1111111111111111100111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1039 pack('C', 197) => '11111111111111111110010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1040 pack('C', 198) => '1111111111111111101000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1041 pack('C', 199) => '1111111111111111111101100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1042 pack('C', 200) => '11111111111111111111100010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1043 pack('C', 201) => '11111111111111111111100011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1044 pack('C', 202) => '11111111111111111111100100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1045 pack('C', 203) => '111111111111111111111011110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1046 pack('C', 204) => '111111111111111111111011111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1047 pack('C', 205) => '11111111111111111111100101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1048 pack('C', 206) => '111111111111111111110001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1049 pack('C', 207) => '1111111111111111111101101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1050 pack('C', 208) => '1111111111111110010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1051 pack('C', 209) => '111111111111111100011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1052 pack('C', 210) => '11111111111111111111100110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1053 pack('C', 211) => '111111111111111111111100000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1054 pack('C', 212) => '111111111111111111111100001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1055 pack('C', 213) => '11111111111111111111100111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1056 pack('C', 214) => '111111111111111111111100010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1057 pack('C', 215) => '111111111111111111110010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1058 pack('C', 216) => '111111111111111100100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1059 pack('C', 217) => '111111111111111100101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1060 pack('C', 218) => '11111111111111111111101000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1061 pack('C', 219) => '11111111111111111111101001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1062 pack('C', 220) => '1111111111111111111111111101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1063 pack('C', 221) => '111111111111111111111100011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1064 pack('C', 222) => '111111111111111111111100100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1065 pack('C', 223) => '111111111111111111111100101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1066 pack('C', 224) => '11111111111111101100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1067 pack('C', 225) => '111111111111111111110011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1068 pack('C', 226) => '11111111111111101101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1069 pack('C', 227) => '111111111111111100110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1070 pack('C', 228) => '1111111111111111101001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1071 pack('C', 229) => '111111111111111100111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1072 pack('C', 230) => '111111111111111101000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1073 pack('C', 231) => '11111111111111111110011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1074 pack('C', 232) => '1111111111111111101010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1075 pack('C', 233) => '1111111111111111101011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1076 pack('C', 234) => '1111111111111111111101110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1077 pack('C', 235) => '1111111111111111111101111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1078 pack('C', 236) => '111111111111111111110100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1079 pack('C', 237) => '111111111111111111110101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1080 pack('C', 238) => '11111111111111111111101010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1081 pack('C', 239) => '11111111111111111110100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1082 pack('C', 240) => '11111111111111111111101011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1083 pack('C', 241) => '111111111111111111111100110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1084 pack('C', 242) => '11111111111111111111101100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1085 pack('C', 243) => '11111111111111111111101101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1086 pack('C', 244) => '111111111111111111111100111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1087 pack('C', 245) => '111111111111111111111101000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1088 pack('C', 246) => '111111111111111111111101001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1089 pack('C', 247) => '111111111111111111111101010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1090 pack('C', 248) => '111111111111111111111101011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1091 pack('C', 249) => '1111111111111111111111111110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1092 pack('C', 250) => '111111111111111111111101100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1093 pack('C', 251) => '111111111111111111111101101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1094 pack('C', 252) => '111111111111111111111101110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1095 pack('C', 253) => '111111111111111111111101111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1096 pack('C', 254) => '111111111111111111111110000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1097 pack('C', 255) => '11111111111111111111101110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1098 '_eos' => '111111111111111111111111111111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1099 }};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1100
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1101 sub huff {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1102 my ($string) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1103 my $code = &huff_code;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1104
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1105 my $ret = join '', map { $code->{$_} } (split //, $string);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1106 my $len = length($ret) + (8 - length($ret) % 8);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1107 $ret .= $code->{_eos};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1108
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1109 return pack("B$len", $ret);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1110 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1111
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1112 sub dehuff {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1113 my ($string) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1114 my $code = &huff_code;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1115 my %decode = reverse %$code;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1116
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1117 my $ret = ''; my $c = '';
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1118 for (split //, unpack('B*', $string)) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1119 $c .= $_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1120 next unless exists $decode{$c};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1121 last if $decode{$c} eq '_eos';
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1122
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1123 $ret .= $decode{$c};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1124 $c = '';
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1125 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1126
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1127 return $ret;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1128 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1129
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1130 ###############################################################################
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1131
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1132 1;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1133
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1134 ###############################################################################

Mercurial > hg > nginx-tests

annotate lib/Test/Nginx/HTTP2.pm @ 1677:f13ead27f89c