/usr/share/perl5/Protocol/HTTP2/StaticTable.pm is in libprotocol-http2-perl 1.08-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 | package Protocol::HTTP2::StaticTable;
use strict;
use warnings;
require Exporter;
our @ISA = qw(Exporter);
our ( @stable, %rstable );
our @EXPORT = qw(@stable %rstable);
@stable = (
[ ":authority", "" ],
[ ":method", "GET" ],
[ ":method", "POST" ],
[ ":path", "/" ],
[ ":path", "/index.html" ],
[ ":scheme", "http" ],
[ ":scheme", "https" ],
[ ":status", "200" ],
[ ":status", "204" ],
[ ":status", "206" ],
[ ":status", "304" ],
[ ":status", "400" ],
[ ":status", "404" ],
[ ":status", "500" ],
[ "accept-charset", "" ],
[ "accept-encoding", "gzip, deflate" ],
[ "accept-language", "" ],
[ "accept-ranges", "" ],
[ "accept", "" ],
[ "access-control-allow-origin", "" ],
[ "age", "" ],
[ "allow", "" ],
[ "authorization", "" ],
[ "cache-control", "" ],
[ "content-disposition", "" ],
[ "content-encoding", "" ],
[ "content-language", "" ],
[ "content-length", "" ],
[ "content-location", "" ],
[ "content-range", "" ],
[ "content-type", "" ],
[ "cookie", "" ],
[ "date", "" ],
[ "etag", "" ],
[ "expect", "" ],
[ "expires", "" ],
[ "from", "" ],
[ "host", "" ],
[ "if-match", "" ],
[ "if-modified-since", "" ],
[ "if-none-match", "" ],
[ "if-range", "" ],
[ "if-unmodified-since", "" ],
[ "last-modified", "" ],
[ "link", "" ],
[ "location", "" ],
[ "max-forwards", "" ],
[ "proxy-authenticate", "" ],
[ "proxy-authorization", "" ],
[ "range", "" ],
[ "referer", "" ],
[ "refresh", "" ],
[ "retry-after", "" ],
[ "server", "" ],
[ "set-cookie", "" ],
[ "strict-transport-security", "" ],
[ "transfer-encoding", "" ],
[ "user-agent", "" ],
[ "vary", "" ],
[ "via", "" ],
[ "www-authenticate", "" ],
);
for my $k ( 0 .. $#stable ) {
my $key = join ' ', @{ $stable[$k] };
$rstable{$key} = $k + 1;
$rstable{ $stable[$k]->[0] . ' ' } = $k + 1
if ( $stable[$k]->[1] ne ''
&& !exists $rstable{ $stable[$k]->[0] . ' ' } );
}
1;
|